python把excel变成ppt_⽤Python写excel和ppt⽂件#xlsx和 xls
#⼀：openpyxl 只能读取xlsx 推荐使⽤的⼆种⽅法
#因为excle⽂件中可以有多个编排 故可以返回字典
#该⽅法只适应于xlsx⽂件，不能处理xls⽂件
'''
l import load_workbook
def readXlsxFile(path):
dic={}
#打开⽂件
file=load_workbook(filename=path)
#所有表格的名称，返回的是⼀个列表
#_sheet_names())
_sheet_names()
#拿出⼀个表格
for sheetName in sheets:
python怎么读取xls文件_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):
#拿数据
ll(row=lineNum,column=columnNum).value
#if 根据实际情况
if value!=None:
linelist.append(value)
sheetInfo.append(linelist)
#将⼀张表的数据存到字典
dic[sheetName]=sheetInfo
_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)

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。