2015-02-23 207 views
0

我正在使用以下腳本將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://stackoverflow.com/questions/14634453/how-to-use-workbook-sa​​veas-with-automatic -overwrite)。請查看這個問題的答案,如果這同樣適用於您的問題。 – fujiFX 2015-02-23 22:48:38

回答

0

更容易,那麼我認爲它會。

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