首页 文章

将Excel表格添加到工作簿结尾

提问于
浏览
1

我正在尝试将excel工作表添加到工作簿的末尾,为摘要保留第一个工作表 .

import win32com.client

Excel = win32com.client.DispatchEx('Excel.Application')
Book = Excel.Workbooks.Add()

Excel.Visible = True

Book.Worksheets(3).Delete()
Book.Worksheets(2).Delete()

Sheet = Book.Worksheets(1)

Sheet.Name = "Summary"

Book.Worksheets.Add(After=Sheet)

Sheet = Book.Worksheets(2)

Sheet.Name = "Data1"

尽管使用了 After=Sheet ,但此代码将新工作表添加到左侧,当我修改名为"Data1"的工作表时,它会覆盖名为"Summary"的工作表 .

这类似于这个问题:

Adding sheets to end of workbook in Excel (normal method not working?)

但是给定的解决方案对我不起作用 .

2 回答

  • 3

    尝试添加 Before = None

    add = Book.Sheets.Add(Before = None , After = Book.Sheets(book.Sheets.count))
    add.Name = "Data1"
    
  • 1

    尝试使用 Sheet = excelApp.ActiveSheet

    Book.Worksheets.Add(After=Sheet)
    Sheet = Book.ActiveSheet
    Sheet.Name = "Data1"
    

相关问题