![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
EXCELで、あるフォルダ(例:Dir1)に格納されている複数のCSVファイルを読み込んで、そのファイルの1行目をコピーし、別ファイル(a.csv)にペーストしたいと思っております。
例えば、Dir1には1.csv,2.csv,3.csvの3つのCSVファイルが存在した時に、a.csvに出力されるのは、
-----------------------------------
1.csvの1行目
2.csvの1行目
3.csvの1行目
-----------------------------------
となるのが、理想の形です。
方法を知っている方がいらっしゃったら
お教えいただければと思います。
No.2ベストアンサー
- 回答日時:
簡単に作ってみました。
Sub Macro1()
Dim FolderName As String
FolderName = "C:\dir1" 'csvが入ってるフォルダまでのパス
'ファイル検索
With Application.FileSearch
.NewSearch
.Filename = "*.csv" '.csvを全て検索
.FileType = msoFileTypeAllFiles
.LookIn = FolderName 'csvが入ってるフォルダを検索対象
.SearchSubFolders = False
.Execute '検索実行
'検索結果が0の場合終了
If .FoundFiles.Count = 0 Then GoTo Exit_GetTextInformation
FNum = FreeFile 'ファイル番号確保
'新規csv作成
Workbooks.Add
For i = 1 To .FoundFiles.Count
'csvファイルから一行目を取得
Open .FoundFiles(i) For Input As FNum
Line Input #FNum, Buff
Close FNum
'テキストファイルの情報をa.csvに書き込み
Cells(i, 1) = Buff '一行目
Next i
End With
'a.csvという名前で同階層に保存
ActiveWorkbook.SaveAs Filename:="C:\dir1\a.csv"
ActiveWorkbook.Close
Exit_GetTextInformation:
End Sub
こいつをボタンに組み込んでみてください。
適当に作ったので修正必要かもしれません。。。^^;
ご参考までに。
No.1
- 回答日時:
単純ですけど、CSVファイルはテキストファイルだから、Wordなどで3つのファイルを読み込んで、それぞれの1行目をコピー&ペーストして保存すればいいですよね。
なお、Wordで書式なし(テキスト形式)で保存したら、拡張子は.txtになるので、そこだけはファイル名の変更をしなければなりませんが・・・
この回答への補足
早速のご連絡ありがとうございます。
説明が不足しておりましてすいません。。。
今回作ろうとしているものは、Excel上にフォームで
ボタンをつけて、そのボタンをクリックすると
あるフォルダにあるCSVファイルを全て読み込み
1つのファイルを作成するという仕様になっているのです。
ご指摘の方法ですと、少々厳しいかと思っております。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで特定の場所にあるCSVファイル(複数)から特定場所を抜き出してExcelに転記したいです。 11 2023/05/23 16:29
- その他(プログラミング・Web制作) データ解析ソフトRでのファイル入力read.csvがエラーになります 7 2022/03/27 22:11
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) マクロを教えてください。 7 2023/06/01 19:47
- XML PHP.laravelについて 1 2023/07/06 15:26
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- Excel(エクセル) Excel VBAでフォルダが何層にもなっていて最下層の中にCSVファイルがあり最上層のファイルを指 4 2022/06/08 20:41
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Python CSVファイルについて
-
エクセルのVBAについて とある...
-
【Rコマンダー】データインポー...
-
エクセルマクロ、複数のCSVファ...
-
シェルスクリプトで文字コード変換
-
gnuplotで複数csvファイルから...
-
複数のCSVファイルを1つのファ...
-
コマンドプロンプトの「%1」と...
-
コマンドプロンプトのエラーに...
-
バッチでテキストファイルから...
-
大量のフォルダからひとつのフ...
-
チームズのチャット画面にファ...
-
バッチ処理でファイルの中身を...
-
exeファイルを実行するとコマン...
-
バッチ終了時にDOS窓を閉じるコ...
-
ファイルの最後に文字列挿入
-
アクセス 壊れた? 「ファイ...
-
多数のサブディレクトリ内のフ...
-
VBSが起動しない
-
VBAでワークシートを引数として...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのVBAについて とある...
-
Python CSVファイルについて
-
アクセスと同フォルダのCSVファ...
-
csvファイルをlinuxコマンドで...
-
MAC フォルダ内のPDF件数とペー...
-
エクセル 指定範囲をCSV出力
-
FTPコマンド mgetでとまってし...
-
複数のcsvファイルを統合、でも...
-
【Rコマンダー】データインポー...
-
複数エクセルファイルの合成
-
バッチ処理でcsvファイルの文字...
-
csv形式からbmpを作成
-
csvをVBAを使ってエクセル形式...
-
gnuplotで複数csvファイルから...
-
エクセルマクロ、複数のCSVファ...
-
マクロ 上位モジュールの作成
-
エクセルにまとめたcsvデータを...
-
複数のCSVファイルを読み込んで...
-
Excelの帳票形式をアクセスに取...
-
csvファイルを結合するバッ...
おすすめ情報