Excel VBA質問箱 IV

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

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


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

43327 / 76732

←次へ　｜　前へ→


	【38455】Re:複数のCSVファイルを一つのブックに

かみちゃん - 06/6/3(土) 11:14 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>今できているコードをアップすることはできませんか？

本当は、makiさんがどこまでできているのかをご提示いただきたいのですが、
Hirofumiさんからコードの提示もあったので、私も「マクロの記録」とヘルプ
の引用で作れるコードを提示させていただきます。

Hirofumiさんのコードは、とてもすばらしいコードで、過去何度となく同様の
コードを掲示板でご紹介されていたので、後ほど、過去ログを紹介しようとし
ていましたが、少々長いので、解析・勉強され理解されるのは大変ではなかろ
うかと思います。僭越ながら、私のコードも何かのお役に立てれば幸いです。

Sub Macro1()
　Dim MyPath As String
　Dim MyName As String
　Dim strCsvFileName As String
　Dim rngPaste As Range

　MyPath = ThisWorkbook.Path
　MyName = Dir(MyPath & "\*.csv")
　Do While MyName <> ""
　　strCsvFileName = MyPath & "\" & MyName
　　
　　'貼付先を取得（このブックのアクティブシートに貼付け）
　　Set rngPaste = ThisWorkbook.ActiveSheet.Range("A65536").End(xlUp)
　　If rngPaste.Value <> "" Then
　　　Set rngPaste = rngPaste.Offset(1)
　　End If
　　
　　'Csvファイルを開く
　　Workbooks.Open strCsvFileName
　　
　　'特定のファイルの場合は、1行目を削除
　　If MyName = "A000001.csv" Then
　　　Rows(1).Delete Shift:=xlUp
　　End If
　　
　　'読み込んだCSVファイルを貼付け先に貼付けて閉じる
　　Range("A1").CurrentRegion.Copy rngPaste
　　ActiveWorkbook.Close False
　　
　　MyName = Dir
　Loop
End Sub

4 hits

▼

【38407】複数のCSVファイルを一つのブックに maki 06/6/2(金) 8:08