请问如何在EXCEL中插入sheet超链接呢?[已解决]
本帖最后由 heroxianf 于 2016-5-19 13:43 编辑用AU3如何完成操作呢? _Excel_RangeLinkAddRemove($oWorkbook, $oWorkbook.Activesheet, "A1", "2.xlsx - Sheet3!A1", '', '', 'Test')
这样做添加后 没有反应。 回复 2# heroxianf
先錄製 巨集看看巨集 怎麼寫的 回复 3# kk_lee69
Sub 宏1()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Sheet1!A1", TextToDisplay:="Sheet1!A1"
End Sub
这个是录制的,不知道如何套用。 回复 4# heroxianf
$oExcel.ActiveSheet.Hyperlinks.Add($oExcel.Range("a5"),"Sheet2!A1","","","Sheet2!A1") 回复 4# heroxianf
$oExcel.ActiveSheet.Hyperlinks.Add($oExcel.Range("a5"),"mailto:someone@example.com?subject=hello","","Write us today","Support") 本帖最后由 heroxianf 于 2016-5-17 23:18 编辑
回复 6# kk_lee69
KK 今天在操作excel的时候突然就看到宏了, 宏的录制 一般都可以简单搬运过来,那些复杂的搬运途中AU3要注意什么呢? 回复 7# heroxianf
不懂你說的意思 回复 8# kk_lee69
就是像今天的这个列子有点复杂,写成au3要注意什么要点。 回复 9# heroxianf
沒注意甚麼 就是 看看 要用哪個VBA再看看 VBA 的寫法 怎麼寫
再稍微轉換一下即可
VBA 跟 VB 其實很像 AU3 又跟 VB 很像 回复 10# kk_lee69
好,我下来多琢磨一下~谢谢了。 回复 10# kk_lee69
KK我这里测试表格里没有成功建立超链接~#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>
; 创建应用对象并打开示例工作簿
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeLinkAddRemove 示例", "创建 Excel 应用对象发生错误." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\2.xlsx")
$oWorkbook.ActiveSheet.Hyperlinks.Add($oWorkbook.Range("A1"),"Sheet2!A1","","","Sheet2!A1") $oWorkbook.ActiveSheet.Range("A1") 回复 13# kk_lee69
KK更改之后还是不行,超链接没有对。 回复 14# heroxianf
連接沒有對 是 連接的問題不是 程式語法的問題
連接沒有對 是原本輸入的時候就沒有對了
請做一個對的連接 上傳檔案
页:
[1]
2