2014-12-03 5 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 –

ответ

4

Workbook.save() теперь реализуется в рамках v0.3.2: см docs.