teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップVBAに関する質問VBA：Excelから2つシートを同時に取り込み、指定した位置へ移動させたい

編集履歴

回答編集履歴

3

コード修正

2021/10/13 03:22

投稿

hatena19
hatena19

スコア34075

test CHANGED
@@ -22,12 +22,14 @@
22
22
 
23
23
  Dim wb1 As Workbook
24
24
 
25
- Set wb1 = Workbooks("不規則動詞変化表.xlsx")
25
+ Set wb1 = Workbooks.Open(filePath)
26
26
 
27
27
 
28
28
 
29
29
  wb1.Activate
30
30
 
31
- Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Move Before:=wb.Sheets(2)
31
+ Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Move _
32
+
33
+ Before:=wb.Sheets(2)
32
34
 
33
35
  ```

2

コード修正

2021/10/13 03:21

投稿

hatena19
hatena19

スコア34075

test CHANGED
@@ -28,6 +28,6 @@
28
28
 
29
29
  wb1.Activate
30
30
 
31
- Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Copy.Move Before:=wb.Sheets(2)
31
+ Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Move Before:=wb.Sheets(2)
32
32
 
33
33
  ```

1

コード修正

2021/10/13 03:17

投稿

hatena19
hatena19

スコア34075

test CHANGED
@@ -28,6 +28,6 @@
28
28
 
29
29
  wb1.Activate
30
30
 
31
- Worksheets(Array("表1", "表2")).Copy Before:=wb.Sheets(2)
31
+ Worksheets(Array(wb1.Worksheets(2).Name, wb1.Worksheets(8).Name)).Copy.Move Before:=wb.Sheets(2)
32
32
 
33
33
  ```