回答編集履歴
1
修正、追記
test
CHANGED
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
|
|
31
31
|
'
|
|
32
32
|
|
|
33
|
-
Open ThisWorkbook.Path & "\output.csv" For
|
|
33
|
+
Open ThisWorkbook.Path & "\output.csv" For Input As #1 '＊修正
|
|
34
34
|
|
|
35
35
|
Do Until EOF(1)
|
|
36
36
|
|