如何禁止Excel打开CSV文件时自动将普通字符串转换为日期格式

下面给出适配VBA、Excel VSTO Addin、Excel-DNA三种技术栈的可落地方案： #

方案1：打开前拦截（最稳妥，无精度损失） #

核心逻辑是拦截CSV文件的默认打开行为，替换为按文本格式强制导入，从根源上避免格式转换：

• 触发事件说明：可通过订阅Excel应用级的WorkbookBeforeOpen事件实现拦截，该事件会在文件被打开前触发，可通过Cancel参数终止默认打开流程。

VBA实现 #

将代码放入个人宏工作簿的ThisWorkbook模块即可全局生效：

Private Sub Application_WorkbookBeforeOpen(ByVal Wb As Workbook, Cancel As Boolean)
    Dim filePath As String
    filePath = Wb.FullName
    ' 仅拦截CSV文件
    If LCase(Right(filePath, 4)) <> ".csv" Then Exit Sub
    
    Cancel = True
    ' 按文本格式导入所有列，按需调整分隔符、列数配置
    Workbooks.OpenText _
        Filename:=filePath, _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        Comma:=True, _
        FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)) ' 参数2为2代表对应列按文本格式导入
End Sub

Excel VSTO Addin实现 #

在Addin启动时订阅应用事件即可：

private void ThisAddIn_Startup(object sender, EventArgs e)
{
    Application.WorkbookBeforeOpen += OnWorkbookBeforeOpen;
}

private void OnWorkbookBeforeOpen(string fileName, ref bool cancel)
{
    if (!fileName.EndsWith(".csv", StringComparison.OrdinalIgnoreCase)) return;
    
    cancel = true;
    // 构造列配置，默认前100列全部按文本导入，可按需调整列数
    object[] fieldInfo = Enumerable.Range(1, 100).Select(colIndex => new object[] { colIndex, 2 }).ToArray();
    Application.OpenText(
        Filename: fileName,
        DataType: Excel.XlTextParsingType.xlDelimited,
        TextQualifier: Excel.XlTextQualifier.xlTextQualifierDoubleQuote,
        Comma: true,
        FieldInfo: fieldInfo);
}

Excel-DNA实现 #

逻辑和VSTO完全一致，通过Excel-DNA提供的应用事件接口注册WorkbookBeforeOpen事件，按上述逻辑替换默认打开流程即可。 #

方案2：打开后自动还原（适合已打开的场景） #

如果CSV已经被默认打开完成、字符串已被转换为日期，可通过读取原始CSV文件内容覆盖当前工作表数据实现还原，VBA示例代码如下，VSTO、Excel-DNA可参考逻辑改写：

Sub RestoreOriginalCsvContent()
    Dim activeWbPath As String
    activeWbPath = ActiveWorkbook.FullName
    If LCase(Right(activeWbPath, 4)) <> ".csv" Then Exit Sub
    
    Dim fso As Object, textStream As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set textStream = fso.OpenTextFile(activeWbPath, 1, False, -1) ' 最后参数-1对应UTF-8编码，按需调整
    
    Dim targetWs As Worksheet
    Set targetWs = ActiveSheet
    targetWs.Cells.NumberFormat = "@" ' 先设置所有单元格为文本格式
    Dim rowIndex As Long: rowIndex = 1
    
    Do While Not textStream.AtEndOfStream
        Dim lineContent As String
        lineContent = textStream.ReadLine
        ' 按CSV分隔符拆分，此处为逗号，按需改为制表符等其他分隔符
        Dim cellValues As Variant
        cellValues = Split(lineContent, ",")
        ' 写入当前行
        targetWs.Cells(rowIndex, 1).Resize(1, UBound(cellValues) + 1).Value = cellValues
        rowIndex = rowIndex + 1
    Loop
    
    textStream.Close
    Set textStream = Nothing
    Set fso = Nothing
End Sub

无代码辅助方案（可控CSV生成场景适用） #

如果可以控制CSV文件的生成规则，可将所有字段包裹为="原始内容"格式，例如将1-2改写为="1-2"，Excel打开时会自动识别为文本，不会触发日期转换。

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