Solved, OP can delete it. Export part of excelsheet automatically

[hufada]

HI, all, I tried to export part of the excel sheet to a text file. I used the folowing code, With Application.GetSaveAsFilename(), someone has to click on the "SAVE" button in the pop-up window. Is there a way I can save the text file without the click?

Thank you very much.

Public Sub Dotheexport()
Dim FName As Variant
Dim Sep As String

FName = Application.GetSaveAsFilename("C:\Documents and Settings\xyz\Desktop\Data.txt")


If FName = False Then
MsgBox "You didn't select a file"
Exit Sub
End If

Sep = " "
'Sep = InputBox("Enter a single delimiter character (e.g., comma or semi-colon)", _
"Export To Text File")

ExportToTextFile CStr(FName), Sep, _
False
End Sub