将数据从已closures的工作簿传输到打开的工作簿，而不必指定文件path，因为两者都位于同一个文件夹中

我如何修改下面的代码来做到这一点？ 我试着用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在同一个文件夹中。

如果macros从与WB2位于同一位置的第三个（单独）工作簿运行，则：

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