回答編集履歴

1

コード追記

2020/10/29 12:20

投稿

hatena19
hatena19

スコア34075

test CHANGED
@@ -3,3 +3,27 @@
3
3
  excelのバージョンは2019です。
4
4
 
5
5
  バージョンの違いなのか、それともどこかに設定があるのか、どうなんでしょうね。
6
+
7
+
8
+
9
+ 最悪、ブックを開くしかないように思いますが、その時は、下記のようにすると普通に開くより高速化できます。
10
+
11
+ Newで新規Excelインスタンスを生成してそちらで開く。
12
+
13
+
14
+
15
+ ```vba
16
+
17
+   Dim xls As New Excel.Application
18
+
19
+   Dim wb As Workbook
20
+
21
+   Application.ScreenUpdating = False
22
+
23
+   Set wb = xls.Workbooks.Open(ThisWorkbook.Path & "\test.xlsm")
24
+
25
+
26
+
27
+ '以下略
28
+
29
+ ```