PPT设计及其他

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://pptdesign.blogbus.com/logs/45158605.html

VBA的地位好像很尴尬，高手们不屑，一般用户不会。我对VBA也并不精通，以前写过一篇介绍一个公司做的PPT与其他文件交换数据的文章。使我对PPT和Excel,word,Access,TXT之间的数据通信很感兴趣，这些数据之间通信的应用是否有实际用处？我也不知道，今天开始陆续将摸索的一些方法以范例方式弄出来，先是PPT和Excel数据通信的例子，希望有高手进一步完善。

简要代码：
打开Excel=================================
Dim ExcelApp As Excel.Application
Dim ExcelBook As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Add
ExcelFilePath = Application.ActivePresentation.Path & "\" & "ExcelFileName"
'使用相对路径要比绝对路径好
ExcelApp.Workbooks.Open ExcelFilePath, ReadOnly:=False
Set ExcelBook = ExcelApp.Workbooks("ExcelFileName")
Set ExcelSheet = Excel.Worksheets(n)
'(n=1...工作表)

关闭Excel=====================
If Not (ExcelBook Is Nothing) Then ExcelBook.Close
If Not (ExcelApp Is Nothing) Then ExcelApp.Quit
Set ExcelBook = Nothing
Set ExcelSheet = Nothing
Set ExcelApp = Nothing
===========================

代码很简单，示例也是简单的说明问题，在此基础上应该可以做出很多应用个变化，抛砖引玉，希望你能做出更多的东西和我们分享。

下载在这里