首页 > 程序 > VBA > 正文

VBA 和其他应用程序交互
2022-03-27 12:54:54   来源:   评论:0 点击:

今天主要学学VBA 和其他应用程序的交互
 
 
 
一、了解绑定的概念
 
每个Office程序都有各自的对象库,也就是每个程序可用的对象、方法和属性、所以要能使EXCEL访问另外的Office程序,就需要将另一个Office程序绑定起来。分为两种:早期绑定、后期绑定
 
 
 
①早期绑定
 
需要显式地将客户端应用程序指向服务器端应用程序的对象库
 
优点:比后期绑定快、可以在对象浏览器完全访问服务器端应用程序的对象模型、可以使用智能提示、可自动访问服务器端应用程序内置常亮
 
使用方法:VBE中选择“工具”——“引用”
 
②后期绑定
 
不需要将客户端应用程序指向服务器端应用程序的对象库
 
优点:不依赖版本,不会因为兼容性问题运行失败
 
 
 
GetObject和CreateObject:都可以返回对对象的引用。
 
GetObject:可以使用已经在运行的应用程序
 
CreateObject:函数创建一个应用程序的新实例接口
 
 
 
③简单的例子,查看创建的Word版本,创建之前呢,先选择“工具”——“引用”绑定Word的对象库
 
 
 
早期绑定:
 
Sub wordCreate()
    Dim wordApp As Object
    Set wordApp = CreateObject("Word.Application")
    MsgBox wordApp.Version
    wordApp.Quit
    Set wordApp = Nothing
End Sub
后期绑定:
 
Sub wordCreate2()
    Dim wordApp As New Word.Application
    MsgBox wordApp.Version
    wordApp.Quit
    Set wordApp = Nothing
End Sub
 
 
二、执行Word任务
 
不管三七二十一,先选择“工具”——“引用”绑定Word的对象库
 
把Excel的数据传入Word:我在"E:\VBA呀呀呀\测试.docx"文件内创建了一个书签,命名为了“图表”,用来接收EXCEL赋值的数据,具体代码如下:
 
Sub wordData()
    '定义Word文档对象、word实际存放数据的地方、以及实例化一个Word程序
    Dim wdDoc As Word.Document
    Dim wdRng As Word.Range
    Dim wd As New Word.Application
    
    '赋值
    Set wdDoc = Word.Documents.Open("E:\VBA呀呀呀\测试.docx")
    '赋值
    Set wdRng = wdDoc.Bookmarks("图表").Range
    On Error Resume Next
    
    '复制EXCEL sheet1的数据
    Sheets("Sheet1").Range("A1:H41").Copy
    '粘贴EXCEL sheet1的数据
    wdRng.Paste
End Sub
今天的内容实在有点短,越到后面越是晦涩难懂,等理解通透了再多更新一些
————————————————
版权声明:本文为CSDN博主「YeXueQing2020」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接1:https://blog.csdn.net/Di77HaoWenMing/article/details/108028087
原文链接2:VBA 和其他应用程序交互 - 灰信网(软件开发博客聚合) (freesion.com)

excel中的外部可创建对象
外部可创建对象 编程标识符 说明
Application Excel.Application 创建对Excel中的Application对象的引用
Chart Excel.Chart 创建对Excel中的Chart对象的引用
Workbook Excel.Workbook 创建对Excel中的Workbook对象的引用
Worksheet Excel.Worksheet 创建对Excel中的Worksheet对象的引用

Word中的外部可创建对象
外部可创建对象 编程标识符 说明
Application Word.Application 创建对Word中的Application对象的引用
Document Word.Document 创建对Word中的Document对象的引用

PowerPoint中的外部可创建对象
外部可创建对象 编程标识符 说明
Application PowerPoint.Application 创建对PowerPoint中的Application对象的引用


相关热词搜索:

上一篇:VBA代码大全007:如何在vba中调用excel的排序功能?
下一篇:最后一页

分享到: 收藏
评论排行