vba - 考虑到两者都在同一个文件夹中，将数据从关闭的工作簿传输到打开的工作簿，而无需指定文件路径

Question

我该如何修改下面的代码来做到这一点？我用 ThisWorkbook.Path 试试运气。 VB新手，任何帮助将不胜感激。

Private Sub CommandButton1_Click()
Dim WB1 As Workbook
Dim WB2 As Workbook

Set WB1 = ActiveWorkbook
Set WB2 = Workbooks.Open("C:\Users\joseph\Desktop\Required Files\Almost final\ RawData.xlsm")

WB1.Sheets("CR Details").Columns("A:AW").Value = WB2.Sheets("sheet1").Columns("A:AW").Value

WB2.Close
End Sub

Answer 1

尝试:

Set WB2 = Workbooks.Open(WB1.Path & "\RawData.xlsm")

如果 WB2 与 WB1 位于同一文件夹中。

如果宏从与 WB2 位于同一位置的第三个(单独的)工作簿运行，则:

Set WB2 = Workbooks.Open(ThisWorkbook.Path & "\RawData.xlsm")