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:<pre>
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)</pre>


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,

_________________<font color=red>~*</font><font color=blue>Kristy</font><font color=red>*~</font>

"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?

<pre/>
dim FileName as String
FileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")
</pre>

 

[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