質問編集履歴

1

冒頭部分、記載ミスがありした。

2022/03/02 08:00

投稿

macro123
macro123

スコア1

test CHANGED
File without changes
test CHANGED
@@ -9,7 +9,8 @@
9
9
 
10
10
  CopyPaste()
11
11
 
12
+ Dim FilePath
12
- Dim FilePath = ThisWorkbook.Path & "¥Results¥A¥B.xlsx"
13
+ FilePath = ThisWorkbook.Path & "¥Results¥A¥B.xlsx"
13
14
 
14
15
  Workbooks.Open FilePath
15
16