エクセルマクロの質問です。

質問

例えば、A.xlsというファイルに01.csv，02.csv，・・・，20.csvといういくつかのファイルからデータを取り出すのですが、A.xlsのシート１の1列目に01.csvの1列目を貼り付けて、01.csvの2列目はA.xlsのシート２の1列目に貼り付けるようにシートをずらして行って、02.csvの1列目はA.xlsのシート１の2列目、02.csvの2列目はA.xlsのシート２の2列目というようにしたいのですが、どのようなプログラムがよいのでしょうか？
エクセルマクロ初心者なので説明が不十分かも知れませんがよろしくお願いします。

回答No.5

peachstrea

勘違いしてましたでごじゃりますぅorz
（こんなことで受験大丈夫か？＞アタシ＜問題文良く読めといういい教訓になったかも？）

csvファイル名（拡張子を除いたファイル名）の数字が各シートでの列順になって、csvファイルのフィールド順がシートの順番になればいいんですね(^^ゞ

使い方は前回と同じでcsvファイルは01.csvから始まり02.csv、03.csv・・・98.csv、99.csvと連番であることとドラッグ＆ドロップで処理開始です。
処理速度はお世辞にも速くはないので、ScreenUpdatingをFalse→Trueにすれば少しは早くなるかもしれませんがパラパラ見えるのもそれはそれでなんだか面白いです（教科書の隅っこに書いたパラパラマンガみたい）。

'----Sample2.vbs----
Set objArgs = WScript.Arguments
Set objAXLS = CreateObject("Excel.Application")
objAXLS.Visible = True
Set Book = objAXLS.WorkBooks.Add
Set objFS = CreateObject("Scripting.FileSystemObject")
For i = 0 To objArgs.length - 1
m = 1
Set f = objFS.OpenTextFile(Replace(objArgs(i), objFS.GetBaseName(objArgs(i)), AddZero(i+1)), 1)
arrLine = Split(f.ReadAll, vbCrLf)
For j = 0 To UBound(arrLine)
arrCell = Split(arrLine(j), ",")
n = (UBound(arrCell)+1) - Book.Sheets.Count
If n > 0 Then
For p = 1 To n
Book.Sheets.Add
Next
End If
For k = 0 To UBound(arrCell)
With objAXLS
.Sheets("Sheet" & CStr(k+1)).Select
.Cells(m, i+1).Value = arrCell(k)
End With
Next
m = m + 1
Next
Next

Function AddZero(strNum)
If Len(strNum) = 1 Then
AddZero = "0" & strNum
Else
AddZero = strNum
End If
End Function
'----Code End----

PS:ここってタブはスペースに変換してくれないのね＞ねぇどうして？＞教えて！goo（爆）

この投稿のマルチメディアは削除されているためご覧いただけません。