質問編集履歴

2

追加情報

2019/12/28 06:41

投稿

leeev
leeev

スコア20

test CHANGED
File without changes
test CHANGED
@@ -47,3 +47,7 @@
47
47
 
48
48
 
49
49
  ```
50
+
51
+ 追記:作られるシートの数は5つです。
52
+
53
+ ご指摘の通り、n=0と初期化したところすべてのシートにテキストファイルが読み込まれました。

1

誤字修正

2019/12/28 06:41

投稿

leeev
leeev

スコア20

test CHANGED
File without changes
test CHANGED
@@ -10,7 +10,7 @@
10
10
 
11
11
 
12
12
 
13
- Dim fileName As Single
13
+ Dim fileName As Integer
14
14
 
15
15
  Dim buf As String, n As Long
16
16