質問編集履歴
1
「wb1」を「ワークブック1」に修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -29,8 +29,8 @@
|
|
|
29
29
|
|
|
30
30
|
ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).PasteSpecial Paste:=xlPasteValues
|
|
31
31
|
|
|
32
|
-
|
|
32
|
+
ワークブック1.Application.CutCopyMode = False
|
|
33
|
-
|
|
33
|
+
ワークブック1.Close True
|
|
34
34
|
|
|
35
35
|
End Sub
|
|
36
36
|
|