ZeBula
Oct 27th, 2003, 11:28 AM
so far i got this part...
can anyone help me out here?
Set oExcel = New Excel.Application
oExcel.Workbooks.Add
oExcel.Sheets.Add
oExcel.Visible = True
' thanks to another post i found this and it works fine.
With oExcel
.WindowState = xlMinimized
' .Visible = False
'hide excel alerts msgboxes
.DisplayAlerts = False
.Workbooks.OpenText FileName:="c:\sampleCSV.txt", _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=False
End With
can anyone help me out here?
Set oExcel = New Excel.Application
oExcel.Workbooks.Add
oExcel.Sheets.Add
oExcel.Visible = True
' thanks to another post i found this and it works fine.
With oExcel
.WindowState = xlMinimized
' .Visible = False
'hide excel alerts msgboxes
.DisplayAlerts = False
.Workbooks.OpenText FileName:="c:\sampleCSV.txt", _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=False, _
Comma:=True, _
Space:=False, _
Other:=False
End With