保存文件，保存时默认为txt扩展名，为csv答案

【问题标题】：Save file, that defaults to txt extension on save, as csv保存文件，保存时默认为txt扩展名，为csv
【发布时间】：2019-10-05 17:10:12
【问题描述】：

如何将扩展名为 csv 但实际上是 txt 文件（这是 Cognos 问题）的文件保存为真正的 csv 文件？

This file:     H:\TEST_DROP\Files\abc.csv  (actually Unicode Text)
Resaved as:    H:\TEST_DROP\Files\abc.csv  (save as CSV comma delimited)

目前这样做：

olMail.Attachments.Item(j).SaveAsFile strFolder & olMail.Attachments.Item(j).FileName

按原样复制文件。需要改为真正的 CSV 逗号分隔。

如果我手动打开文件并保存文件，即使 .csv 出现在文件名中，它也会默认扩展名为 .txt。

尽管我们可以使用 CSV 扩展名复制它，但它会导致上游出现问题，需要有人将其重新保存为 .csv 逗号分隔。

我的想法是在记事本中短暂打开它并使用 csv（逗号分隔）扩展名重新保存它，因为它希望默认为 *.txt 扩展名。

这是引发问题的问题（但目前没有资源可以解决）https://www.ibm.com/support/pages/how-modify-csv-file-format-cognos

【问题讨论】：

CSV 是一种文本文件...“它真的是一个 txt 文件” 到底是什么意思？它是否使用不同的分隔符（例如制表符而不是逗号）？
文件扩展名只是为了让我们这些微不足道的人能够分辨出什么是什么——操作系统使用它们来确定当我们打开它们时要启动什么程序——但实际上这都是浮云： .csv，.txt，.dat，.html，.json，没有任何区别，也不会改变文件内容中的任何内容......归根结底，除了文本什么都没有.听起来您需要调整 Windows 资源管理器设置以停止隐藏已知扩展（IIRC 默认情况下隐藏它们）。
@bassfader 尽管它显示扩展名 CSV，但有一些东西（由于 Cognos 下载过程）导致它带有 *.TXT ...我不知道....你会称之为“外表”吗? Cognos 问题现在无法修复，因此课程似乎已打开/重新保存（因为简单的 saveas 无法解决问题。
那么，任何人都可以分享代码来打开和重新保存带有 csv 逗号分隔的文本文件吗？
@Mathieu....完全同意。但是上游组件挂在这个小问题上。只需要代码片段即可打开并保存为 csv 逗号分隔....

标签： vba outlook

【解决方案1】：

olMail.Attachments.Item(j).SaveAsFile strFolder & olMail.Attachments.Item(j).FileName

.FileName 包含文件扩展名；您想剥离它，为此您可以使用简单的字符串操作函数：

Dim originalName As String
originalName = olMail.Attachments.Item(j).FileName

Dim strippedName As String
stripppedName = Left$(originalName, InStrRev(originalName, ".") - 1)

或者，您可以使用FileSystemObject（参考Scripting 库）； GetBaseName 函数采用路径/文件名并返回去掉其文件扩展名的文件名：

Dim originalName As String
originalName = olMail.Attachments.Item(j).FileName

With New FileSystemObject
    Dim strippedName As String
    strippedName = .GetBaseName(originalName)
End With

Dim renamed As String
renamed = strippedName & ".csv"

【讨论】：

@Mathieu...酷，让我试一试。