Q&A
列方向って、行列の入れ替えって事ですか？
それとも、ファイルを列方向に並べるように追加するって事？
大量にあるcsvファイルを1つのcsvて列方向にまとめたいです。
現在使用しているコードは下記であり、行方向に結合することはできました。
これを行方向ではなく、列方向にまとめる方法はございますでしょうか。
ご回答の程、よろしくお願いいたします。
-----ソースコード-----
Option Explicit
Dim a, c, cr, cv, f, gf, i, j, n(), so, x
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(so.GetParentFolderName(WScript.ScriptFullName))
c = - 1
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "csv" Then
c = c + 1
ReDim Preserve n(c)
n(c) = f.Name
End If
Next
For i = 0 to c - 1
For j = i + 1 to c
If n(i) > n(j) Then
x = n(i)
n(i) = n(j)
n(j) = x
End If
Next
Next
Set cr = so.OpenTextFile(gf & "\Merge.csv",2 ,True)
For i = 0 to c
Set cv = so.OpenTextFile(gf & "" & n(i), 1)
a = cv.ReadAll
cv.Close
Set cv = Nothing
If i > 0 Then
a = Mid(a, InStr(a, vbCrLf) + 2)
End If
cr.Write a
Next
cr.Close
Set cr = Nothing
Set gf = Nothing
Set so = Nothing
MsgBox("Finished!")
ファイルを列方向に並べるように追加したいです。
1列1ファイルってことですか？
いえ、1ファイルにつき数列使う予定です。
イメージがわかないので、なんかサンプルか何かあると助かります。
> ttyp03さん
ファイルのマージというと、行を追加のイメージですけど、それを列として追加したいという事だと思います。
エクセルに例えるなら、複数のシートを横に張り付けていくイメージ（行は揃わない）
saziさん、その通りです。
雑な説明になって申し訳ありませんが、1シート内に
ファイル1
ファイル2
ファイル3
･
･
･
となっているものを
ファイル1ファイル2ファイル3...
としたいです。
1つのファイルにつき1〜8列のデータが入っています。
-> file1
a,b,c
d,e,f
-> file2
1,2,3
4,5,6
7,8,9
のとき、
a,b,c,1,2,3
d,e,f,4,5,6
,,,7,8,9
みたいになるということかな？
はい、そのイメージです。
全然想像と違ってましたわ。
各ファイルで行数が一致しているなら割と簡単そうですが、一致していないときは面倒ですね。
これ → ,,,7,8,9
回答2件
0
似たようなことを考えてる人は世の中に結構いるものです
とりあえず見つけたのはこちら
現在、複数のCSVファイルがあり、そのデータを下方向（行方向）ではなく、右方向（列方向）に一つのシートへまとめていきたいのです
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1440723774
ベストアンサーの方のコードは、複数ファイル指定したものをすべて列方向に結合して新しいCSVファイルとして出力する動きをします
１）1つ目のファイルを開く
２）UsedRangeを使って埋まっているセル範囲を特定し、コピーして結合用シートの1列目に貼り付ける
３）貼付け後の最後の列番号を保持する
４）2つ目のファイルを開く
５）UsedRangeを使って埋まっているセル範囲を特定し、コピーし結合用シートに３）で保持した列から後ろに貼り付ける
・・・
といったことを全ファイル繰り返したら、結合用シートをCSV形式で保存する
参考にされてみてはいかがでしょうか
投稿2019/02/22 07:11
総合スコア3111
0
CSV出力しながらだと最大行数のものを求めるために一旦すべてのファイルを読み込んでからなど制御が複雑そうです。
CSVを一旦シートに貼り付けてそのシートを統合してからCSVとして出力するように考えられては如何でしょうか。
投稿2019/02/22 05:02
総合スコア25188
あなたの回答
tips
プレビュー
