excel VBA QueryTables.Add正在删除前导零

fslejnso 于 2022-12-14 发布在其他

关注(0)|答案(1)|浏览(124)

我正尝试使用QueryTables.Add方法将多个csv文件中的数据提取到工作簿中。前三列包含数值，但我需要将它们作为文本提取，以便前导零不会丢失。您对如何执行此操作有什么想法吗？代码如下所示。

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

excel

来源：https://stackoverflow.com/questions/71752398/vba-querytables-add-is-dropping-leading-zeros

1条答案

按热度按时间

h5qlskok1#

尝试为该列添加xlTextFormat。

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

赞(0）回复(0）举报 2022-12-14

我来回答

excel VBA QueryTables.Add正在删除前导零

1条答案

相关问题

热门标签

最新问答