ascii file import round 2

  • Thread starter Thread starter Mad Scientist
  • Start date Start date
M

Mad Scientist

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
 
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)
 
Back
Top