Tag: pass by reference

Excel VBA传递对象ByRef永远不会工作

我一直在使用VBA多年，但在所有那些时间，我从来没有设法通过一个工作簿或工作表ByRef，我不得不使用string名称和设置对象在合作伙伴或function…所以最后现在是时候得到一些帮助！ Sub SubOne() Dim wb as workbook Dim filepath as string filepath = "//somepath/somebook.xlsx" Set wb = application.workbooks.open(filepath) Call SubTwo(wb) End Sub Sub SubTwo(ByRef wb as workbook) debug.print wb.name End Sub 任何人都可以看到为什么这会触发ByReftypes不匹配编译错误？ 我错过了什么？ 非常感谢