• PPT数据通信之—Excel篇

    日期:2009-08-26 | 分类:VBA

    版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明
    http://www.blogbus.com/pptdesign-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
    ===========================

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

    下载在这里

    分享到:

    评论

  • 试过了,可以在PPT和EXCEL中互通,PPT可以读取EXCEL中的数值,也可以自己写入,读取也是很方便。就是在实际生活中恐怕不大用的到,也许是我们想不到。
  • 有点看不懂啊
  • 大乘起兴,您好,我试用了您提供的实例,但是没有效果,不能写入,也不能清除数据等。也查看了代码,好像没有问题,不知道哪里出了问题。很想得到些提示帮助。多谢了!
  • 您好,感谢您分享的行动,开放的心态,看完您的博客,对我PPT的制作和生活态度都有帮助。有个问题想问问老师,我想整理一下我的图片库,方便使用,可整理了一个小时竟然没有头绪,您在这方面有什么建议呢
  • 很感兴趣,好东东,但估计感兴趣的人不多啊。