Using VBA to Create Input Box with Browse Button

dargane · #1 (**permalink**) 01-20-04, 23:39

I am using VBA to input data from csv datafiles. Currently, I have to use the InputBox function and type in the name of the file I want to use. Because typos are abundant (at least with me), I would like to use a box that allows me to browse the files on my hard drive. I see the box when I select "Start" and "Run" in windows, so I know it can be done, but I can't find it in VBA help. Anybody have any ideas?

DavidCoutts · #2 (**permalink**) 01-21-04, 04:51

The line of Code you are after to get the openfiledialog box is

Application.GetOpenFilename

this will produce the dialog box and then pass a string variable of the path to a variable.

Ive produced a quick example that will put the path name you select into a text box then when you press ok it will open the workbook

if it hasnt appeared i will e-mail it to you if you would like it.

David

Xl-Dennis · #3 (**permalink**) 01-21-04, 06:26

Hi,

In addition to what David has written You may check out the following procedure:

Code:

Sub Open_One_Or_Many_Files() 
Dim vaFiles As Variant 
Dim i As Long 

vaFiles = Application.GetOpenFilename _ 
         (FileFilter:="Excel Filer (*.xls),*.xls", _ 
         Title:="Open File(s)", MultiSelect:=True) 
 
If Not IsArray(vaFiles) Then Exit Sub 

 With Application 
      .ScreenUpdating = False 
      For i = 1 To UBound(vaFiles) 
         Workbooks.Open vaFiles(i) 
      Next i 
      .ScreenUpdating = True 
End With 

End Sub

Kind regards,
Dennis

dargane · #4 (**permalink**) 01-21-04, 21:17

David/Xl,

thanks for you help. It was exactly what I needed.

kri19081987 · #5 (**permalink**) 07-24-10, 09:56

Hi Dennis,

I got info from your code, Since I am still new to MSword VBA,

when i tried this code in MSWORD (2003), I got "Method or Data Member Not found" error.

could you please advice

Colin Legg · #6 (**permalink**) 07-24-10, 19:01

Hello,

Your post is the first on this thread for the last six years!

The code was written in Excel, not Word. For example, the Word object model does not have a member called Workbooks in <Globals>.

If you tell us exactly what you are trying to do then we may be able to help.

kri19081987 · #7 (**permalink**) 07-26-10, 08:00

Thanks colin,

I am trying to create a macro for converting *.txt files(anywhere available in hard drive) to *.doc format and store in specific location(Permanent location).

For this reason i need to add browse tool in my code. Since this was my first macro coding i didnt know the form tools much.. I tried adding miscellaneous keys in toolbox but neither of them doesnt satisfied what i am trying. So i added code given in this forum and added in my code but it is showing "member not found error"... Currently I am using MSword 2003 VBA..

Colin Legg · #8 (**permalink**) 07-26-10, 13:55

Hi,

The code on this thread is related to opening .CSV files in Excel, using Excel VBA. This thread is in an Excel board.

The question you have is about converting .TXT files to .DOC files in Word, using Word VBA.

The code on this thread is not suitable, so you need to remove it from your Word project. My recommendation is that you need to ask your question on a MS Word board or generic VBA board.

Hope that helps...

kri19081987 · #9 (**permalink**) 07-27-10, 03:13

Thanks colin

scottpaolucci · #10 (**permalink**) 08-03-10, 13:21

Quote:

Originally Posted by Xl-Dennis

Hi,

In addition to what David has written You may check out the following procedure:

Code:

Sub Open_One_Or_Many_Files() 
Dim vaFiles As Variant 
Dim i As Long 

vaFiles = Application.GetOpenFilename _ 
         (FileFilter:="Excel Filer (*.xls),*.xls", _ 
         Title:="Open File(s)", MultiSelect:=True) 
 
If Not IsArray(vaFiles) Then Exit Sub 

 With Application 
      .ScreenUpdating = False 
      For i = 1 To UBound(vaFiles) 
         Workbooks.Open vaFiles(i) 
      Next i 
      .ScreenUpdating = True 
End With 

End Sub

Kind regards,
Dennis

I also need this codes. Thanks

prashantkzha20 · #11 (**permalink**) 11-25-10, 22:16

Quote:

Originally Posted by DavidCoutts

The line of Code you are after to get the openfiledialog box is

Application.GetOpenFilename

this will produce the dialog box and then pass a string variable of the path to a variable.

Ive produced a quick example that will put the path name you select into a text box then when you press ok it will open the workbook

if it hasnt appeared i will e-mail it to you if you would like it.

David

Hey David,
I also want the same code as I want to compare two xlsm files on some basis. I will input the files from the input box and then store that into a two different text boxes and then compare them. Can you please email me the code for this purpose.Your help will be appreciated.

Thanks in advance

Internet Services

Web Development

Digital Marketing

Consumer Tech