是否可以只使用文件名,而不是在第4行和第5行中写出整个路径?
[1] from win32com import client
[2] excel = client.Dispatch("Excel.Application")
[3] word = client.Dispatch("Word.Application")
[4] doc = word.Documents.Open(r"C:\Users\crist\word_automation\Summary_template\Table1.docx")
[5] book=excel.Workbooks.Open(r"C:\Users\crist\word_automation\Summary_template\Table1.xlsx")
sheet = book.Worksheets(1)
sheet.Range("A1:D5").Copy()
wdRange = doc.Content
wdRange.Collapse(0)
wdRange.PasteExcelTable(False, True, False)
import os
os.remove('Table2.xlsx')
book.SaveAs('Table2.xlsx')
book.Close()
excel.Quit()
doc.SaveAs('TableOne.docx')
doc.Close()
word.Quit()
我尝试过这样做,但它给了我一个错误:
doc = word.Documents.Open('Table1.docx')
book = excel.Workbooks.Open('Table1.xlsx')
com_error:(-2147352567,‘出现异常。’,(0,'Microsoft Excel',“抱歉,找不到Table1.xlsx,是否可能被移动、重命名或删除了?”,'xlmain11.chm',0,-2146827284),无“
更新的代码:
from win32com import client
import os
os.chdir(r"C:\Users\crist\word_automation\Summary_template")
excel = client.Dispatch("Excel.Application")
word = client.Dispatch("Word.Application")
doc = word.Documents.Open('Table1.docx')
book = excel.Workbooks.Open('Table1.xlsx')
sheet = book.Worksheets(1)
sheet.Range("A1:D5").Copy()
wdRange = doc.Content
wdRange.Collapse(0)
wdRange.PasteExcelTable(False, True, False)
os.remove('Table2.xlsx')
book.SaveAs('Table2.xlsx')
book.Close()
excel.Quit()
doc.SaveAs('TableOne.docx')
doc.Close()
word.Quit()
发布于 2021-08-11 18:26:45
是的,这是可能的。只需将import os
行移动到文件的顶部(在win32com
导入之前或之后,这都无关紧要),然后在下一行上放入
os.chdir(r"C:\Users\crist\word_automation\Summary_template")
您现在可以省略发送到word.Documents.open()
和excel.Workbooks.open()
的完整路径,如问题的下半部分所示。
https://stackoverflow.com/questions/68747087
复制相似问题