Excel VBA导入CSV文件：如何将所有列转换为文本格式

核心问题定位 #

你当前代码的FieldInfo参数中，列索引使用了0开始计数，但Excel的Workbooks.OpenText方法里，列索引是从1开始的。这直接导致格式设置指令没有被正确应用到目标列上，所以大数字还是会显示为科学计数法。

修正后的代码 #

将FieldInfo中的列索引从0-9改为1-10，其他参数保持不变即可：

Sub ImportCSV()
'
' ImportCSV Macro
    'Imports a text file
    Dim vFileName

    On Error GoTo ErrorHandle

     vFileName = Application.GetOpenFilename()

    'If the user pressed "Cancel" or didn't select a text file,
    'exit the procedure.
    If vFileName = False Then
       GoTo BeforeExit
    End If

    Workbooks.OpenText Filename:=vFileName, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=True, OtherChar:="|", _
        TrailingMinusNumbers:=True, Local:=True, _
        FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), _
                         Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
                         Array(9, 2), Array(10, 2))   
ErrorHandle:
    If Err.Number <> 0 Then MsgBox Err.Description
BeforeExit:
End Sub

注：FieldInfo里的第二个参数2对应xlTextFormat，是正确的文本格式枚举值。

备选方案（若修正后仍有异常） #

如果因本地区域设置或CSV文件特性导致问题依旧，可以在导入后强制将所有数据列设置为文本格式，彻底避免科学计数法：

Sub ImportCSVWithPostFormat()
'
' ImportCSV Macro
    Dim vFileName As Variant
    Dim importWB As Workbook

    On Error GoTo ErrorHandle

    vFileName = Application.GetOpenFilename()
    If vFileName = False Then GoTo BeforeExit

    ' 导入CSV
    Set importWB = Workbooks.OpenText(Filename:=vFileName, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=True, OtherChar:="|", _
        TrailingMinusNumbers:=True, Local:=True)
    
    ' 强制设置所有数据列为文本格式
    With importWB.ActiveSheet
        ' 选中所有已使用的列
        .UsedRange.NumberFormat = "@"
        ' 刷新单元格值，确保格式生效
        .UsedRange.Value = .UsedRange.Value
    End With

ErrorHandle:
    If Err.Number <> 0 Then MsgBox Err.Description
BeforeExit:
    Set importWB = Nothing
End Sub

这个方法先完成导入，再将整个数据区域的单元格格式设为文本，然后重新赋值单元格内容，确保大数字完全以文本形式展示。

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