У меня есть рабочий лист Excel, несколько кнопок и несколько макросов. Я использую 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
