|
book2のシート1のデータ全てをbook1のシート2へ移す内容でエラーが多発してしまいました。
回避方法等を探していたのですが何故か上手くいきません
ご助力願います。
方法1
Set Wb(0) = Application.Workbooks.OpenXML(C_File(0), LoadOption:=xlXmlLoadImportToList)
Set Wb(1) = Application.Workbooks.OpenXML(C_File(1), LoadOption:=xlXmlLoadImportToList)
Wb(1).Worksheets(1).Copy After:=Wb(0).Worksheets(1)
この方法だと「ディスクがいっぱいです」とのエラーが発生
方法2
Set Wb(0) = Application.Workbooks.OpenXML(C_File(0), LoadOption:=xlXmlLoadImportToList)
Set Wb(1) = Application.Workbooks.OpenXML(C_File(1), LoadOption:=xlXmlLoadImportToList)
Wb(1).Sheets(1).Select
Cells.Select
Selection.Copy
Wb(0).Sheets(2).Activate
Wb(0).Sheets(2).Select
Cells.Select
ActiveSheet.Paste
この方法だとコピーは行えるのですがその後の処理で「メモリが足りません」と
すぐ表示されてしまいました。
使用するファイルの内容は容量約5MBで15000行の50列ほどあります。
よろしくお願いします。
|
|