回答編集履歴
3
誤記修正
test
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
Set wb = Workbooks.Open("C:\Users\User_Name\Desktop\フォルダー\ワークブック.xls")
|
|
22
22
|
|
|
23
|
-
wb.SaveAs Filename:="C:\Users\User_Name\Desktop\フォルダー\サブフォルダー\ワークブック.xls", FileFormat:=xlWorkbookDefault
|
|
23
|
+
wb.SaveAs Filename:="C:\Users\User_Name\Desktop\フォルダー\サブフォルダー\ワークブック.xlsx", FileFormat:=xlWorkbookDefault
|
|
24
24
|
|
|
25
25
|
wb.Close
|
|
26
26
|
|
2
回答修正
test
CHANGED
|
@@ -22,6 +22,10 @@
|
|
|
22
22
|
|
|
23
23
|
wb.SaveAs Filename:="C:\Users\User_Name\Desktop\フォルダー\サブフォルダー\ワークブック.xls", FileFormat:=xlWorkbookDefault
|
|
24
24
|
|
|
25
|
-
wb
|
|
25
|
+
wb.Close
|
|
26
|
+
|
|
27
|
+
Set wb = Nothing
|
|
28
|
+
|
|
29
|
+
Application.DisplayAlerts = True
|
|
26
30
|
|
|
27
31
|
```
|
1
追記
test
CHANGED
|
@@ -3,3 +3,25 @@
|
|
|
3
3
|
|
|
4
4
|
|
|
5
5
|
※`c:\temp\dir1\test.xlsx` と `c:\temp\dir2\test.xlsx`を同時に開けないですよね？
|
|
6
|
+
|
|
7
|
+
|
|
8
|
+
|
|
9
|
+
> マクロを除外しようと考えているからです。
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
13
|
+
`xls`形式にこだわらないなら`xlsx`で保存する方法もあります。
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
```VBA
|
|
18
|
+
|
|
19
|
+
Application.DisplayAlerts = False
|
|
20
|
+
|
|
21
|
+
Set wb = Workbooks.Open("C:\Users\User_Name\Desktop\フォルダー\ワークブック.xls")
|
|
22
|
+
|
|
23
|
+
wb.SaveAs Filename:="C:\Users\User_Name\Desktop\フォルダー\サブフォルダー\ワークブック.xls", FileFormat:=xlWorkbookDefault
|
|
24
|
+
|
|
25
|
+
wb
|
|
26
|
+
|
|
27
|
+
```
|