python 生成 ppt word outmail excel

# coding:utf-8
from Tkinter import Tk
from time import sleep
from tkMessageBox import showwarning
import win32com.client as win32
from time import sleep, ctime
from urllib import urlopen

warn = lambda app: showwarning(app, 'Exit?')
RANGE = range(3, 10)

def excel():
    s='''I wasn't really shot with a silver bullet.'''
    sss = s.split()
    app = 'Excel'
    xl = win32.gencache.EnsureDispatch('%s.Application' % app)
    ss = xl.Workbooks.Add()
    sh = ss.ActiveSheet
    xl.Visible = True
    sleep(0.5)

    sh.Cells(1, 1).Value = 'Python-to-%s Demo' % app
    sleep(0.5)
    ii = 2
    for i in sss:
        print i
        sh.Cells(ii, 1).Value = i
        ii += 1
        sleep(0.5)

    sh.Cells(ii+2, 1).Value = "xixihahaha"
    warn(app)
    ss.Close(False)
    xl.Application.Quit()

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(3, 8):
        rng.InsertAfter('Line %d\r\n' % i)
        sleep(1)
    rng.InsertAfter('\r\nTh-th-th-thats all folks!')

    warn(app)
    doc.Close(False)
    word.Application.Quit()




def ppoint():
    app = 'PowerPoint'
    ppoint = win32.gencache.EnsureDispatch('%s.Application' % app)
    pres = ppoint.Presentations.Add()
    ppoint.Visible = True

    s1 = pres.Slides.Add(1, win32.constants.ppLayoutText)
    sleep(1)
    s1a = s1.Shapes[0].TextFrame.TextRange
    s1a.Text = 'Python-to-%s Test\r\n\r\n' % app
    sleep(1)
    s1b = s1.Shapes[1].TextFrame.TextRange
    for i in range(3, 8):
        s1b.InsertAfter('Line %d\r\n' % i)
        sleep(1)
    s1b.InsertAfter("\r\nTh-th-th-thats all folks!")

    warn(app)
    pres.Close(False)
    ppoint.Quit()

def outlook():
    app = 'Outlook'
    olook = win32.gencache.EnsureDispatch('%s.Application' % app)
    mail = olook.CreateItem(win32.constants.olMailItem)
    recip = mail.Recipients.Add('815467444@qq.com')
    subj = mail.Subject = 'Python windows program demo  with outlook\n'
    body = ['Line %d' % i for i in RANGE]
    body.insert(0, '%s\r\n' % subj)
    body.append("\r\nTh-th-th-that's all folks!")
    mail.Body = '\r\n'.join(body)
    mail.Send()

    ns = olook.GetNamespace("MAPI")
    obox = ns.GetDefaultFolder(win32.constants.olFolderOutbox)
    obox.Display()
    obox.Items.Item(1).Display()

    warn(app)
    olook.Quit()

TICKS = ('BABA', 'GOOG', 'EBAY', 'AMZN')
COLS = ('TICKER', 'PRICE', 'CHG', '%AGE')
URL = 'http://quote.yahoo.com/d/quotes.csv?s=%s&f=sl1c1p2'

def excell():
    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 Stock quote demo' % app
    sleep(1)
    sh.Cells(3, 1).Value = 'Prices quoted as of: %s' % ctime()
    sleep(1)
    for i in range(4):
        sh.Cells(5, i+1).Value = COLS[i]
    sleep(1)
    sh.Range(sh.Cells(5, 1), sh.Cells(5, 4)).Font.Bold = True
    sleep(1)
    row = 6
    u = urlopen(URL % ','.join(TICKS))
    for data in u:
        tick, price, chg, per = data.split(',')
        sh.Cells(row, 1).Value = eval(tick)
        sh.Cells(row, 2).Value = ('%.2f' % round(float(price), 2))
        sh.Cells(row, 3).Value = chg
        sh.Cells(row, 4).Value = eval(per.rstrip())
        row += 1
        sleep(1)
    u.close()

    warn(app)
    ss.Close(False)
    xl.Application.Quit()


if __name__ == '__main__':
    Tk().withdraw()
    excell()
    #excel()
    #word()
    #ppoint()
    # for i in range(20):
    #     outlook()
    #     sleep(5)
    #     print i