Opening File Open Dialog Box In A Specific Folder

[markkramer]

Hi.

I'm trying to develop a macro that brings up the File Open dialog box in a specific folder. I found the following code in several places on Mr. Excel but found it still opened up the dialog box in my C:\TEMP folder. Any ideas on how to get it to open in the U:\PAR folder?

Thanks for you help!

Mark

Dim DIRECTORY As String
Dim fileToOpen As Boolean
DIRECTORY = "u:\par\"
ChDir DIRECTORY
fileToOpen = Application.GetOpenFilename("Excel Files (u:\par\*.xls), *.xls")
Workbooks.Open fileToOpen

 

[TommyGun]

Sure, but I think you are over-complicating it. You could simply browse once the Open dialog is loaded. Why would you need to duplicate the function of the built-in dialog box?

 

[JohnDoe22]

OK I figured it out.

Need to change to Workbooks.OpenText in order to get the import text editor to open.

I need to open the dat file in that manner to have the data sorted properly in columns (with comma as a delimiter), otherwise if I just open the dat file without the text import wizard the data is all messed up, making it difficult to process later.

Any thanks for your original script, helps me a lot