使用Python win32com将整个Excel工作表复制到新的工作表中
我尝试打开一个名为“N11 Result.xlsx”的现有工作簿。 复制整个工作表'Sheet1'（将其重命名为'Build with Python'）并粘贴到同一工作簿中的新工作表（名为'Annual'）。 我认为我的代码的最后一行不起作用…任何帮助将有所帮助。
import os,sys sys.path.append(r"""U:\Programming\Python\Python Manipulate Excel""") work_dir=r"""U:\Programming\Python\Python Manipulate Excel""" file_name='N11 Result.xlsx' import win32com.client excel = win32com.client.Dispatch('Excel.Application') excel.Visible = True wb = excel.Workbooks.Open(work_dir+'\\'+file_name) ws = wb.Worksheets('Sheet1') ws.Name = 'Built with Python' wb.Worksheets("Built with Python").Copy(before=wb.Worksheets("Annual")) excel.Application.Quit() 出现的错误信息将是
Traceback（最近调用的最后一个）：在wb.Worksheets（“Built with Python”）中的第17行的文件“U：\ Programming \ Python \ Python Manipulate Excel \ Test_createExcel_01.py”。复制（before = wb.Worksheets（“年）“））在调用 ret = self._oleobj_.InvokeTypes（0，LCID，2，（（））文件”C：\ Temp \ gen_py \ 2.7 \ 00020813-0000-0000-C000-000000000046x0x1x7 \ Sheets.py“ （0，无，无，无，0，-2147352565），无）（-2147352567），（（12,1）），索引com_error：（-2147352567，'Exception occurred。'，
import win32com.client as win32 from copy import copy excel = win32.gencache.EnsureDispatch('Excel.Application') #excel.Visible = False excel.DisplayAlerts = False wb0 = excel.Workbooks.Open(dirname + '\\' + 'original.xlsx') ws0 = wb0.Worksheets('Original_sheet') wb2 = excel.Workbooks.Open(dirname + '\\' + writer.path) ws2 = wb2.Worksheets.Add() ws2.Name = 'Copy_original' ws2 = wb2.Worksheets('Copy_original') ws0.Range("A1:AF100").Copy(ws2.Range("A%s:AF%s" % (row, col))) wb2.Save() excel.Application.Quit()
所以这就是你可以如何使用pywin32将整个工作表复制到新工作表中：
# old_sheet: sheet that you want to copy old_sheet.Copy(pythoncom.Empty, workbook.Sheets(workbook.Sheets.Count) new_sheet = workbook.Sheets(workbook.Sheets.Count) new_sheet.Name = 'Annual'
尝试切换出wb.Worksheets("Built with Python").Copy(before=wb.Worksheets("Annual"))用以下代码wb.Worksheets("Built with Python").Copy(before=wb.Worksheets("Annual")) 。
wb.Worksheets("Built with Python").Cells.Select() excel.Selection.Copy(Destination=wb.Worksheets("Annual").Range("A1"))
让我知道这是否有效。 如果它不起作用，它可能是你试图build立的目录，可能是原因。