回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -2,11 +2,11 @@
|
|
|
2
2
|
Sub 請求書番号と日付を名前にしてxls形式にて保存()
|
|
3
3
|
Dim FileName As Variant
|
|
4
4
|
|
|
5
|
-
FileName = Application.GetSaveAsFilename(InitialFileName:="999999" & Format(Date, "ddmmyyyy") & "xls", FileFilter:="Excelファイル,*.xls
|
|
5
|
+
FileName = Application.GetSaveAsFilename(InitialFileName:="999999" & Format(Date, "ddmmyyyy") & "xls", FileFilter:="Excelファイル,*.xls")
|
|
6
6
|
If FileName = False Then
|
|
7
7
|
Exit Sub
|
|
8
8
|
End If
|
|
9
|
-
ActiveWorkbook.SaveAs FileName
|
|
9
|
+
ActiveWorkbook.SaveAs FileName , FileFormat:=xlExcel8
|
|
10
10
|
End Sub
|
|
11
11
|
```
|
|
12
12
|
|