Adding a Path to a String in VBA

Question

I'm creating an output file using FileSystemObject in Excel VBA, and I want to enable the user to choose the location where to save his output using a FileDialog box.

Here is a s snippet of my code,

Dim objFSO As FileSystemObject
Dim tsStream As TextStream
Dim strFilePath as String
Dim FD as FileDialog

Set FD = Application.FileDialog(msoFileDialogSaveAs)

With FD
    .AllowMultiSelect = False
    If .Show = -1 Then
        For Each i in .SelectedItems
            strFilePath = i
        Next i
    Else

    End If
End With
Set FD = Nothing

Set objFSO = New FileSystemObject
Set tsStream = objFSO.CreateTextFile(strFilePath &".txt", True)

The problem is the code's "Save as type:" is Excel file types.

Can anybody help me?

Try here. stackoverflow.com/a/19856764/1274820

user1274820
– user1274820

2016-08-08 04:30:29 +00:00
Commented Aug 8, 2016 at 4:30 — user1274820
– user1274820, Commented Aug 8, 2016 at 4:30

cyboashu · Accepted Answer · 2016-08-08 04:35:42Z

2

You can't set filters to msoFileDialogSaveAs, instead of that, to browse to a filepath, use msoFileDialogFilePicker. Now you can set filters.

Set FD = Application.FileDialog(msoFileDialogFilePicker)
FD.Filters.Clear
FD.Filters.Add "Text file", "*.txt"

answered Aug 8, 2016 at 4:35

cyboashu

10.5k2 gold badges32 silver badges48 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Adding a Path to a String in VBA

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related