VBScript 覆盖文件答案

【问题标题】：VBScript overwrite fileVBScript 覆盖文件
【发布时间】：2015-02-23 22:30:25
【问题描述】：

我正在使用以下脚本将 Excel 文件转换为 CSV 制表符分隔的 txt 文件。

xls = "C:\Ristken Data Load\Wade SPIFF log file"
csv = "c:\Ristken Data Load\Wade SPIFF log file"
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open(xls)

oBook.Worksheets(2).Activate
oBook.Worksheets(2).Rows("1:4").Delete
oBook.SaveAs csv, -4158
oBook.Close True
oExcel.Quit

我想在此脚本中添加一些内容，以便它在每次运行时都会覆盖 txt 文件，而不会出现弹出框询问您是否要覆盖现有文件。

【问题讨论】：

这看起来是 How to use workbook.saveas with automatic Overwrite 的副本。请查看此问题的答案，以及您的答案是否相同。

标签： vbscript

【解决方案1】：

比我想象的要容易。

xls = "C:\Ristken Data Load\Wade SPIFF log file"
csv = "c:\Ristken Data Load\Wade SPIFF log file"
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open(xls)
oBook.Application.DisplayAlerts = False

oBook.Worksheets(2).Activate
oBook.Worksheets(2).Rows("1:4").Delete
oBook.SaveAs csv, -4158
oBook.Close True
oExcel.Quit

【讨论】：