book1中sheet3（A1:W600)要调用（拷贝）book2中sheet2（A1：W600）的数据。我是用下面方法，但太慢。
Public Sub 导入()
Application.ScreenUpdating = False
Dim Filename As String
Filename = Application.GetOpenFilename
Workbooks.Open Filename
For l = 1 To 600
For h = 1 To 23
ThisWorkbook.Sheets(3).Cells(l, h) = ActiveWorkbook.Sheets(2).Cells(l , h)
Next
Next
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
public sub a()
Application.ScreenUpdating = False
dim wb as workbook
Dim Filename As String
Filename = Application.GetOpenFilename
Set Wb = GetObject(filename)
range("A1:W600").value=Wb.Sheets(2).Range("A1:W600").value
Set Wb = Nothing
Application.ScreenUpdating = True
End Sub
解决了，两边加.value。谢谢，提供帮助的朋友。