将数据从一个工作簿复制到其他工作簿工作表

我是新来的VBA excel。 我正在尝试将工作簿上的工作表上的数据复制到另一个工作簿上的其他工作表中。 用户通过文件对话框select他们想要打开的文件。 但是，我一直得到运行时错误9：下标超出范围的错误。 有人可以请赐教。 谢谢。

Sub selectfile() Dim FileToOpen As String Dim wb2 As Workbook Dim wb1 As Workbook Dim sheet As Worksheet Application.ScreenUpdating = False Sheet2.Range("A:Y").ClearContents FileToOpen = Application.GetOpenFilename _ (Title:="Please choose a Excel File to Open", _ FileFilter:="Excel Files *.xlsx(*.xlsx),") Sheet1.Range("B30").Value = FileToOpen Set wb2 = Workbooks.Open(FileToOpen) Set sheet = wb2.Worksheets(1) wb2.Activate sheet.Copy After:=Workbooks("OQC_Check_Tools.xlsm").Sheets("Sheet2") End Sub 

Answer 1

 Sub selectfile() Dim FileToOpen As String Dim wb2 As Workbook Dim wb1 As Workbook Dim sheet As Worksheet Application.ScreenUpdating = False Sheet2.Range("A:Y").ClearContents FileToOpen = Application.GetOpenFilename _ (Title:="Please choose a Excel File to Open", _ FileFilter:="Excel Files *.xlsx(*.xlsx),") Sheet1.Range("B30").Value = FileToOpen Set wb2 = Workbooks.Open(FileToOpen) Set sheet = wb2.Worksheets(1) sheet.usedrange.copy destination:=thisworkbook.worksheets(2).range("A1") End Sub 

试试这个代码。