Add CSV file to filter? VBA

[Mr2017]

Hi

I have some code which allows me to select a file to import.

However, I'd like to add .csv files to the list of files that can be shown in the list of files in the 2nd last row of code below.

Does anyone know how to do that, please?

Sub ImportFile()

Dim fd As FileDialog
Dim filewaschosen As Boolean
Dim ExcelFile As Workbook
Dim iWB As Workbook

Application.ScreenUpdating = False

Set ExcelFile = ActiveWorkbook
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Filters.Clear
'fd.Filters.Add "xlsx files", "*.xlsx"
fd.Filters.Add "Custom Excel Files", "*.xlsx, *.xlsm, *.xls"
fd.AllowMultiSelect = False

 

[daverunt]

Hi,

just add ( ,*.xxx ) for the file extension you want, inside the quotes?

fd.Filters.Add "Custom Excel Files", "*.xlsx, *.xlsm, *.xls, *.csv"

 

[Mr2017]

I had tried that, but it didn't work?

Please see below - do you know of any other reason why it wouldn't work?

Sub ImportFile()

Dim fd As FileDialog
Dim filewaschosen As Boolean
Dim ExcelFile As Workbook
Dim iWB As Workbook

Application.ScreenUpdating = False

Set ExcelFile = ActiveWorkbook
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Filters.Clear
'fd.Filters.Add "xlsx files", "*.xlsx"
fd.Filters.Add "Custom Excel Files", "*.xlsx, *.xlsm, *.xls, *.csv"

 

[John_w]

Insert another filter: fd.Filters.Add "CSV files", "*.csv"

 

[daverunt]

No reason it shouldn't work. Works for me.

 

[Mr2017]

Excellent!!!

Thanks @John_w ! That worked!!

And thank you for your suggestion, @daverunt