導出範圍爲XML，不帶文件擴展名

Question

我可以將excel表單範圍導出爲.xml。但是，我想保存沒有.xml擴展名。

我設法做到了，但又失去了它。

Sub CREATEXML() 

Dim Password As String 
Do Until Password = "away" 
    Password = InputBox("ARE YOU SURE???" & vbNewLine & "" & vbNewLine & "Please enter password below", "Processing...", "????") 
    If Password = "" Then 
     Exit Sub 
    End If 
Loop 

ActiveWorkbook.Sheets("XML").Activate 
Dim FileName As Variant 
Dim Sep As String 
FileName = Application.GetSaveAsFilename(InitialFileName:=AUTHORISESEPA.ValDtAUTHFILE.Value & "TESTING.xml", FileFilter:="XML Data(*.xml),*") 

If FileName = False Then 
     Exit Sub 
End If 
Sep = "" 
If Sep = vbNullString Then 

End If 
Debug.Print "FileName: " & FileName, "Separator: " & Sep 
ExportToTextFile FName:=CStr(FileName), Sep:=CStr(Sep), _ 
    SelectionOnly:=True, AppendData:=True 
End Sub 

我應該結束了1111112.21012014TESTING，不1111112.21012014TESTING.xml

這就是問題是：

FileName = Application.GetSaveAsFilename(_ 
    InitialFileName:=AUTHORISESEPA.ValDtAUTHFILE.Value & "TESTING.xml", _ 
    FileFilter:="XML Data(*.xml),*") 

Answer 1

在你提到，你加入 「TESTING.xml」 的路線。

FileName = Application.GetSaveAsFilename(_ 
InitialFileName:=AUTHORISESEPA.ValDtAUTHFILE.Value & "TESTING.xml", _ 
FileFilter:="XML Data(*.xml),*") 

只是刪除名爲「.xml」有：

FileName = Application.GetSaveAsFilename(_ 
InitialFileName:=AUTHORISESEPA.ValDtAUTHFILE.Value & "TESTING", _ 
FileFilter:="All files,*")