用于保存Excel文件的批处理/ VBS脚本

Question

有没有办法自动打开给定目录中的每个文件并执行以下操作：

1. 打开CSV文件
2. 保存CSV文件（提示＆＃34;该文件可能包含与CSV不兼容的功能。是否要将工作簿保留为此格式？）
3. 选择是
4. 关闭文件（提示＆＃34;是否要保存对fileName.csv所做的更改？＆＃34;）
5. 选择是

CSV文件来自远程服务器，并且首先不兼容。当我手动打开并保存然后关闭文件时，它会变得稍微小一些，然后兼容使用。我假设存在一些差异，例如删除逗号或半冒号。

使用VBS脚本是处理这类问题的最佳方法吗？我将如何为保存部分编写脚本？

Answer 1

您应该可以使用Workbook.Save方法自动执行此操作。

Option Explicit

Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

Dim path
path = "C:\path\to\folder"

Dim fso, fle
Set fso = CreateObject("Scripting.FileSystemObject")
For Each fle In fso.GetFolder(path).Files
    Set xlBook = xlApp.Workbooks.Open(fle.Path)
    xlBook.Save
    xlBook.Close
Next

参考文献：

• Scripting.FileSystemObject对象，Scripting.File对象
• Excel.Application对象，Excel.Application.Workbooks属性
• Excel.Workbooks.Open方法
• Excel.Workbook.Save方法