我有两个 Excel 工作簿:
Source.xlsx
Tool.xlsm
Source.xlsx
包含一个带有 VBA 对象名称的工作表shtTests
:
假设Tool.xlsm
我有一个变量,其中包含对存储在的工作簿的引用Source.xlsx
:
Dim wkbSource as Workbook
Set wkbSource = GetSourceWorkbook() ' Some function that gives a reference to the workbook
核心问题:我如何引用shtTests
中Tool.xlsm
使用shtTests
“ VBA名称?
或者将问题表述为代码...假设您有以下代码片段:
Dim wkbSourceShtTests as Worksheet
Set wkbSourceShtTests = GetShtTestsFromWkbSources(wkbSources)
问:什么是GetShtTestsFromWkbSources
有什么样子?
注意:我不想像您使用的那样通过 Excel 名称引用它,wkbSources.Worksheets("Test Cloning")
因为人们可能有一天会更改其 Excel 名称。
如果您想要一个功能而不是设置可信访问,那么这可能会起作用:
Sub example()
Dim wkbSource As Workbook
Set wkbSource = GetSourceWorkbook()
Dim wkbSourceShtTests As Worksheet
Set wkbSourceShtTests = GetShtTestsFromWkbSources(wkbSource, "shtTests")
End Sub
Function GetShtTestsFromWkbSources(wkbk As Workbook, codename As String) As Worksheet
For Each sht In wkbk.Sheets
If sht.codename = codename Then Set GetShtTestsFromWkbSources = sht
Next
End Function
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句