如何用VBA实现记事本打开CSV并另存为同名TXT文件？

问题描述 #

需要创建VBA宏完成以下操作：

• 用记事本打开指定.csv文件（保留所需格式）
• 将打开的记事本文件另存为同名.txt文件

现有代码可成功打开CSV，但无法完成另存操作，附上代码及无效尝试：

Dim FileName As String
Dim FilePath As String

FileName = "file1"
FilePath = "C:\folder_structure\"

'此代码可成功用记事本打开.csv文件
Shell "notepad.exe " & FilePath & FileName & ".csv", vbNormalFocus

'*****以下是我尝试过但均无效的方法*****

'ActiveWorkbook.SaveAs FileName:=FilePath & FileName & ".txt.", FileFormat:=xlCSVWindows
'Application.SaveAs fileName:=FilePath & fileName & ".txt.", FileFormat:=xlCSVWindows
'ActiveDocument.SaveAs fileName:=FilePath & fileName & ".txt.", FileFormat:=xlCSVWindows


'我本质上想要实现的功能：
'open notepad .SaveAs FilePath & FileName & ".txt"

无效原因分析 #

ActiveWorkbook/ActiveDocument是Excel、Word的对象方法，无法操作独立的记事本程序，因此之前的尝试均无效。

解决方案 #

方案1：模拟记事本手动保存操作（SendKeys） #

通过模拟键盘快捷键触发记事本的“另存为”流程，完成格式转换：

Dim FileName As String
Dim FilePath As String
Dim fullCSVPath As String
Dim fullTXTPath As String

FileName = "file1"
FilePath = "C:\folder_structure\"
fullCSVPath = FilePath & FileName & ".csv"
fullTXTPath = FilePath & FileName & ".txt"

'打开记事本加载CSV
Shell "notepad.exe " & fullCSVPath, vbNormalFocus
'等待记事本启动（可根据系统速度调整时长）
Application.Wait Now + TimeValue("00:00:01")

'模拟Alt+F打开文件菜单
SendKeys "%F", True
'模拟按A选择"另存为"
SendKeys "A", True
'等待另存为窗口弹出
Application.Wait Now + TimeValue("00:00:01")
'输入目标TXT路径
SendKeys fullTXTPath, True
'按Enter确认保存
SendKeys "{ENTER}", True
'若文件已存在，按Y确认替换
SendKeys "Y", True

注意：SendKeys依赖窗口焦点和系统响应速度，需根据实际情况调整等待时长。

方案2：直接读写文件（无需打开记事本） #

如果CSV用记事本打开后为纯文本格式，可直接通过VBA读写完成转换，效率更高且更稳定：

Dim FileName As String
Dim FilePath As String
Dim fullCSVPath As String
Dim fullTXTPath As String
Dim fileContent As String

FileName = "file1"
FilePath = "C:\folder_structure\"
fullCSVPath = FilePath & FileName & ".csv"
fullTXTPath = FilePath & FileName & ".txt"

'读取CSV内容
Open fullCSVPath For Input As #1
fileContent = Input$(LOF(1), 1)
Close #1

'写入TXT文件
Open fullTXTPath For Output As #2
Print #2, fileContent
Close #2

此方法直接复制文件内容，效果与记事本打开后另存一致，且无需依赖界面操作。

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