G
Guest
Guest
If I use the following code where do I put it? Can I attach it to a command button?
Sub GetImportFileName()
'Set up the file filters
Filter = "Text Files (*.txt),*.txt," & _
"Lotus Files (*.prn),*.prn," & _
"Comma Separated Files (*.csv),*.csv," & _
"ASCII Files (*.asc), *.asc," & _
"All Files (*.*),*.*"
'Display *.* default
FilterIndex = 5
'set dialog box caption
Title = "Select a File to import"
'get filename
FileName = Application.GetOpenFilename(Filter, _ FilterIndex, Title)
'Exit on cancel
If FileName = Fales Then
MsgBox = "No file selected"
Exit Sub
End If
'Open file
Workbooks.Open FileName
I'm trying to import a file and create a worksheet that I can pull data from.
Thanks,
Sub GetImportFileName()
'Set up the file filters
Filter = "Text Files (*.txt),*.txt," & _
"Lotus Files (*.prn),*.prn," & _
"Comma Separated Files (*.csv),*.csv," & _
"ASCII Files (*.asc), *.asc," & _
"All Files (*.*),*.*"
'Display *.* default
FilterIndex = 5
'set dialog box caption
Title = "Select a File to import"
'get filename
FileName = Application.GetOpenFilename(Filter, _ FilterIndex, Title)
'Exit on cancel
If FileName = Fales Then
MsgBox = "No file selected"
Exit Sub
End If
'Open file
Workbooks.Open FileName
I'm trying to import a file and create a worksheet that I can pull data from.
Thanks,