10

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
4

1 に答える 1

12

Book.save()が実装されました: docsを参照してください。

于 2015-01-16T21:50:36.337 に答える