Thread: Importing and formatting txt files

I am using the code below to open txt files. But prior to importing I would like to format them as comma delimited. What would the code be to accomplish this before actually opening the workbook?


Sub OpenMultipleFiles()
Dim fn As Variant, f As Integer
fn = Application.GetOpenFilename("Excel-files,*.xls", _
1, "Select One Or More Files To Open", , True)
If TypeName(fn) = "Boolean" Then Exit Sub
For f = 1 To UBound(fn)
Workbooks.Open fn(f)
Next f
End Sub