回答編集履歴
1
追記
answer
CHANGED
|
@@ -10,4 +10,24 @@
|
|
|
10
10
|
Application.DisplayAlerts = False
|
|
11
11
|
wb.Save
|
|
12
12
|
Application.DisplayAlerts = True
|
|
13
|
+
```
|
|
14
|
+
---
|
|
15
|
+
更新された質問に対応した版
|
|
16
|
+
```VBA
|
|
17
|
+
Dim wb_from As Workbook
|
|
18
|
+
Dim wb_to As Workbook
|
|
19
|
+
|
|
20
|
+
' 現在のブックを保持
|
|
21
|
+
Set wb_from = ActiveWorkbook
|
|
22
|
+
' 保存済みワークブックを開く
|
|
23
|
+
Set wb_to = Workbooks.Open("xxxx.xlsx")
|
|
24
|
+
' シートをコピー
|
|
25
|
+
wb_from.Worksheets(1).Copy before:=wb_to.Worksheets(1)
|
|
26
|
+
' シート名を変更
|
|
27
|
+
wb_to.Worksheets(1).Name = wb_from.Worksheets(1).Name
|
|
28
|
+
' 保存
|
|
29
|
+
wb_to.Save
|
|
30
|
+
' 閉じる
|
|
31
|
+
wb_to.Close
|
|
32
|
+
|
|
13
33
|
```
|