質問編集履歴
1
エラー原因が異なっていたため質問を修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,18 +4,18 @@
|
|
|
4
4
|
初回は問題なく動くのですが、連続で使用すると
|
|
5
5
|
「リモートサーバーがないか、使用できる状態ではありません。」
|
|
6
6
|
というエラーが表示されてしまいます。
|
|
7
|
-
|
|
7
|
+
デバック画面で確認したところ、Loopの1回目は問題なく処理できており、
|
|
8
|
-
|
|
8
|
+
Loopの2回目の★のところで停止してしまっていました。
|
|
9
|
+
バックグラウンドでWordが開いたままになってしまうので、再開に手間取っております。
|
|
9
10
|
|
|
10
11
|
```VBA
|
|
11
12
|
Set wdApp = CreateObject("Word.Application")
|
|
12
13
|
Do While MyFile <> ""
|
|
13
|
-
Set objDoc = wdApp.Documents.Add()
|
|
14
|
-
|
|
14
|
+
Set wdDoc = wdApp.Documents.Open(MyPath & MyFile)
|
|
15
15
|
j = wdDoc.Range.Information(wdNumberOfPagesInDocument)
|
|
16
16
|
ws1.Cells(i, 6).Value = MyFile
|
|
17
17
|
ws1.Cells(i, 7).Value = j
|
|
18
|
-
Documents.Close SaveChanges:=wdDoNotSaveChanges
|
|
18
|
+
Documents.Close SaveChanges:=wdDoNotSaveChanges ★
|
|
19
19
|
Set wdDoc = Nothing
|
|
20
20
|
MyFile = Dir()
|
|
21
21
|
Loop
|