VBScript覆盖文件

问题描述:

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

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文件。

+0

这看起来是一个重复[如何使用自动覆盖workbook.saveas(http://*.com/questions/14634453/how-to-use-workbook-sa​​veas-with-automatic -overwrite)。请查看这个问题的答案,如果这同样适用于您的问题。 – fujiFX 2015-02-23 22:48:38

更容易,那么我认为它会。

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