teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

正解コード 記載追加

2021/11/22 07:42

投稿

退会済みユーザー
answer CHANGED
@@ -5,5 +5,30 @@
5
5
  Application.ScreenUpdating = False
6
6
  を突っ込んでみたら、非アクティブ状態で実行ができました!
7
7
 
8
- このマクロでExcelファイルオープン>マクロ実行>上書き保存のがはかどりそうです。
8
+ Excelファイルオープン>マクロ実行>上書き保存のマクロをかすマクロがはかどりそうです。
9
- PowerAutomate も検討したのですが、今回はVBAでOKでした!
9
+ PowerAutomate も検討したのですが、今回はVBAでOKでした!
10
+
11
+
12
+ 正解コード
13
+ ---
14
+ 呼び出すマクロ
15
+ ```VBA
16
+
17
+ ' 略
18
+ ' ツールファイルを開く
19
+ Workbooks.Open ToolPath & "\" & ToolFile
20
+ doevents
21
+
22
+ ' このファイルの対象シートをアクティブにする
23
+ ThisWorkbook.Worksheets("予算1").Activate
24
+
25
+ ' スクリーン更新不可
26
+ Application.ScreenUpdating = False
27
+
28
+ ' マクロを実行
29
+ Application.Run "'" ToolPath & "\" & ToolFile & "'!" & MacroName1
30
+ DoEvents
31
+
32
+
33
+ ' 略
34
+ ```