【代码】与excel交互之vba法

《【代码】与excel交互之vba法》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

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

2、的题库。————————————————————————————————————————————————       原理：利用VBA后台打开Excel题库，读取对应的数据，显示到PPT中。————————————————————————————————————————————————        步骤：————————————————————————————————————————————————第一、后台打开Excel题库      ①为了让PPT中适用Excel的VBA对象属性函数，我们需要事先引用excel的对象模型。  

3、        打开PowerPoint2010→开发工具→VisualBasic→工具→引用→勾选“MicrosoftExcel14.0ObjectLibrary”→确定。这时候，我们就能在PPT程序中适用Excel中的VBA对象属性函数了。      ②代码部分。          在公共部分先声明：（这样子就产生了一个整个程序运行时都可以调用的变量了）          DimxlAppAsExcel.Application          在sub部分开始写：          Substart()          Se

4、txlApp=NewExcel.Application '新建一个Excel程序          xlFilePath$=ActivePresentation.Path&""&"xt.xls" '定义当前题库的位置          xlApp.Workbooks.OpenxlFilePath,,False '后台打开Excel          EndSub 第二、读取Excel的数据      ①这个部分需要对Excel的基本对象有所了解。         Excel：Application→Workbook→Sheets→

5、Cells         备注：具体的信息可以看帮助系统的对象模型。      ②代码部分。          比如，我们刚刚后台打开的xlApp的第一个工作簿第一个工作表第二行第三列的数据就可以表示为         xlApp.Workbooks(1).Sheets(1).Cells(2,3) 第三、传达给PowerPoint      ①这个部分需要对PowerPoint的基本对象有所了解。         PowerPoint：Application→Presentation→Slides→Shapes         备

6、注：具体的信息可以看帮助系统的对象模型。      ②代码部分。         比如，我们需要将刚刚读取出来的数据显示在当前演示文稿的第一张幻灯片第2个形状（以文本形式）         ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Text=_          xlApp.Workbooks(1).Sheets(1).Cells(2,3)       ‘此处的“_”是连接一行代码的意思，就是说，代码太长的时候可以这样子分几行写。 第四、退出PPT放映是关闭

7、Excel      ①此处的操作目的是为了避免后台出现很多Excel的进程。      ②代码部分。         xlApp.Workbooks.Close ‘关闭打开的Excel         SetxlApp=Nothing ‘清空xlApp         备注：最好把这部分的代码在OnSlideShowTerminate，这个在PowerPoint结束放映是自动运行的Sub也写一遍。 第五、我们需要更多      其实，理解了上述思路，我们就可以完成了大致的连接过程。—————————————————————————

8、—打开Excel→读取单元格数据→显示在PPT上面→关闭Excel ——————————————————————————      但是，利用VBA我们可以完成更多，如随机出题，判断正误，自动计分……让我们再散发一些思路，比如密码登录