从关闭的工作簿中复制数据

Sub testCopyValueFromClosedWorkbook()
 Dim strFile As String
 Dim wbThis As Workbook
 Dim wksThis As Worksheet
 Dim wbThat As Workbook
 Dim wksThat As Worksheet
 
 Set wbThis = ThisWorkbook
 Set wksThis = wbThis.Sheets("Sheet1")
 
 With Application.FileDialog(msoFileDialogFilePicker)
   If .Show = -1 Then
     strFile = .SelectedItems(1)
   End If
 End With
 
 If strFile <> "" Then
   Set wbThat = Workbooks.Open(strFile)
   DoEvents
   Set wksThat = wbThat.Sheets("Sheet2")
   wksThis.Range("A1:B50").Value = wksThat.Range("A1:B50").Value
   wbThat.Close False
 End If
End Sub