将Excel文件转换为CSV-无法关闭Excel提示窗口

我有一个Gulp任务监视Excel文件并运行VBScript：

吞咽代码：

.pipe（外壳([
'XlsToCsv.vbs test.xlsx test.csv'
]))

VBScript代码：

如果WScript.Arguments.Count<3，则
Echo“请指定工作表、源文件和目标文件。用法：ExcelToCsv”
Wscript.Quit
如果结束
csv_格式=6
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
src_file=objFSO.GetAbsolutePathName（Wscript.Arguments.Item（1））
dest_file=objFSO.GetAbsolutePathName（WScript.Arguments.Item（2））
暗色oExcel
设置oExcel=CreateObject（“Excel.Application”）
Dim oBook
设置oBook=oExcel.Workbooks.Open（src_文件）
oBook.Sheets（WScript.Arguments.Item（0））。选择
oBook.SaveAs dest_文件，csv_格式
好的，关上
oExcel，退出

它工作正常，除了以CSV格式重新保存文件时出现提示跳转。 例如“具有此名称的文件已存在。是否保存？”

我无法在保存之前删除上一个文件，因为Gulp watcher将触发代码执行。

oBook.Close SaveChanges=True

和

oExcel.DisplayAlerts=False

不起作用

我需要在每次保存时安静地运行此脚本

我应该向脚本中添加什么命令

另外，我不介意使用任何其他脚本，除了PowerShell-

设置ExecutionPolicy remotesigned

导致错误

Set ExecutionPolicy:拒绝访问注册表项HKEY\U LOCAL\U MACHINE…\Microsoft.PowerShell

---

保存前删除现有文件

如果objFSO.file存在（dest_文件），则objFSO.DeleteFile dest_文件
oBook.SaveAs dest_文件，csv_格式

或者设置

DisplayAlerts=False

以抑制提示（这也强制替换现有文件）：

oExcel.DisplayAlerts=False
oBook.SaveAs dest_文件，csv_格式

保存前删除现有文件

如果objFSO.file存在（dest_文件），则objFSO.DeleteFile dest_文件
oBook.SaveAs dest_文件，csv_格式

或者设置

DisplayAlerts=False

以抑制提示（这也强制替换现有文件）：

oExcel.DisplayAlerts=False
oBook.SaveAs dest_文件，csv_格式

Re:PowerShell-您需要从提升的prompt1运行

Set ExecutionPolicy

。Re:PowerShell-您需要从提升的prompt1运行

Set ExecutionPolicy

。我无法删除该文件，因为Gulp watcher会触发不必要的代码执行2。我在错误的位置添加了DisplayAlerts=False。谢谢1.我无法删除该文件，因为Gulp watcher会触发不必要的代码执行2。我在错误的位置添加了DisplayAlerts=False。谢谢