回答編集履歴

1

こちらかがいいかも

2020/08/01 08:35

投稿

mako1972
mako1972

スコア383

test CHANGED
@@ -1,27 +1,3 @@
1
1
  30個くらいのファイル数で試してみましたが実行に問題なかったですね・・。
2
2
 
3
3
  ただしWindows10 64 bit 20GのメモリのPCで、ファイルの内容はほとんどない状態です。
4
-
5
-
6
-
7
- 質問の内容と違いますが、この部分のエラー処理の記述も適切でないような気がします?
8
-
9
-
10
-
11
- On Error Resume Next 'エラー無視
12
-
13
- Set ws = Worksheets("レポート")
14
-
15
- On Error GoTo 0 'エラー無視解除
16
-
17
-
18
-
19
- [【VBA入門】エラーを処理する方法(On Error、Resume、GoTo)](https://www.sejuku.net/blog/35484)
20
-
21
-
22
-
23
- この部分をコメントアウトして実行してみるか、WEBサイトを参照して
24
-
25
- エラー内容が表示される状態にするなどしてブラッシュアップしていくほうが
26
-
27
- いいかもしれないですね・・。