Python创建Excel表格，Word并写入数据

程序员培静技术 2022年11月21日

0 收藏 566 点赞 3,015 浏览 1105 个字

from tkinter import Tk
from time import sleep
from tkinter.messagebox import showwarning
import win32com.client as win32
warn=lambda app:showwarning(app,'Exit?')
RANGE=range(3,8)
def excel():
    app='Excel'
    xl=win32.gencache.EnsureDispatch('%s.Application'%app)
    ss=xl.Workbooks.Add()
    sh=ss.ActiveSheet
    xl.Visible=True
    sleep(1)
    sh.Cells(1,1).Value='Python-to-%s Demo'%app
    sleep(1)
    for i in RANGE:
        sh.Cells(i,1).Value='Line %d'%i
        sleep(1)
    sh.Cells(i+2,1).Value="Th-th-th-that's all folks!"
    warn(app)
    ss.Close(False)
    xl.Application.Quit()
if __name__=='__main__':
    Tk().withdraw()
    excel()

摘自:python核心编程（第三版）

from tkinter import Tk
from time import sleep
from tkinter.messagebox import showwarning
import win32com.client as win32
warn=lambda app: showwarning(app,'Exit?')
RANGE=range(3,8)
def word():
    app='word'
    word=win32.gencache.EnsureDispatch('%s.Application'%app)
    doc=word.Documents.Add()
    word.Visible=True
    sleep(1)
    rng=doc.Range(0,0)
    rng.InsertAfter('Python-to-%s Test\r\n\r\n'%app)
    sleep(1)
    for i in RANGE:
        rng.InsertAfter('Line %d\r\n'%i)
        sleep(1)
    rng.InsertAfter("\r\nTh-th-th-that's all folks!\r\n")
    warn(app)
    doc.Close(False)
    word.Application.Quit()
if __name__=='__main__':
    Tk().withdraw()
    word()