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

質問

例えば、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.3

peachstrea

純粋なExcelマクロではないですが、VBSを経由した間接的Excelマクロというのはどうでしょう？

01.csvが次のような内容だとしますね。
1,2,3,4
A-1,B-1,C-1,D-1
A-2,B-2,C-2,D-2
A-3,B-3,C-3,D-3
A-4,B-4,C-4,D-4
A-5,B-5,C-5,D-5
A-6,B-6,C-6,D-6
A-7,B-7,C-7,D-7
A-8,B-8,C-8,D-8
A-9,B-9,C-9,D-9

便宜的に02.csvと03.csvと04.csvというのもあったとして01.csvと同じ内容とします。
ここで、コードを簡略化するため、csvファイルの拡張子を除いた部分（01～04）をそのままシート名の番号部分に割り当てているのでcsvファイルの名称は必ず1から始まる連番にしてください（数値でなかったり連番でないとエラーになります）。

次の内容を例えばSample.vbsという名前で保存し01.csv～04.csvのファイルをドラッグしてこのSample.vbsにドロップすると処理が始まります。

'----Sample.vbs----
Set objArgs = WScript.Arguments
Set objAXLS = CreateObject("Excel.Application")
objAXLS.Visible = True
Set Book = objAXLS.WorkBooks.Add
n = objArgs.length - Book.Sheets.Count

If n > 0 Then
For i = 1 To n
Book.Sheets.Add
Next
End If
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")

Set objFS = CreateObject("Scripting.FileSystemObject")
For i = 0 To objArgs.length - 1
sn = CInt(objFS.GetBaseName(objArgs(i)))
sname = "Sheet" & CStr(sn)
Set f = objFS.OpenTextFile(objArgs(i), 1)
arrCSV = Split(f.ReadAll, vbCrLf)
temp = ""
For j = 0 To UBound(arrCSV) - 1
arrRow = Split(arrCSV(j), ",")
temp = temp & arrRow(sn-1) & vbCrLf
Next
objIE.document.parentwindow.clipboardData.SetData "text" , temp
With objAXLS
.Sheets(sname).Select
.Cells(1,sn).Select
.ActiveSheet.Paste
End With
Next
objIE.Quit
'----Code End----

Excelの場合セル毎に操作すると時間がかかるようなのでクリップボード経由でExcelに貼り付けてみました。

なおソースネクストのウィルスセキュリティゼロがあると、csvファイルを開こうとするとなんだか警告ダイアログが表れますorz