Vba 使用多个工作簿从超链接调用宏，无需重新打开宏工作表
我有两本工作手册： 带宏的工作簿 要写入的工作簿 我有两个潜艇。一个是在“要写入的工作簿”中插入超链接，另一个子项将在单击超链接时执行 然而，我创建超链接的sub给我带来了一些混乱。我需要引用启用宏的工作簿中的工作表，但这样做需要使用工作簿.Open命令。显然，启用宏的工作簿将已打开，因此将关闭并重新打开它。我被弄糊涂了，有人能给我指出正确的方向吗 因此，宏工作表将有以下子项，链接到同一工作表中的另一个子项。“CreateHyperlinks”是从另一个写入外部电子表格的方法调用的 显然，下面的“活动表”是错误的。我想写一个不同的电子表格，所以我还需要打开它（我想是吧） 或者，我是否可以通过调用“CreateHyperlinks”的write方法传递正在写入的工作表，或者我是否将所有内容耦合得过多Vba 使用多个工作簿从超链接调用宏，无需重新打开宏工作表,vba,excel,hyperlink,Vba,Excel,Hyperlink,我有两本工作手册： 带宏的工作簿 要写入的工作簿 我有两个潜艇。一个是在“要写入的工作簿”中插入超链接，另一个子项将在单击超链接时执行 然而，我创建超链接的sub给我带来了一些混乱。我需要引用启用宏的工作簿中的工作表，但这样做需要使用工作簿.Open命令。显然，启用宏的工作簿将已打开，因此将关闭并重新打开它。我被弄糊涂了，有人能给我指出正确的方向吗 因此，宏工作表将有以下子项，链接到同一工作表中的另一个子项。“CreateHyperlinks”是从另一个写入外部电子表格的方法调用的 显然，下面的
' This is called elsewhere
Sub CreateHpyerlinks(rangeValue, textValue)
Dim fileName As String
Dim wb As Workbook
Dim TheSheet As Worksheet
fileName = "c:\blah\blah.xlsm"
' ** This is the part: How do i reference "TheSheet" without opening the XL?
Set wb = Workbooks.Open(fileName:=fileName)
Set TheSheet = wb.Sheets("MasterCard")
TheSheet.UsedRange.Select
ActiveSheet.Hyperlinks.Add Anchor:=rangeValue, Address:=TheSheet!THISISMYMACROHERE(textValue), SubAddress:="", ScreenTip:="Go to Word Documebnt", TextToDisplay:=textValue
End Sub
更新： 我已更新Sub，并且正在命中的
对象不支持其方法或属性Sub CreateHpyerlinks(rangeValue, textValue)
Dim fileName As String
Dim wb As Workbook
Dim wbWrite As Workbook
Dim TheSheetWithMacros As Worksheet
Dim TheSheetToWriteTo As Worksheet
fileName = "c:\WorkbookToWriteTo.xlsx"
Set wb = Application.Workbooks(ThisWorkbook.Name)
Set TheSheetWithMacros = wb.Worksheets("Sheet1")
Set wbWrite = Workbooks.Open(fileName:=fileName)
Set TheSheetToWriteTo = wbWrite.Worksheets("Sheet1")
' This Line Errors:
TheSheetToWriteTo.Hyperlinks.Add Anchor:=rangeValue, Address:="", SubAddress:=TheSheetWithMacros!Goto80BytePopulationGuide(textValue), ScreenTip:="Call Macro", TextToDisplay:=textValue
wbWrite.Save
wbWrite.Close
End Sub
行
thesheetwriteto.Hyperlinks.Add锚点：=范围值，地址：=“”，子地址：=TheSheetWithMacros！转到80bytepopulationguide（textValue），屏幕提示：=“调用宏”，TextToDisplay:=textValueSub writeit()
'copies a specified code module from one workbook, to
' a code module in another workbook
'
'ASSUMPTIONS:
'-the specified destination must already exist
'-the specified destination does not already contain
' any procedures that would conflict naming with the
' copied module procedures
MsgBox "Please make sure to enable access to ""Trust access to the VBA Project Object Model""", vbInformation
Application.CommandBars.ExecuteMso("MacroSecurity")
Dim macrobook As Workbook
Dim otherbook As Workbook
Dim lines As String
Dim destModule As Object 'VBComponent
Dim copyModule As Object 'VBComponent
Set macrobook = ThisWorkbook 'Modify as needed
Set copyModule = macrobook.VBProject.VBComponents("Sheet1") 'Name of your module to copy
Set otherbook = Workbooks(2) 'Modify as needed
Set destModule = otherbook.VBProject.VBComponents("Sheet1") 'name of where it will go
'Appends the lines from CopyModule to DestModule
With destModule.CodeModule
.InsertLines .CountOfLines + 1, copyModule.CodeModule.lines(1, copyModule.CodeModule.CountOfLines)
End With
End Sub
开始的好地方，@chrisneilsen谢谢，我现在已经这样做了，在其他地方（某种程度上）这是必要的，但我现在已经删除了，这总体上是不好的！我认为问题出在
子地址子地址：=[workbook\u name.xlsm]SheetName！宏名称（args）选择\u Change.InsertLines.CountOfLines+1，copyModule.CodeModule.lines（105，139）