Question

我是VBA编码的新手。我正在尝试打开工作簿，对其进行读写。我必须打开第一个工作簿才能启动代码。此代码打开将打开其他工作簿并将其写入。

这可以很好地用于测试目的。但是，当我打开两个工作簿并启动代码时，将存储不正确的值。

代码如下：

Sub Workbook_test ()

    WB_path = "C:\Users\az54\Macro_files\"

    Source_File = WB_path & "Test_Source.xlsm"  ' Source file name


    File_Test = Dir(Source_File)

    If (File_Test = "") Then
        MsgBox "Source file not found at " & Source_File & vbCr & vbCr & "Check for Source file and RESTART"
        GoTo FINISH
    Else
        Set Source_WB = Workbooks.Open(Source_File)
        MsgBox "Source Workbook name = " & Source_WB.Name & vbCr & "Source Sheet name = " & setup_tab
        Set Src_Sheet = Source_WB.Worksheets(setup_tab)
    End If

FINISH:

End Sub

变量Source_WB不能从变量Source_File获取工作簿名称，而是要加载另一个打开的工作簿。有什么想法吗？

谢谢

Answer 1

更改

Src_Sheet = Source_WB.Worksheets(setup_tab)

到

Src_Sheet = Source_WB.Sheets("setup_tab")

VBA Workbook.Open与多个打开的Excel文件给出错误的值

1 个答案: