无法使用打开的工作簿设置工作簿

Question

我有一个打开的工作簿，我想在另一个工作簿中获取数据。

我的代码是：

Dim wbsource as workbook
Dim wssource as worksheet
Dim wbtarget as workbook
Dim wstarget as worksheet

set wbsource = workbooks("D:/test.xlsx")

即使我的源工作簿名称和地址正确，它也会使下标超出范围错误。

如果我关闭源工作簿并使用

Set wbsource = workbooks.open ("D:/test.xlsx") 

它工作正常。

Answer 1

尝试将Set命令中的名称与标题名称匹配：

Sub SetupWorkbookObject()
    Dim wb As Workbook
    Set wb = Workbooks("sample.xlsm")
    MsgBox wb.Name
End Sub

注意：

Set命令和窗口标题都没有完整的文件规范，只有文件名。