回答編集履歴

1

追記

2021/08/10 05:02

投稿

meg_
meg_

スコア10760

test CHANGED
@@ -1,3 +1,57 @@
1
1
  ``CreateObject("Excel.Application")``の箇所を``GetObject(, "excel.Application")``にしてはどうでしょうか?
2
2
 
3
3
  [オートメーション サーバーの GetObject と CreateObject Office動作](https://docs.microsoft.com/ja-jp/office/troubleshoot/office-suite-issues/getobject-createobject-behavior)
4
+
5
+
6
+
7
+ ---
8
+
9
+ 【追記】
10
+
11
+ > 記載いただいた内容にて実行したところ、「Debug.Print Workbooks(i).Name」 にて、
12
+
13
+ 下記のエラーが表示され、正常動作しませんでした。
14
+
15
+ 実行時エラー'9'
16
+
17
+ インデックスが有効範囲にありません。
18
+
19
+
20
+
21
+ 上記はまた別のエラーですね。
22
+
23
+ 下記コードで動作確認できました。
24
+
25
+
26
+
27
+ ```vba
28
+
29
+ Sub detect_book()
30
+
31
+
32
+
33
+ Dim i As Long
34
+
35
+ Dim appExcel As Object
36
+
37
+
38
+
39
+ Set appExcel = GetObject(, "excel.Application")
40
+
41
+
42
+
43
+ For i = 1 To appExcel.Workbooks.Count
44
+
45
+ Debug.Print appExcel.Workbooks(i).Name
46
+
47
+ Next i
48
+
49
+
50
+
51
+ Set appExcel = Nothing
52
+
53
+
54
+
55
+ End Sub
56
+
57
+ ```