阻止Excel自动将某些文本值转换为日期

这是我知道的不在文件内部干扰情况下达成目标的唯一方法。和通常的Excel操作一样，我花了数小时去摸索。
将 .csv 文件扩展名改为 .txt 扩展名；这将阻止 Excel 在打开文件时自动转换它。我是这么做的：打开一个空白工作表，关闭空白工作表，然后选择“文件” => “打开”，并选择带有 .txt 扩展名的文件。这将强制 Excel 打开“文本导入向导”，并询问您有关如何解释文件的问题。首先选择分隔符（逗号、制表符等），然后（这是重要的部分）选择一组列并选择格式。如果您想精确地显示文件中的内容，那么请选择“文本”，Excel 将仅显示定界符之间的内容。

（假设使用的是Excel 2003...）

在使用“文本分列向导”时，在第三步中，您可以为每个列指定数据类型。单击预览中的列，并将表现不佳的列从“常规”更改为“文本”。

我为了解决这个问题所做的是在每个csv值之前添加以下内容： "="""， 并且在在Excel打开文件之前，在每个CSV值之后添加一个双引号。以以下值为例：

012345,00198475

在Excel中打开之前，应该进行以下修改：

"="""012345","="""00198475"

在执行此操作后，Excel 中的每个单元格值都会显示为公式，因此不会被格式化为数字、日期等。例如，值 012345 的显示结果为：

="012345"

(适用于Excel 2007及以上版本)

如何强制Excel不“检测”日期格式而无需编辑源文件

方法一：

• 将文件重命名为.txt文件
• 如果您无法这样做，不要直接在Excel中打开CSV文件，而是创建一个新工作簿，然后转到
  Data > Get external data > From Text ，选择您的CSV文件。

无论哪种方式，您都会看到导入选项，请选择包含日期的每个列，并告诉Excel将其格式设置为“文本”，而不是“常规”。

这里提供的解决方案都不是好的解决方案。它可能适用于个别情况，但前提是您能控制最终显示的内容。以我的例子为例：我的工作需要生成他们销售给零售商的产品列表。这是CSV格式，并包含由制造商设置（不在我们的控制范围内）的零部件代码，其中一些以零开头。去掉前导零，您可能实际上会匹配另一个产品。 零售客户希望以CSV格式提供清单，因为后端处理程序也不在我们的控制范围内，并且每个客户都不同，因此我们无法更改CSV文件的格式。没有前缀“=”，也没有添加制表符。原始CSV文件中的数据是正确的；问题出现在客户在Excel中打开这些文件时。而许多客户并不真正了解计算机。他们只能打开和保存电子邮件附件。 我们正在考虑以两种略微不同的格式提供数据：一种是Excel友好型（使用上面建议的选项添加制表符），另一种是“主”格式。但这可能是一厢情愿的，因为有些客户不会理解为什么我们需要这样做。与此同时，我们继续解释为什么他们有时会在电子表格中看到“错误”的数据。 在微软做出适当的更改之前，我认为没有适当的解决方案，只要没有控制最终用户如何使用文件。

你好，我遇到了同样的问题。

我编写了这个vbscript来创建另一个CSV文件。新的CSV文件中每个字段前面都有一个空格，这样Excel就会将其识别为文本。

因此，你需要创建一个.vbs文件，并将以下代码保存并关闭（例如Modify_CSV.vbs）。将原始文件拖放到你的vbscript文件上。它将在相同的位置创建一个带有“SPACE_ADDED”文件名的新文件。

Set objArgs = WScript.Arguments

Set objFso = createobject("scripting.filesystemobject")

dim objTextFile
dim arrStr ' an array to hold the text content
dim sLine  ' holding text to write to new file

'Looping through all dropped file
For t = 0 to objArgs.Count - 1
    ' Input Path
    inPath = objFso.GetFile(wscript.arguments.item(t))

    ' OutPut Path
    outPath = replace(inPath, objFso.GetFileName(inPath), left(objFso.GetFileName(inPath), InStrRev(objFso.GetFileName(inPath),".") - 1) & "_SPACE_ADDED.csv")

    ' Read the file
    set objTextFile = objFso.OpenTextFile(inPath)


    'Now Creating the file can overwrite exiting file
    set aNewFile = objFso.CreateTextFile(outPath, True) 
    aNewFile.Close  

    'Open the file to appending data
    set aNewFile = objFso.OpenTextFile(outPath, 8) '2=Open for writing 8 for appending

    ' Reading data and writing it to new file
    Do while NOT objTextFile.AtEndOfStream
        arrStr = split(objTextFile.ReadLine,",")

        sLine = ""  'Clear previous data

        For i=lbound(arrStr) to ubound(arrStr)
            sLine = sLine + " " + arrStr(i) + ","
        Next

        'Writing data to new file
        aNewFile.WriteLine left(sLine, len(sLine)-1) 'Get rid of that extra comma from the loop


    Loop

    'Closing new file
    aNewFile.Close  

Next ' This is for next file

set aNewFile=nothing
set objFso = nothing
set objArgs = nothing

我这个星期才发现了这种约定，它似乎是一个很好的方法，但我找不到任何相关的参考。有人熟悉这个吗？你能引用一下来源吗？我没有花费很多时间来寻找答案，希望有人能够认识这种方法。
示例1：=("012345678905") 显示为012345678905 示例2：=("1954-12-12") 显示为1954-12-12，而不是12/12/1954。

我知道这是一个旧帖子。像我这样仍然使用Office 2013并通过PowerShell COM对象遇到此问题的人可以使用opentext方法。问题在于该方法有许多参数，有时彼此之间是互斥的。为解决此问题，您可以使用this post中介绍的invoke-namedparameter方法。例如：

$ex = New-Object -com "Excel.Application"
$ex.visible = $true
$csv = "path\to\your\csv.csv"
Invoke-NamedParameter ($ex.workbooks) "opentext" @{"filename"=$csv; "Semicolon"= $true}

很遗憾，我刚刚发现当单元格包含换行符时，该方法会破坏CSV解析。CSV支持此功能，但是Microsoft的实现似乎存在缺陷。 此外，它无法检测到德语特定字符。即使使用正确的文化也无法改变这种行为。所有文件（CSV和脚本）都以utf8编码保存。 首先，我编写了以下代码来逐个插入CSV单元格。

$ex = New-Object -com "Excel.Application"
$ex.visible = $true;
$csv = "path\to\your\csv.csv";
$ex.workbooks.add();
$ex.activeWorkbook.activeSheet.Cells.NumberFormat = "@";
$data = import-csv $csv -encoding utf8 -delimiter ";"; 
$row = 1; 
$data | %{ $obj = $_; $col = 1; $_.psobject.properties.Name |%{if($row -eq1){$ex.ActiveWorkbook.activeSheet.Cells.item($row,$col).Value2= $_ };$ex.ActiveWorkbook.activeSheet.Cells.item($row+1,$col).Value2 =$obj.$_; $col++ }; $row++;}

但这种方法非常缓慢，这就是我寻找替代方案的原因。显然，Excel允许你使用矩阵来设置一系列单元格的值。因此，我使用这篇博客中的算法将CSV文件转换成多维数组。

function csvToExcel($csv,$delimiter){
     $a = New-Object -com "Excel.Application"
     $a.visible = $true
     
    $a.workbooks.add()
     $a.activeWorkbook.activeSheet.Cells.NumberFormat = "@"
     $data = import-csv -delimiter $delimiter $csv; 
     $array = ($data |ConvertTo-MultiArray).Value
     $starta = [int][char]'a' - 1
     if ($array.GetLength(1) -gt 26) {
         $col = [char]([int][math]::Floor($array.GetLength(1)/26) + $starta) + [char](($array.GetLength(1)%26) + $Starta)
     } else {
         $col = [char]($array.GetLength(1) + $starta)
     }
     $range = $a.activeWorkbook.activeSheet.Range("a1:"+$col+""+$array.GetLength(0))
     $range.value2 = $array;
     $range.Columns.AutoFit();
     $range.Rows.AutoFit();
     $range.Cells.HorizontalAlignment = -4131
     $range.Cells.VerticalAlignment = -4160
}

 function ConvertTo-MultiArray {
     param(
         [Parameter(Mandatory=$true, Position=1, ValueFromPipeline=$true)]
         [PSObject[]]$InputObject
     )
     BEGIN {
         $objects = @()
         [ref]$array = [ref]$null
     }
     Process {
         $objects += $InputObject
     }
     END {
         $properties = $objects[0].psobject.properties |%{$_.name}
         $array.Value = New-Object 'object[,]' ($objects.Count+1),$properties.count
         # i = row and j = column
         $j = 0
         $properties |%{
             $array.Value[0,$j] = $_.tostring()
             $j++
         }
         $i = 1
         $objects |% {
             $item = $_
             $j = 0
             $properties | % {
                 if ($item.($_) -eq $null) {
                     $array.value[$i,$j] = ""
                 }
                 else {
                     $array.value[$i,$j] = $item.($_).tostring()
                 }
                 $j++
             }
             $i++
         }
         $array
     } 
} 
csvToExcel "storage_stats.csv" ";"

你可以直接使用上面的代码；它应该能将任何CSV文件转换为Excel。只需在底部更改CSV文件的路径和分隔符即可。

这段话的意思是：“这不是Excel的问题。Windows可以识别公式和日期数据，并自动更正。你需要改变Windows的设置。进入“控制面板”（->切换到经典视图）->“区域和语言选项”->“区域选项”标签->“自定义…”->“数字”标签->然后根据你的需求更改符号。”

http://www.pcreview.co.uk/forums/enable-disable-auto-convert-number-date-t3791902.html

如果不更改这些设置，它将在您的计算机上工作，但例如在您客户的计算机上，他们将看到日期而不是数据。

不需要修改您的csv文件，您可以：

1. 将Excel的“格式单元格”选项更改为“文本”
2. 然后使用“文本导入向导”定义csv单元格。
3. 导入后删除该数据
4. 然后只需粘贴为纯文本即可

Excel将正确格式化并分隔您的csv单元格，忽略自动日期格式。

这种方法有点愚蠢，但比在导入之前修改csv数据要好。Andy Baird和Richard提到了这种方法，但错过了一些重要步骤。