2014-12-03 81 views
3

我有一個excel工作表,一些按鈕和一些宏。我使用xlwings來使它工作。有沒有辦法通過xlwings保存工作簿?我想在操作後提取特定的表格,但保存的表格是在沒有生成的數據的操作之前提取的表格。如何使用xlwings保存工作簿?

我對提取表,我需要的代碼如下:

Set objFSO = CreateObject("Scripting.FileSystemObject") 

src_file = objFSO.GetAbsolutePathName(Wscript.Arguments.Item(0)) 
sheet_name = Wscript.Arguments.Item(1) 
dir_name = Wscript.Arguments.Item(2) 
file_name = Wscript.Arguments.Item(3) 

Dim objExcel 
Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = False 

Dim objWorkbook 
Set objWorkbook = objExcel.Workbooks(src_file) 

objWorkbook.Sheets(sheet_name).Copy 
objExcel.DisplayAlerts = False 

objExcel.ActiveWorkbook.SaveAs dir_name + file_name + ".xlsx", 51 
objExcel.ActiveWorkbook.SaveAs dir_name + file_name + ".csv", 6 

objWorkbook.Close False 
objExcel.Quit 
+0

Workbook.save()應該使它成爲下一個版本... https://github.com/ZoomerAnalytics/xlwings/issues/110 – 2014-12-03 23:43:45

回答

4

Workbook.save()現已實現爲v0.3.2部分:看到docs

相關問題