質問編集履歴
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
### CSVを読み込んでファイルに書き出したい
|
|
2
|
-
データ1,値,1,2,3...8,9のように1つの行に12個要素のあるCSVを読み込み、ファイルに指定のセルから縦に書き出したいのですがエラーが出て実行できません。
|
|
2
|
+
データ1,値,1,2,3...8,9のように1つの行に12個要素のあるCSVを読み込み、ファイルに指定のセルから縦に書き出したいのですが、エラーが出て実行できません。
|
|
3
3
|
|
|
4
4
|
### エラーメッセージ
|
|
5
5
|
```
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
File without changes
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
### CSVを読み込んでファイルに書き出したい
|
|
2
|
-
1つの行に
|
|
2
|
+
データ1,値,1,2,3...8,9のように1つの行に12個要素のあるCSVを読み込み、ファイルに指定のセルから縦に書き出したいのですがエラーが出て実行できません。
|
|
3
3
|
|
|
4
4
|
### エラーメッセージ
|
|
5
5
|
```
|
|
@@ -19,7 +19,7 @@
|
|
|
19
19
|
Line Input #1, buf
|
|
20
20
|
i = 0
|
|
21
21
|
j = 0
|
|
22
|
-
Do While i <
|
|
22
|
+
Do While i < 12
|
|
23
23
|
Print #1, Cells(i + 2, j).Value = tmp(i)
|
|
24
24
|
i = i + 1
|
|
25
25
|
j = j + 1
|