回答編集履歴
2
コード修正
answer
CHANGED
|
@@ -11,7 +11,7 @@
|
|
|
11
11
|
|
|
12
12
|
```vba
|
|
13
13
|
Dim myBook As Workbook
|
|
14
|
-
Set myBook =
|
|
14
|
+
Set myBook = ThisWorkbook 'コードの記述してあるブック ActiveWorkbook
|
|
15
15
|
|
|
16
16
|
Dim newBook As Workbook
|
|
17
17
|
Set newBook = Workbooks.Add '新規ワークブックを作成
|
1
コード修正
answer
CHANGED
|
@@ -26,9 +26,6 @@
|
|
|
26
26
|
'newBook.Close
|
|
27
27
|
'Set newBook = Workbooks.Open(fullPath)
|
|
28
28
|
|
|
29
|
-
myBook.Sheets(
|
|
29
|
+
myBook.Sheets("元シート").Copy _
|
|
30
|
-
Before:=newBook.Sheets(1)
|
|
30
|
+
Before:=newBook.Sheets(1)
|
|
31
|
-
|
|
32
|
-
|
|
33
|
-
|
|
34
31
|
```
|