Changing Defaults on Text Editor in Excel 2000

[Ejohnson]

I download 6 text files daily and open them in Excel. They are pipe ( | ) delimited but the default in Text Editor is comma ( , ) delimited. How can I change or add the pipe delimiter as a default?

 

[Damon Ostrander]

Hi Erik,

Since you do this so often (daily) to so many files (6), I recommend that rather than changing the default you write a macro to read all 6 files using the | delimiter. This could reduce the entire affair to a single click.

Damon

 

[Ejohnson]

The six files have different names each day. I don't know how to make a macro that lets you choose the files to open during the macro.

 

[TommyGun]

Use the GetOpenFilename dialog.

Sub OpenFile()

Dim f as Variant

f = Application.GetOpenFilename

If f <> "False" Then Workbooks.Open Filename:=f

End Sub

 

[TommyGun]

Or if you wanted to open multiple files at once, you could use this code (or some version of it).

Sub OpenFile()

Dim f As Variant

f = Application.GetOpenFilename(MultiSelect:=True)

If IsArray(f) Then

    For i = 1 To UBound(f)
        Workbooks.Open FileName:=f(i)
    Next

ElseIf f <> "False" Then

    Workbooks.Open FileName:=f

End If

End Sub