opening text file in excel through inputbox
 

Hello,
I want to open a text file in excel, then user some delimiters. How can
I combine this with the fact that one will enter the filename in a
dialog box (input box) ?
Also, I don't want to see all the screens with what kind of delimiters
to use.


Like:
Workbooks.OpenText Filename:=num_fis_ancin & ".txt"
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlNone, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True,
Comma:= _
True, Space:=True, Other:=True, OtherChar:="=",
FieldInfo:=Array(Array( _
1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
But as I said, I would like that the name of the file to be input
through a inputbox or using something like
Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt"...

opening text file in excel through inputbox
 

Option Explicit
Sub Testme01()

Dim myFileName As Variant
Dim TextWks as worksheet

myFileName = Application.GetOpenFilename(filefilter:="Text Files, *.Txt", _
Title:="Pick a File")

If myFileName = False Then
MsgBox "Ok, try later" 'user hit cancel
Exit Sub
End If

Workbooks.OpenText Filename:=myFileName '....rest of recorded code here!

set TextWks = activesheet

End Sub

"Adi H." wrote:

Hello,
I want to open a text file in excel, then user some delimiters. How can
I combine this with the fact that one will enter the filename in a
dialog box (input box) ?
Also, I don't want to see all the screens with what kind of delimiters
to use.

Like:
Workbooks.OpenText Filename:=num_fis_ancin & ".txt"
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlNone, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True,
Comma:= _
True, Space:=True, Other:=True, OtherChar:="=",
FieldInfo:=Array(Array( _
1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),
Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
But as I said, I would like that the name of the file to be input
through a inputbox or using something like
Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt"...

--

Dave Peterson