VBA: how to create new txt file name?

[joeu2004]

The code below demonstrates how I wanted to create a new txt file name. But apparently, GetOpenFilename works only for existing files.

(That is, when I enter a non-existing file name, I get the error "File not found".)

How can I get an API like GetOpenFilename, but for entering non-existing (or existing) file names?

Option Explicit

Sub testit()
Dim fdOut As Integer, path As String

On Error Resume Next
path = Application.GetOpenFilename(Title:="Open new OUTPUT file")
If path = "" Or path = "False" Then Exit Sub

MsgBox path

On Error GoTo 0
fdOut = FreeFile
Open path For Output Access Write As #fdOut 

MsgBox "open okay"

' [... write to file ...]

Close #fdOut 

End Sub

 

[Logit]

.
Will this work ?

Option Explicit


Sub ExportRangetoFile()


Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range


On Error Resume Next


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add


saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close


Application.DisplayAlerts = True
Application.ScreenUpdating = True


End Sub

 

[joeu2004]

Yes! Specifically, just this line:

path = Application.GetSaveAsFilename("", Title:="Open new OUTPUT file")

I thought, too, that what I wanted was "like" the Save As interface. But I must have made a mistake when I went looking for GetSaveAsFilename.

Thanks so much.

 

[Logit]

.
You are welcome.