回答編集履歴
1
コード修正
test
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
|
-
FileName = Application.GetSaveAsFilename(InitialFileName:="999999" & Format(Date, "ddmmyyyy") & "xls", FileFilter:="Excelファイル,*.xls
|
|
9
|
+
FileName = Application.GetSaveAsFilename(InitialFileName:="999999" & Format(Date, "ddmmyyyy") & "xls", FileFilter:="Excelファイル,*.xls")
|
|
10
10
|
|
|
11
11
|
If FileName = False Then
|
|
12
12
|
|
|
@@ -14,7 +14,7 @@
|
|
|
14
14
|
|
|
15
15
|
End If
|
|
16
16
|
|
|
17
|
-
ActiveWorkbook.SaveAs FileName
|
|
17
|
+
ActiveWorkbook.SaveAs FileName , FileFormat:=xlExcel8
|
|
18
18
|
|
|
19
19
|
End Sub
|
|
20
20
|
|