質問編集履歴
1
誤記があったので修正しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
|
|
31
31
|
Dim Filename As String, Filepath As String, FileNo As Integer
|
|
32
32
|
|
|
33
|
-
Filepath.ActiveWorkbook.Path & Application.GetSaveAsFilename
|
|
33
|
+
Filepath.ActiveWorkbook.Path & Application.GetSaveAsFilename(Filename:=FileName, FileFormat:=csv)
|
|
34
34
|
|
|
35
35
|
FileNo = FreeFile
|
|
36
36
|
|