Excel VBA質問箱 IV

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

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


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

9906 / 76734

←次へ　｜　前へ→


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

UO3 - 12/7/26(木) 12:07 -


	引用なし

	パスワード

▼杏子さん：

一応、指定フォルダ内のＣＳＶファイルをすべて扱うという前提でDo/Loop処理で書きました。

Sub Sample2()
　　Dim myPath As String
　　Dim myCsv As String
　　Dim sh As Worksheet
　　Dim z As Long
　　
　　Application.ScreenUpdating = False
　
　　myPath = "H:\形式変換用\"
　　
　　Set sh = ThisWorkbook.Sheets("Sheet1")　'集約シート
　　sh.Cells.ClearContents
　
　　myCsv = Dir(myPath & "*.csv")

　　Do While Len(myCsv) > 0
　　　　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
　　　　myCsv = Dir()
　　Loop
　　
　　Application.ScreenUpdating = True
　　MsgBox "集約が完了しました"
　
End Sub

8 hits

▼

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