我是VBA excel的新手。我正在尝试将工作簿上的工作表上的数据复制到其他工作簿上的其他工作表中。用户通过文件对话框选择他们想要打开的文件。但是,我一直得到运行时错误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
错误来设置wb2 = workbooks.worksheets(“Sheet1”)行吗?或在workboos.open线? –
错误是在这条线:集片= wb2.Worksheets(“工作表Sheet1”) –
试片,而不是名称的指数.....像一套表= wb2.worksheets(1) –