vba createobject详解

Excel VBA之CreateObject 函数 先看一下下面的句子，体会一哈：

Set d = CreateObject(\建立字典对象变量d Set xlApp = CreateObject(\建立Excel对象变量xlApp Set fso = CreateObject(\建立文件系统对象变量fso

CreateObject 函数创建并返回一个对 ActiveX 对象的引用。 语法

CreateObject(class,[servername]) CreateObject函数的语法有如下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype class参数使用 appname.objecttype这种语法，包括以下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype 说明

每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供 Application对象，Documen

Excel VBA之CreateObject 函数 先看一下下面的句子，体会一哈：

Set d = CreateObject(\建立字典对象变量d Set xlApp = CreateObject(\建立Excel对象变量xlApp Set fso = CreateObject(\建立文件系统对象变量fso

CreateObject 函数创建并返回一个对 ActiveX 对象的引用。 语法

CreateObject(class,[servername]) CreateObject函数的语法有如下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype class参数使用 appname.objecttype这种语法，包括以下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype 说明

每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供 Application对象，Documen

Excel VBA之CreateObject 函数 先看一下下面的句子，体会一哈：

Set d = CreateObject(\建立字典对象变量d Set xlApp = CreateObject(\建立Excel对象变量xlApp Set fso = CreateObject(\建立文件系统对象变量fso

CreateObject 函数创建并返回一个对 ActiveX 对象的引用。 语法

CreateObject(class,[servername]) CreateObject函数的语法有如下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype class参数使用 appname.objecttype这种语法，包括以下部分：

部分 描述 必需的；Variant（字符串）。提供该对象的应用程序名。 必需的；Variant（字符串）。待创建对象的类型或类。 appname objecttype 说明

每个支持自动化的应用程序都至少提供一种对象类型。例如，一个字处理应用程序能会提供 Application对象，Documen

VBA链接SQL SERVER 详解

Sub Database_conn()

Dim strConn As String, strSQL As String Dim conn As ADODB.Connection Dim ds As ADODB.Recordset Dim col As Integer '连接数据库的字符串 strConn = \ID=sa;Password=pwd;Initial Catalog=dbname;Data Source=servername;Connect Timeout=720; \

'查询语句，如果sql语句很长可以用strSQL=strSQL+来连接分成多段的语句，如果语句很短可以只写在一行上。 strSQL = \

strSQL = strSQL + \

Set conn = CreateObject(\ Set ds = CreateObject(\

' Set conn = New ADODB.Connection ' Set ds = New ADODB.Recor

常见字典用法集锦及代码详解

前言

凡是上过学校的人都使用过字典，从新华字典、成语词典，到英汉字典以及各种各样数不胜数的专业字典，字典是上学必备的、经常查阅的工具书。有了它们，我们可以很方便的通过查找某个关键字，进而查到这个关键字的种种解释，非常快捷实用。

凡是上过EH论坛的想学习VBA里面字典用法的，几乎都看过研究过

northwolves狼版主、oobird版主的有关字典的精华贴和经典代码。我也是从这里接触

到和学习到字典的，在此，对他们表示深深的谢意，同时也对很多把字典用得出神入化的高手们致敬，从他们那里我们也学到了很多，也得到了提高。

字典对象只有4个属性和6个方法，相对其它的对象要简洁得多，而且容易理解使用方便，功能强大，运行速度非常快，效率极高。深受大家的喜爱。

本文希望通过对一些字典应用的典型实例的代码的详细解释来给初次接触字典和想要进一步了解字典用法的朋友提供一点备查的参考资料，希望大家能喜欢。

给代码注释估计是大家都怕做的，因为往往是出力不讨好的，稍不留神或者自己确实理解得不对，还会贻误他人。所以下面的这些注释如果有不对或者不妥当的地方，请大家跟帖时指正批评，及时改正。

字典的简介

字典（Dictionary）对象是微软Windo

单元格边框

xlDiagonalDown 5 从区域中每个单元格的左上角至右下角的边框。 xlDiagonalUp 6 从区域中每个单元格的左下角至右上角的边框。 xlEdgeBottom 9 区域底部的边框。 xlEdgeLeft 7 区域左边的边框。 xlEdgeRight 10 区域右边的边框。 xlEdgeTop 8 区域顶部的边框。

xlInsideHorizontal 12 区域中所有单元格的水平边框（区域以外的边框除外）。 xlInsideVertical 11 区域中所有单元格的垂直边框（区域以外的边框除外）。

引用EXCEL函数：

Worksheets(5).Range(\& DR2) = \& LR5 & \& DR2 & \

Worksheets(5).Range(\& \

Worksheets(5).Range(\\\车间进货\DR2 & \

.Range(\车间进货\& \

Num = WorksheetFunction.Count(Worksheets(2).Range(\Range(\

n = WorksheetFunction.Lookup(2, [{1, 2, 3 ;\

AutoCAD VBA

一、AutoCAD VBA简介

?VBA（Visual Basic for Application）

VBA是AutoCAD的一种开发工具，具有强大的功能。Microsoft VBA是一种面向对象的编程环境，它与VB一样具有很强的开发功能。VBA与VB之间的区别就是VBA AutoCAD在同一处理空间运行，为AutoCAD提供智能和快速的编程环境。VBA

功能：创建对话框和其它界

? ? ? ?

?

面；

创建工具栏；

建立模块级宏指令；

提供建立类模块的功能；

具有完善的数据访问和管理能力；(ADO、DAO、RDO，C/S)

能够使用Win32API提供的功能，建立应用程序与操作系统之间的通信；

在AutoCAD中使用VBA的好处Visual Basic编程环境易学易用；

? VBA作为AutoCAD的一个过程运行，这使程序执行速度变得非常快； ? 对话框结构快速有效，允许开发者在设计时启动应用程序并能得到快速反

馈；（易于代码纠错和维护）

? 对象可以独立出来，也可以嵌入AutoCAD图形。灵活性很强。

二、理解类和对象在AutoCAD VBA界面中有许多不同类型的对象。

例如:

? 图形对象，如线、弧、文本和标注都是对象

第一套模拟题

一、选择题

（33）OpenForm的功能是用来打开

A)表 B)窗体 C)报表 D)查询

（34）运行下面的程序段： For k＝ 5 to 10 Step 2 k＝k*2 Next k

则循环次数为：

A)1 B)2 C)3 D)4

（35）在\窗体视图\显示窗体时，要求在单击命令按钮后标签上显示的文字颜色变为红色，以下能实现该操作的语句是

A)Label1.ForeColor＝255 B)bChange.ForeColor＝255 C)Label1.BackColor＝\ D)bChange.BackColor＝\ 二、填空题

（10）有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text33个文本框中输入的3科成绩的平均成绩，并将结果存放在Text4文本框中，单击退出按钮则退出。请将下列程序填空补充完

自 学 收 集

1、Application.CommandBars(\ 2、cells(activecell.row,\活动单元格所在行B列单元格中的值

3、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置 Dim shtSheet As Worksheet For Each shtSheet In Sheets

If shtSheet.Name = \ Next shtSheet

Set shtSheet = Sheets.Add(Before:=Sheets(1)) shtSheet.Name = \End Sub

4、Sheet1.ListBox1.List = Array(\一月\二月\三月\四月\一次性增加项目

5、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中 6、Sub pro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识me Me.Unprotect

从零开始，步入Word宏编程的世界（第一讲）

工作中，经常看到许多朋友在使用Office时已经非常地熟练，但仍不敢去接触Office 的VBA编程；在网上Office的VBA编程论坛中，同样看到有朋友在其中流连了相当长的时间，但仍然不得其门而入。问一下这两类朋友，前者觉得编程是一件很“高深”的事，自己恐怕学不会；后者为了提高自己的工作效率，虽然很想学，但自己一点编程的基础也没有，照着网上高手们的帖子做，反而越学越糊涂。当我问第二类朋友为什么不多看看VBA的帮助文件时，“看不大懂，就像有语言障碍一样。”他这样回答我。

对于第一类朋友，我想说，不要被自己想象出来的“困难”吓倒，如果您没有亲自尝试过，怎么知道编程会很“高深”，又怎么知道自己学不会？而第二类朋友如果能静下心来把基础知识补一补，相信您的问题也会迎刃而解。

那么，就让我们从最基础的知识开始，步入Office宏编程的世界吧。 文前的几点说明：

1、虽说本文用到的程序在office2007与office2010中同样可以正常运行，但考虑到目前单位办公用机的实际情况，本文所有的实例主要还是面向Office2003的用户；

2、为了便于