あるブックから別のブックブックにデータをコピー

Question

VBAの初心者です。私は、ワークブックのデータを別のワークブックの他のワークシートにコピーしようとしています。ユーザーは、ファイルダイアログで開くファイルを選択します。しかし、私はランタイムエラー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 

このコードを試してみてください。