CSVを読み込んでExcelに書き出したい

CSVを読み込んでファイルに書き出したい

データ1,値,1,2,3...8,9のように1つの行に12個要素のあるCSVを読み込み、ファイルに指定のセルから縦に書き出したいのですが、エラーが出て実行できません。

エラーメッセージ

実行時エラー'1004';
アプリケーション定義またはオブジェクト定義のエラーです。

ソースコード

VBA
1Sub CommandButton1_Click()
2    Dim ofn As Variant, buf As String
3    Dim tmp As Variant
4    Dim j As Integer, i As Integer
5     ofn = Application.GetOpenFilename("ブック, *.csv")
6     Workbooks.Open ThisWorkbook.Path
7     If ofn <> "False" Then
8         Open ofn For Input As #1
9            Line Input #1, buf
10            i = 0
11            j = 0
12            Do While i < 12
13                Print #1, Cells(i + 2, j).Value = tmp(i)
14                i = i + 1
15                j = j + 1
16            Loop
17        Close #1
18     Else
19         MsgBox "キャンセルされました"
20     End If
21End Sub
22

また、これを基にして数字のみをExcelに書き出す方法はございますでしょうか？

わからないのでお教えください。よろしくお願いします。

行動規範の内容に同意します

回答2件

ベストアンサー

CSVファイルを一行毎に読み込んで行と列を入れ替えてEXCELに展開するには先ずVBAの基礎をもっと勉強すべきです。

ただし、目的を達成する為なら、他のやり方があります。
0. 取り込み用のEXCELを予め作成しておく。
0. １のEXCELで以降のVBA処理を実行する。
0. 対象のCSVファイルを開く（参考VBA-1）
0. 3で開いたCSVのシートの有効範囲をコピーする。（参考VBA-2）
0. 1のEXCELの貼り付け先シートに行と列を入れ替えてペーストする。（参考VBA-3）

VBA
1' 参考VBA-1 CSVファイルを開く
2Workbooks.Open Filename:="取込み対象CSVファイルのフルパス"
3
4' 参考VBA-2 有効範囲をコピーする
5Workbooks("CSVファイル名").Sheets(1).Range("A1:L2").Copy
6
7' 参考VBA-3 コピーしたセルを行と列を入れ替えて貼り付ける
8ThisWorkbook.Sheets("コピー先のシート名").Range("B2").PasteSpecial Paste:=PasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True