質問: j + 1 Loop Close #1 Else MsgBox "キャンセルされました" End If End Sub ``` また、これを基にして数字のみをExcelに書き出す方法はございますでしょうか? わからないのでお教えください。よろしくお願いします。
回答: CSVファイルを一行毎に読み込んで行と列を入れ替えてEXCELに展開するには先ずVBAの基礎をもっと勉強すべきです。 ただし、目的を達成する為なら、他のやり方があります。 1. 取り込み用のEXCELを予め作成しておく。 2. 1のEXCELで以降のVBA処理を実行する。 3. 対象のCSVファイルを開く(参考VBA-1) 4. 3で開いたCSVのシートの有効範囲をコピーする。(参考VBA-2) 5. 1のEXCELの貼り付け先シートに行と列を入れ替えてペーストする。(参考VBA-3) ``` ' 参考VBA-1 CSVファイルを開く Workbooks.Open Filename:="取込み対象CSVファイルのフルパス" ' 参考VBA-2 有効範囲をコピーする Workbooks("CSVファイル名").Sheets(1).Range("A1:L2").Copy ' 参考VBA-3 コピーしたセルを行と列を入れ替えて貼り付ける ThisWorkbook.Sheets("コピー先のシート名").Range("B2").PasteSpecial Paste:=PasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True ``` サンプルコードでは、CSVファイル2行で、取込み先シートの開始位置をB2としています。 有効範囲を取得する方法は過去のteratailに記載されていると思います。