PPT与Excel数据链接

发布时间：2024-03-28 12:16:10


大约半个月以前，我们讲过《PPT与Excel数据链接》，当时用的是选择粘贴法实现两者之间的数据共享。但同时我们也提到PowerPoint和Office其他格式文件交换数据最好的方法是通过VBA，只有想不到，没有做不到。因为这句话，很多朋友来信询问用VBA如何实现PPT与Excel连接。为了解答大家心中的疑问，今天我们就来讲讲用VBA的方法来实现PPT与Excel的连接。
想用Excel做一个习题库，每次简单的修改一下自动生成习题？其实，VBA可以解决这一切。下面，我讲从原理入手，不断完善这个PPT和Excel链接的题库。
————————————————————————————————————————————————
原理：利用VBA后台打开Excel题库，读取对应的数据，显示到PPT中。
;————————————————————————————————————————————————

步骤：
————————————————————————————————————————————————
第一、后台打开Excel题库
①为了让PPT中适用Excel的VBA对象属性函数，我们需要事先引用excel的对象模型。


打开PowerPoint2010→开发工具→VisualBasic→工具→引用→勾选“MicrosoftExcel14.0ObjectLibrary”→确定。这时候，我们就能在PPT程序中适用Excel中的VBA对象属性函数了。
②代码部分。
在公共部分先声明：（这样子就产生了一个整个程序运行时都可以调用的变量了）
DimxlAppAsExcel.Application在sub部分开始写：
Substart(SetxlApp=NewExcel.Application'新建一个Excel程序
xlFilePath=ActivePresentation.Path&"\"&"xt.xls"'定义当前题库的位置
xlApp.Workbooks.OpenxlFilePath,,False'后台打开ExcelEndSub第二、读取Excel的数据
①这个部分需要对Excel的基本对象有所了解。

PPT与Excel数据链接

推荐内容

相关推荐