Need Help using OpenText Methord to read a CSV formmated file into an excel spreadsheet

Question

I am trying to load a csv into excel with formated columns, the 4th column is alphanumeric but after loading the values in the four column the column is define as general and it drops the leading zeros on values that have the leading zeros
i can not use a sub string to preload the zeros due to varing length and format the csv file has them correctly anybody have a solution on how to correct?
the VBScript looks like;
Set objExcel = CreateObject("Excel.application")
Const xlDelimited  = 1
Const xlGeneralFormat = 1
Const xlTextFormat = 2
oFile = "I:/temp/MEMAPRPT3P 2014-08-04.csv"
wfile = "I:/temp/MEMAPRPT3P 2014-08-04"
filetime = "_2015_01_20_10_28_00"
tagname = "sample"
objExcel.application.visible=false
objExcel.application.displayalerts=false
objExcel.Workbooks.OpenText Filename, , 1, 1, , False, False, False, True, False, , ,Array(Array(1, xlTextFormat), Array(2, xlTextFormat), Array(3, xlTextFormat), Array(4, xlTextFormat))
Set objExcelBook = objExcel.ActiveWorkBook
Saveasfile = trim(wfile) & trim(filetime) & ".xlsx"
objExcelBook.SaveAs Saveasfile, 51
objExcel.Application.Quit
objExcel.Quit  
Set objExcel = Nothing
Set objExcelBook = Nothing
The csv data look like"HEDA","Fred","Detroat","0598""SDRA","Steve","Jericho","Q23456""ADAS","Tim","Home","000892356"

Answer 1

i can not use a sub string to preload the zeros due to varing length and format the csv file has them correctly anybody have a solution on how to correct?
The issue is that the cell isn't formatted as text, that's a bug within OpenText.
You can use a query table instead and emulate OpenText. The benefit is that you can import the data in the current file.
Andreas.
Sub Test()
Dim FName As String
Dim Q As QueryTable
FName = "C:\Users\Killer\Documents\test.csv"
'Add a new sheet after the current sheet
Worksheets.Add After:=Sheets(ActiveSheet.Index)
'Add a query table
Set Q = ActiveSheet.QueryTables.Add( _
Connection:="TEXT;" & FName, Destination:=Range("$A$1"))
With Q
'Setup the importsettings
.TextFileCommaDelimiter = True
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat)
'Import the data
.Refresh BackgroundQuery:=False
'Delete the query table (we don't need a permanent link to the file)
.Delete
End With
End Sub