|
ExcelVBAで複数のExcelファイルデータをコピーし、特定のExcelファイルに貼り付けを行う処理に関し、貼り付け先の行数が65536行を越えた場合、エラーが発生するのですが解決策をご教示頂きたく。
(以下構文です。コピー元のファイル数が150ファイルぐらいあり、貼り付け処理を行っていくと、65536行を越えた場合、エラーが発生します。コピー元はExcel2003、貼り付け先はExcel2007です。)
Sub macro1()
Dim myPath As String
Dim myFile As String
Dim w As Workbook
myPath = "C:\COPY\"
myFile = Dir(myPath & "*.xls*")
Set w = Workbooks.Open("C:\PASTE\test.xlsx")
Do Until myFile = ""
Workbooks.Open myPath & myFile
ActiveSheet.Select
Range("A2:F1010").Copy w.Worksheets("Sheet1").Range("F1000000").End(xlUp).Offset(1, -5)
ActiveWorkbook.Close False
myFile = Dir()
Loop
End Sub
|
|