PPT数据通信之—Excel篇

laughig

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
===========================
代码很简单，示例也是简单的说明问题，在此基础上应该可以做出很多应用个变化，抛砖引玉，希望你能做出更多的东西和我们分享。
下载在这里PPT数据通信之—Excel篇
http://www.gxp.cc/file-521903.html

gylqb

这个问题好像很有趣