首页 > 程序 > 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

今天的内容实在有点短，越到后面越是晦涩难懂，等理解通透了再多更新一些

————————————————

原文链接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 和其他应用程序交互
2022-03-27 12:54:54 来源：评论：0 点击：

评论排行

频道总排行

频道本月排行

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

评论排行

频道总排行

频道本月排行

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