Word中做一个超链接打开并指定到对应的Excel中的某个Sheet工作页

Word中做一个超链接打开并指定到对应的Excel中的某个Sheet工作页

Sub Macro1()
'
' Macro1 Macro
' 宏在 2010-4-10 由 Lw 录制
'
ChangeFileOpenDirectory "C:\Documents and Settings\Lw\桌面\"
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"报表整理文档集合2.xls", SubAddress:="", ScreenTip:="", TextToDisplay:= _
"进水口情况日报表(污染物) "
End Sub

上面这段代码是WORD录宏时自动生成的,仅仅是打开了指定的某一个Excel文档,但不能指定对应Excel文档中的对应的Sheet工作页!!
请高手解决,或补充一下代码,万分感激!紧急需要

在选择需要链接的工作簿地址之后(例如地址为C:\Users\Administrator\Desktop\test.xls),在后面加上"#"号,继续手工输入工作表名称和单元格地址。

例如,C:\Users\Administrator\Desktop\test.xls#sheet2!D3:F9,即链接到test.xls工作簿的sheet2中的D3:F9单元格。当点击该超链接时,会直接链接到该地址
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-04-10
这个比较困难 用vba的单击事件可以做到 不过会比较麻烦 也有些限制
目前还没想到跟好的办法本回答被提问者采纳
相似回答