VBA excel中的文件名损坏答案

【问题标题】：Filename Corrupted in VBA excelVBA excel中的文件名损坏
【发布时间】：2013-03-11 15:04:48
【问题描述】：

在晴朗的蓝天中，我突然收到一个我以前从未见过的错误，我不知道为什么会发生，因为我没有采取任何措施来导致问题。

我正在尝试打开一个 .csv 文件，我已经成功完成了数千次。代码如下：

ChDir "KathyStringHD:Library:WebServer:Documents:DispatchReports:DispatchReportsFolder:"

NextFile = Dir("")

Do While NextFile <> ""

If NextFile <> ".DS_Store" Then
    Extension = Right(NextFile, 4)

    If Extension = ".csv" Then
         SaveFile = Left(NextFile, Len(NextFile) - 4) & ".xlsx"

MsgBox NextFile

         Call ProcessMonthlyReport(NextFile, Extension, SaveFile, sPath, SavePath)
     End If
End If

NextFile = Dir

Loop

除了一个文件外，一切正常。该文件的名称是“ACTStillwater February, 2013.csv”，但是当例程尝试打开这个文件时，该名称被损坏为“ACTStillwater Februa#, 6 random hex numbers, then .csv”。附件看起来像一个颜色代码，但我在文件本身或生成文件的 PHP 脚本中没有那个颜色代码。当我进入 Finder 并获取文件信息时，那里的名称很好。正如我所说，让我困惑的是错误只在一个文件上。

【问题讨论】：

我无法完全理解他们在这里所说的内容，但似乎 , 不允许出现在文件名中：msdn.microsoft.com/en-us/library/windows/desktop/…
文件名中有逗号吗？
是的，就在“二月”之后...
看起来这可能与文件名长度有关，您的 VBA 字符数限制为 32 个。尝试删除一个字符，看看是否有效。
我将文件名减少了几个字符并去掉了逗号。那行得通。百万美元的问题是“为什么是现在？”

标签： excel vba filenames corruption

【解决方案1】：

文件名中好像有逗号：

ACTStillwater 2 月， 2013.csv

尝试删除它：

ACTStillwater 2013 年 2 月.csv

看看它现在是否会运行。

详情请见MSDN - Filename (Windows)

【讨论】：

已经回答了。在 Mac 上只有几个字符会杀死文件名。允许使用逗号。只是为了笑，我生成了没有逗号的文件，并且在不同的文件上得到了相同的结果。正如我所说，我从一月上旬开始运行这个宏，没有任何问题，即使是逗号。突然，没有任何警告，问题就发生在昨天
哦，我错过了这是在 Mac 上运行的：/

【解决方案2】：

我怀疑不是逗号，而是文件名超过 32 个字符。

我发现在 vba 中打开一个文件时，如果整个路径中的任何一个文件或文件夹名称超过 32 个字符，都会失败。

这或许可以解释为什么会突然出现问题：

'ACT Stillwater February, 2013.csv' 有 33 个

鉴于：

'ACT Stillwater 2013 年 1 月.csv

有 32 个

只是一个想法。

如果你的路径是

"KathyStringHD:Library:WebServer:Documents:DispatchReports:Dispatch Reports for the year 文件夹："

它也会失败

鲍勃·J。

【讨论】：