Question

vba中用ADO方法把csv转换成excel时，前面的0消失了

用vba的ADO方法把csv转换成excel时，假如csv中有个字段是01，那么转成excel后打开就成了1.如果csv中的字段是"01"，转成excel后结果就是正常的01。有没有什么办法让csv中是不带引号的01，在转后后也能在excel中正常显示不带引号的01

Answer 1

在单元格内容里面增加一个英文的单引号就可以，例如原来的语句是：
Cells(i,1)=arr(0)
修改为：
Cells(i,1)="'" & arr(0)

追问

这个是源代码，请问在哪个地方加您说的那条语句呢。

追答

根据你的源代码具体修改，上面的只是例子，不的代码不一定使用Cells来赋值，具体修改与你的代码有关，你不给出代码，没有可以帮你修改正确。

追问

追答

你这样写的代码无法保留数字前面的0，应该使用文本文件读写方式才可以，可以参考下面我的代码

请点击输入图片描述

请点击输入图片描述

由于我代码是直接对CSV文件进行统计分析，只预览前100行，上面的红色语句设置单元格格式为文本，确保数字前面的0不会消失。