ascii file import round 2
 

Thanks to tom and mudrack for their previous help...now
I'm stuck again...I want to import the ascii either into
the active sheet or a new sheet but with all the
delimitation included...here's what I have so far and now
I'm stuck...

Private Sub CommandButton1_Click()
sPath = "\\Filesrv01\PCBard-Raw\Dept.2260\KGF\2260.00946\"
Workbooks.Open sPath & Sheet2.TextBox1.Text,
Origin:=xlWindows, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, Semicolon:=False, Comma:=True, Space:=False,
Other:=False,
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1),
Array(4, 1), Array(5, 1),
Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array
(10, 1), Array(11, 1),
Array(12, 1), Array(13, 1))

End Sub

I'm not writing it correctly but I'm not sure how to fix
it...any help would be greatly appreciated!

Thanks!
Mad Scientist

ascii file import round 2
 

These changes will open the file with all entries a single entry in
column A



Change Comma:=True to Comma:=False
then

Replace
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1),
Array(4, 1), Array(5, 1),
Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array
(10, 1), Array(11, 1),
Array(12, 1), Array(13, 1))


with

FieldInfo:=Array(1, 1)


---
Message posted from http://www.ExcelForum.com/