ワークブックを開いていないワークブックから開いたワークブックにコピー

Question

ワークブックを開いて開いていないワークブックに貼り付けることはできますか？コピーしようとしているワークシートには合計30のワークシートが含まれています。私はファイルダイアログを開いてみましたが、時にはそれが卓越しています。卓越性を掛けて、私が欲しいことをしない方法はありますか？前もって感謝します。

Dim FileToOpen As String 
Application.ScreenUpdating = False 
FileToOpen = Application.GetOpenFilename _ 
(Title:="Please choose a Excel File to Open", _ 
FileFilter:="Excel Files *.(*.xlsx),xlsx") 
If VarType(FileToOpen) = vbBoolean Then 
MsgBox "No file selected", vbExclamation, "Sorry!" 
Exit Sub 
End If 
Debug.Assert VarType(FileToOpen) = vbString 
With Application.Workbooks.Open(FileToOpen) 
.Worksheets(22).UsedRange.Copy ThisWorkbook.Worksheets(2).range("A1") 
.Close 
End With 

Answer 1

Private Sub test() 
Dim app As New Excel.Application 
Dim fileName As String, copyFrom As Workbook 
app.Visible = False 
fileName = app.GetOpenFilename() 

Set copyFrom = app.Workbooks.Open(fileName) 
    MsgBox copyFrom.Sheets(1).Cells(1, 1) 

End Sub 

これはあなたが原則