python把excel变成ppt_用Python写excel和ppt文件

#xlsx和 xls

#一：openpyxl 只能读取xlsx 推荐使用的二种方法

#因为excle文件中可以有多个编排 故可以返回字典

#该方法只适应于xlsx文件,不能处理xls文件

'''

from openpyxl.reader.excel import load_workbook

def readXlsxFile(path):

dic={}

#打开文件

file=load_workbook(filename=path)

#所有表格的名称，返回的是一个列表

#print(file.get_sheet_names())

sheets=file.get_sheet_names()

#拿出一个表格

for sheetName in sheets:

sheet=file.get_sheet_by_name(sheetName)

#一张表所有数据

sheetInfo=[]

#读取数据

for lineNum in range(1,sheet.max_row+1):#行数从1开始

linelist=[]

for columnNum in range(1,sheet.max_column+1):

#拿数据

value=sheet.cell(row=lineNum,column=columnNum).value

#if 根据实际情况

if value!=None:

linelist.append(value)

sheetInfo.append(linelist)

#将一张表的数据存到字典

dic[sheetName]=sheetInfo

sheet=file.get_sheet_by_name(sheets[0])

#最大行数

#print(sheet.max_row)

#最大列数

#print(sheet.max_column)

#表名

#print(sheet.title)

path=r'I:\1.xlsx'

readXlsxFile(path)

'''

#二：读取Xlsx和xls的内容 ，但只能写xls#需要安装，xlrd,future,xlwt-future,pyexcel-io,ordereddict,pyexcel,pyexcel-xls

'''

from collections import OrderedDict #有序字典

from pyexcel_xls import get_data#读取数据

def readXlsAndXlsxFile(path):

dic=OrderedDict()

#抓取数据

xdata=get_data(path) #返回全部表格数据

for sheet in xdata: #xdata的内容可以以sheet表的形式拿出

dic[sheet]=xdata[sheet]

return dic

path=r'I:\1.xlsx'

print(readXlsAndXlsxFile(path))

'''

#三：写入xls文件,只能写如xls，data格式固定

from collections import OrderedDict #有序字典

from pyexcel_xls import save_data#读取数据

def makeExcelFile(path,data):

dic=OrderedDict()

for sheetName,sheetValue in data.items():

d={}

d[sheetName]=sheetValue

dic.update(d)

save_data(path,dic)

path=r'I:\1.xls'

data={'表一':[[1,2,3],[4,5,6],[7,8,9]],'表二':[[11,12,13],[14,15,16],[17,18,19]]}

makeExcelFile(path,data)

import win32com

import win32com.client

def makePPT(path):

ppt=win32com.client.Dispatch('PowerPoint.Application')

ppt.Visible=True

#增加一个文件

pptFile=ppt.Presentations.Add()

#创建一页 Add(参数一，参数二) 参数一为页数(从一开始)，参数二为类型(为新建的类型格式)

page1=pptFile.Slides.Add(1,1)

t1=page1.Shapes[0].TextFrame.TextRange #page1.Shapes 获取到ppt的框，Range获得到这个输入的位置

t1.Text='Sunck'

t2=page1.Shapes[1].TextFrame.TextRange #page1.Shapes 获取到ppt的框，Range获得到这个输入的位置

t2.Text='Sunck is good man'

#创建第二页

page2=pptFile.Slides.Add(2,1)

t3=page1.Shapes[0].TextFrame.TextRange #page1.Shapes 获取到ppt的框，Range获得到这个输入的位置

t3.Text='Sunck'

t4=page1.Shapes[1].TextFrame.TextRange #page1.Shapes 获取到ppt的框，Range获得到这个输入的位置

t4.Text='Sunck is good man'

#保存

pptFile.SaveAs(path)

#关闭ppt文件

pptFile.Close()

#关闭ppt的初始化

ppt.Quit()

path=r'I:\1.pptx'

makePPT(path)