how to let user select filename when using macro

[joed]

I have created a macro to open a text file and set the columns,widthes,types etc. It works fine except it always opens the same file.
How do I make it so the user can select the file name to open. Currently it only opens the one file name used when I created the macro. Is there some sort of pause command I can insert into the macro?

[bergy]

On 2002-05-07 11:13, joed wrote:
I have created a macro to open a text file and set the columns,widthes,types etc. It works fine except it always opens the same file.
How do I make it so the user can select the file name to open. Currently it only opens the one file name used when I created the macro. Is there some sort of pause command I can insert into the macro?

How about the GetOpenFileName method. Look under Help.

[Von Pookie]

I got some help with something along those lines a little while back.

Try adding this to your code instead of opening the one file:

Which = Application.GetOpenFilename(MultiSelect:=True)

            'Which now contains an array of file names which you can enumerate through

        For I = 1 To UBound(Which)

          Workbooks.Open Which(I)

This is what worked for me when I wanted it to bring up the open dialog box and let someone choose
the files they want to open.

Hope this helps,

_________________
~*Kristy*~

"Catapultam habeo. Nisi pecuniam omnem mihi dabis, ad caput tuum saxum immane mittam."


[ This Message was edited by: Von Pookie on 2002-05-07 11:27 ]

[John McGraw]

On 2002-05-07 11:13, joed wrote:
I have created a macro to open a text file and set the columns,widthes,types etc. It works fine except it always opens the same file.
How do I make it so the user can select the file name to open. Currently it only opens the one file name used when I created the macro. Is there some sort of pause command I can insert into the macro?

dim FileName as String

FileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")

[joed]

how would I insert that code into this?

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 05/07/2002 by joe
'

'
Workbooks.OpenText FileName:="T:Mcdrpswg01