如何用VBA打开CSV文件且不自动格式化文本格式数字？

你遇到的问题是因为默认的Workbooks.Open会自动解析CSV内容，把带单引号的文本数字转成数值格式，导致精度丢失。以下是两种可靠的解决方法：

方法1：用OpenText精准指定列格式 #

这个方法可以明确指定某一列（比如A列）以文本格式加载，完全避免自动格式化：

' 弹出文件选择框，仅显示CSV文件
myFile = Application.GetOpenFilename("CSV文件 (*.csv), *.csv")
' 检查是否选择了有效文件
If TypeName(myFile) = "Boolean" Then Exit Sub

' 使用OpenText打开，指定A列为文本格式
Workbooks.OpenText _
    Filename:=myFile, _
    DataType:=xlDelimited, _
    Comma:=True, ' CSV是逗号分隔，若为制表符分隔则改Tab:=True
    FieldInfo:=Array(Array(1, xlTextFormat)) ' 第1列（A列）强制设为文本格式

• FieldInfo参数可扩展：如果还有其他列需要文本格式，比如第3列，就写成Array(Array(1, xlTextFormat), Array(3, xlTextFormat))
• 若你的CSV使用其他分隔符，替换Comma:=True为对应参数即可

方法2：修改Workbooks.Open参数（快速适配） #

如果不需要精准指定列，也可以通过Workbooks.Open的参数禁用自动转换：

' 弹出文件选择框
myFile = Application.GetOpenFilename
If TypeName(myFile) = "Boolean" Then Exit Sub

' 打开文件时强制按文本格式加载，同时启用本地设置避免编码问题
Workbooks.Open Filename:=myFile, Local:=True, Format:=6

• Format:=6对应文本格式，会让Excel以纯文本方式解析所有列
• Local:=True确保使用本地系统的分隔符和编码，避免乱码或解析错误

内容的提问来源于stack exchange，提问作者Jebb