前提・実現したいこと
ダイアログを開いてエクセルファイルを選択した後、そのブックの中のシートをすべてコピーし、参照しようとしたのですが、下記のエラーが出てしまいます。エラーが出た後もう一度実行すると参照されるので、参照しようとしている時点ではコピーできていないようなのですが、なぜかわかりません。ダイアログが出た後はステップで進めることもできないです。
発生している問題・エラーメッセージ
オブジェクトが必要です
該当のソースコード
VBA
1Public Sub aqua() 2 3'ダイアログを開いて対象ファイルを選択 4Dim FileName As String 5FileName = Application.GetOpenFilename(filefilter:="Excelファイル,*.xls*", MultiSelect:=False) 6'それを開いてこのブックに全シートコピー 閉じる 7Dim wb As Workbook 8Set wb = Workbooks.Open(FileName, UpdateLinks:=0, ReadOnly:=True, IgnoreReadOnlyRecommended:=True) 9wb.Sheets().Copy After:=ThisWorkbook.Sheets(1) 10Call wb.Close 11 12 13 Sheet1.Cells(1, 1).Value = Sheet2.Cells(1, 1).Value 14 15End Sub
補足情報(FW/ツールのバージョンなど)
ウィンドウズ10 オフィス360です。
コピー元のファイルはシートが3枚入っています。
![guest](/img/icon/icnUserSample.jpg)
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/02/11 03:13
2021/02/11 03:41
2021/02/11 04:00