VBA QueryTables.Add 正在删除前导零

Question

I am trying to pull data from multiple csv files into my workbook using the QueryTables.Add method. The first three columns have numerical values but I need to pull them over as text so that leading zeros don't drop off. Any ideas on how to do this? Code is below.

Set destCell = Worksheets("Confirm_O").Cells(Rows.Count, "A").End(xlUp)      'CHANGE SHEET NAME
        csvFileName = folder & strFile
        If csvFileName = False Then Exit Sub
        With destCell.Parent.QueryTables.Add(Connection:="TEXT;" & csvFileName, Destination:=destCell)
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True
            .Refresh BackgroundQuery:=False
        End With
        destCell.Parent.QueryTables(1).Delete

Answer 1

Try adding the xlTextFormat for the column.

With Ws.QueryTables.Add(Connection:="TEXT;" & FileName, _
                        Destination:=Ws.Range("A13"))       ' change to suit
     .TextFileParseType = xlDelimited
     .TextFileCommaDelimiter = True
      'added to retain leading 0s
     .TextFileColumnDataTypes = Array(xlTextFormat)
     .Refresh
End With