回答編集履歴

コード修正

2021/10/13 03:22

投稿

スコア34367

answer CHANGED Viewed

@@ -10,8 +10,9 @@
     Set wb = ThisWorkbook
     Dim wb1 As Workbook
-    Set wb1 = Workbooks("不規則動詞変化表.xlsx")
+    Set wb1 =  Workbooks.Open(filePath)
     wb1.Activate
-    Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Move Before:=wb.Sheets(2)
+    Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Move _
+        Before:=wb.Sheets(2)
 ```

コード修正

2021/10/13 03:21

投稿

スコア34367

answer CHANGED Viewed

@@ -13,5 +13,5 @@
     Set wb1 = Workbooks("不規則動詞変化表.xlsx")
     wb1.Activate
-    Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Copy.Move Before:=wb.Sheets(2)
+    Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Move Before:=wb.Sheets(2)
 ```

コード修正

2021/10/13 03:17

投稿

スコア34367

answer CHANGED Viewed

@@ -13,5 +13,5 @@
     Set wb1 = Workbooks("不規則動詞変化表.xlsx")
     wb1.Activate
-    Worksheets(Array("表1", "表2")).Copy Before:=wb.Sheets(2)
+    Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Copy.Move Before:=wb.Sheets(2)
 ```