Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9443 / 76732 ←次へ | 前へ→

【72851】Excel VBA 連続貼り付け処理について
質問  momotoki  - 12/9/25(火) 12:56 -

引用なし
パスワード
   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

1 hits

【72851】Excel VBA 連続貼り付け処理について momotoki 12/9/25(火) 12:56 質問
【72852】Re:Excel VBA 連続貼り付け処理について UO3 12/9/25(火) 13:58 発言
【72855】Re:Excel VBA 連続貼り付け処理について momotoki 12/9/25(火) 15:21 回答
【72856】Re:Excel VBA 連続貼り付け処理について UO3 12/9/25(火) 15:28 発言
【72857】Re:Excel VBA 連続貼り付け処理について UO3 12/9/25(火) 15:37 発言
【72861】Re:Excel VBA 連続貼り付け処理について momotoki 12/9/26(水) 1:05 回答
【72862】Re:Excel VBA 連続貼り付け処理について UO3 12/9/26(水) 5:51 発言
【72871】Re:Excel VBA 連続貼り付け処理について momotoki 12/9/27(木) 1:44 回答

9443 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free