VFP 愛用者社區

[bruce.hua]

目前已經可把資料寫入execl中...但超連接指令如何下

.ACTIVECELL.FORMULAR1C1

但欄位要連接 xxx.pdf

指令要如何寫

[ckp6250]

建議您直接操作Excel，利用「巨集錄製」，然後，去看它的巨集程式碼是怎麼寫的。

[bruce.hua]

*
&& 寫入欄位指令 (0k)

ActiveCell.FormulaR1C1 = "SSSSSSS"

&& 寫入連接指令 (錯誤k)

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Docs\UserGuide.ico", TextToDisplay:="C:\Docs\UserGuide.ico"

[朱育興]

Excel 開發人員參考資料
Hyperlinks.Add 方法
會在指定的範圍或圖案中新增超連結。
語法

運算式.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

運算式 代表 Hyperlinks 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Anchor 必要 Object 超連結的錨點。可以為 Range 或 Shape 物件。
Address 必要 String 超連結的位址。
SubAddress 選用 Variant 超連結的子位址。
ScreenTip 選用 Variant 當滑鼠指標暫停在超連結上時所要顯示的工具提示。
TextToDisplay 選用 Variant 超連結所要顯示的文字。

傳回値
代表新超連結的 Hyperlink 物件。

備註
如果指定 TextToDisplay 引數，則文字必須是字串。

範例

這個範例會在 A5 儲存格中新增超連結。

[Visual Basic for Applications]
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="http://example.microsoft.com", _
ScreenTip:="Microsoft Web Site", _
TextToDisplay:="Microsoft"
End With


上述的範例是 VBA 的寫法，在 VFP 中不是這樣寫


你的程式碼

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Docs\UserGuide.ico", TextToDisplay:="C:\Docs\UserGuide.ico"

這是 VBA 的寫法，在 VFP 中要改寫成

ActiveSheet.Hyperlinks.Add(Selection, "C:\Docs\UserGuide.ico",,, "C:\Docs\UserGuide.ico")

原則上是這樣的改法，但我沒測，這就交給你測，有問題再多測幾下，或是在論壇中去搜尋相關主題