質問編集履歴
3
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,6 +1,6 @@
|
|
1
1
|
### CSVを読み込んでファイルに書き出したい
|
2
2
|
|
3
|
-
データ1,値,1,2,3...8,9のように1つの行に12個要素のあるCSVを読み込み、ファイルに指定のセルから縦に書き出したいのですがエラーが出て実行できません。
|
3
|
+
データ1,値,1,2,3...8,9のように1つの行に12個要素のあるCSVを読み込み、ファイルに指定のセルから縦に書き出したいのですが、エラーが出て実行できません。
|
4
4
|
|
5
5
|
|
6
6
|
|
2
test
CHANGED
File without changes
|
test
CHANGED
File without changes
|
1
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,6 +1,6 @@
|
|
1
1
|
### CSVを読み込んでファイルに書き出したい
|
2
2
|
|
3
|
-
1つの行に1
|
3
|
+
データ1,値,1,2,3...8,9のように1つの行に12個要素のあるCSVを読み込み、ファイルに指定のセルから縦に書き出したいのですがエラーが出て実行できません。
|
4
4
|
|
5
5
|
|
6
6
|
|
@@ -40,7 +40,7 @@
|
|
40
40
|
|
41
41
|
j = 0
|
42
42
|
|
43
|
-
Do While i < 1
|
43
|
+
Do While i < 12
|
44
44
|
|
45
45
|
Print #1, Cells(i + 2, j).Value = tmp(i)
|
46
46
|
|