![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
csvファイル数は700~1000個程度でひとつのフォルダに格納されています。
このファイルをEXCEL形式で開くと、1行目にフィールド名(A~Z列で固定)、2行目以降にデータが入っています。行数はファイルにより1~100行程度で変動します。
このファイルを1つのエクセルファイルの同一シートに結合(マージ)するVBAがほしいです。
ここで、(できればですが)EXCELにマージするにあたり、1行目のみフィールドの値、2行目以降にそれぞれのcsvの2行目以降データの値を入れていくようにしたいです。つまり、フィールド名の行が何行も出てくるのを避けたいです。
申し訳ございませんが、ご指導いただけたら幸いです。よろしくお願いします。
No.2ベストアンサー
- 回答日時:
しばらく前に書いた事があるコードです。
参考になるようだったら応用してみてください。
'---------------------------------------------------------------------
Private Sub try()
Dim ws As Worksheet
Dim fd As String
Dim fn As String
Dim ret As String
Dim i As Long
Dim n As Long
Dim x As Long
Dim s As Long
fd = ThisWorkbook.Path & "\"
'fd = FDSELECT 'フォルダ選択の場合
If Len(fd) = 0& Then Exit Sub
Application.ScreenUpdating = False
'ActiveWorkbookにシートを追加して処理
Set ws = Sheets.Add
On Error GoTo errHndler
fn = Dir(fd & "*.csv")
x = 1
s = 1
Do Until Len(fn) = 0&
i = i + 1
'データCountにより次のセット先変更
n = n + x
'外部データ取り込み
x = CSVQRY(ws, fd & fn, ws.Cells(n, 2), s)
If x < 0 Then
Err.Raise Number:=1000, Description:="CSV読み込みに失敗"
ElseIf (n + x) >= Rows.Count Then
'行数overしてもエラーかからないため取り込み直し
ws.Rows(n).Resize(x).Delete
Set ws = Sheets.Add
n = 1
x = CSVQRY(ws, fd & fn, ws.Cells(n, 2), 1&)
End If
'ファイル名をA列にセット
ws.Cells(n, 1).Resize(x).Value = fn
s = 2
fn = Dir()
Loop
If i > 0 Then
ret = i & "files.done"
Else
ret = "no file"
End If
errHndler:
If Err.Number <> 0 Then
ret = Err.Number & vbTab & Err.Description
Debug.Print ret
End If
Application.ScreenUpdating = True
MsgBox ret
Set ws = Nothing
End Sub
'---------------------------------------------------------------------
Private Function CSVQRY(ByRef ws As Worksheet, _
ByRef fs As String, _
ByRef rs As Range, _
ByVal sr As Long) As Long
Dim cnt As Long
On Error GoTo errChk
With ws.QueryTables.Add(Connection:="TEXT;" & fs, _
Destination:=rs)
.AdjustColumnWidth = False
.TextFilePlatform = xlWindows
.TextFileStartRow = sr
.TextFileCommaDelimiter = True
.Refresh False
cnt = .ResultRange.Rows.Count
.Parent.Names(.Name).Delete
.Delete
End With
CSVQRY = cnt
Exit Function
errChk:
CSVQRY = -1
End Function
'---------------------------------------------------------------------
Private Function FDSELECT() As String 'フォルダ選択Function
Dim obj As Object
Dim ret As String
Set obj = CreateObject("Shell.Application") _
.BrowseForFolder(0, "SelectFolder", 0)
If obj Is Nothing Then Exit Function
On Error Resume Next
ret = obj.self.Path & "\"
If Err.Number <> 0 Then
ret = obj.Items.Item.Path & "\"
Err.Clear
End If
On Error GoTo 0
Set obj = Nothing
FDSELECT = ret
End Function
end-uさん
ありがとうございます!まさにこんなツールがほしいと思ってました!しかもA列にファイル名が追加されるのは、データの出所がわかるのでさらに便利ですね!早速活用させていただきます!
本当にありがとうございました。
これにて質問を締め切らせていただきます。
No.1
- 回答日時:
自動化するならVBAを利用することになるでしょう。
基本的な考え方としては、csvをテキストファイルで1行ずつ読み込み、2行目以降をシートにコピーしてゆくということになるのかな?
(もちろん最初のファイルのみ、1行目も処理する)
処理が1行単位なので、カンマの処理さえできれば、あとはなんとかなるでしょう。
ただし、ファイル数1000、データの行数100とすると最大で100,000行くらいになるかも知れないので、1シートには納まらない可能性があります。
記入対象の行を監視して、シートの最大行を超えるなら、新しいシートに記入するなどの制御をしておいたほうがよさそうですね。
以下を組み合わせれば、概ねのところはできるかと。
1)フォルダ内の各ファイルを処理する方法は以下を参照
http://homepage2.nifty.com/kasayan/vba/dir.htm
2)ファイルの読込み(テキストファイル)の基本はこちら
http://officetanaka.net/excel/vba/file/file08.htm
3)csvの読み込みについてはこちら
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
各データ(セルに記入するデータ)内にカンマ(,)を含んでいる可能性がある場合は、その処理がちょいと面倒かも。
fujillinさん
ありがとうございます!ご紹介いただいたもわかりやすいですね。これを一人で作れるかは不安ですが、参考にさせていただきます!
> 基本的な考え方としては、csvをテキストファイルで1行ずつ読み込み、2> 行目以降をシートにコピーしてゆくということになるのかな?
> (もちろん最初のファイルのみ、1行目も処理する)
おっしゃる通りです。
トータルのデータでEXCELの行数で何とか間に合いそうですが、やはり大きなデータになるので処理速度を考えると、ACCESSなどに一度インポートして、そのデータをEXCELで加工したほうが良さそうですかね。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】甲子園での思い出の残し方
「球場の砂を持って帰る」はもう古いと思った高校球児が、甲子園で負けた際に、思い出に残そうと思って行ったこと
-
複数のCSVファイルを横に並べてひとつのエクセルファイルへ結合する方法
Excel(エクセル)
-
複数のcsvファイルをフォルダごと指定して列方向に結合するマクロを作成したい
Visual Basic(VBA)
-
CSVファイルの指定列だけを読み込んでEXCELに表示したい
Excel(エクセル)
-
-
4
VBAで2つのデータを横に結合できますか?
Access(アクセス)
-
5
【エクセル VBA】CSVファイルの結合
Excel(エクセル)
-
6
【VBA初心者】同じフォルダ内のcsvファイルを1つのシートに縦に並べる
Excel(エクセル)
-
7
Excel VBAを使った複数のCSVファイルの読み込みについて教えてください。
Excel(エクセル)
-
8
複数のcsvをVBAでマージする方法をご教示ください!
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のCSVファイルを横に並べて...
-
VBAでCSVの1行目だけを書き換え...
-
エクセルの指数を無効にしたい
-
CSVファイルの結合(重複データ...
-
二つのCSVファイルを照らし合わ...
-
EXCELにcsv形式の外部データを...
-
excelインポート時の「実行時エ...
-
フォルダ内の全ブックのシート...
-
複数のデータ系列の線の太さを...
-
エクセル終了時の保存確認メッ...
-
VBA[Private Sub]のコードをシ...
-
ExcelVBAで今開いているユーザ...
-
最初の1回のみにボタンクリッ...
-
エラー内容が分かりません
-
Excelのラジオボタンにチェック...
-
Excelマクロ ファイル名が変わ...
-
エクセル2010 Shapeをクリップ...
-
Excelファイルがxslからxslmに??
-
エクセル2007 テキストボ...
-
vbsで、フォルダ内にあるcsvフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの指数を無効にしたい
-
複数のCSVファイルを横に並べて...
-
excelインポート時の「実行時エ...
-
「ほかのアプリケーションを無...
-
VBAでCSVの1行目だけを書き換え...
-
EXCELにcsv形式の外部データを...
-
大量のCSVデータを1つのエ...
-
複数のcsvファイルを1つのEXCEL...
-
Excel VBAを使った複数のCSVフ...
-
CSVファイルの結合(重複データ...
-
二つのCSVファイルを照らし合わ...
-
datファイル→csvファイル→datフ...
-
【VBA初心者】同じフォルダ内の...
-
同じ形のCSVファイルを複数同時...
-
EXCELLの動きが遅い
-
CSVファイルを読み込んだときに...
-
VBAでユーザーフォーム上に参照...
-
エクセル2003 CSVファイルの取...
-
複数の同じ様式のエクセルデー...
-
エクセルでcsvデータを自動読み...
おすすめ情報