Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9913 / 76738

←次へ　｜　前へ→


	【72381】Re:Loop処理への変換

UO3 - 12/7/26(木) 9:30 -


	引用なし

	パスワード

▼杏子さん：

おはようございます

ＣＳＶファイルが、必ず１行目からデータがあり、その２行目から取り込むという前提です。
最後の、自ブックの保存は割愛しています。

Sub Sample()
　　Dim myPath As String
　　Dim myCsv As Variant
　　Dim sh As Worksheet
　　Dim z As Long
　　
　　Application.ScreenUpdating = False
　　
　　myPath = "H:\形式変換用\"
　　Set sh = ThisWorkbook.Sheets("Sheet1")　'集約シート
　　sh.Cells.ClearContents
　　
　　For Each myCsv In Array("売上A.csv", "売上B.csv", "売上C.csv")
　　　　Workbooks.Open Filename:=myPath & myCsv
　　　　If z = 0 Then
　　　　　　z = 1
　　　　Else
　　　　　　z = sh.UsedRange.Rows.Count + 1
　　　　End If
　　　　ActiveSheet.UsedRange.Offset(1).Copy sh.Cells(z, "A")
　　　　ActiveWorkbook.Close False
　　Next
　　　　
　　Application.ScreenUpdating = True
　　MsgBox "集約が完了しました"
　　
End Sub

0 hits

▼

【72377】Loop処理への変換 杏子 12/7/26(木) 6:34