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中DIR函数用法讲解

1、dir代码演示

先上一段代码，作用是获取某个文件夹下子文件夹和文件的名称 没加注释的代码

Sub 获取文件夹和文件名()

Dim str1 As String, str2 As String, i As Integer

Set a = Application.FileDialog(msoFileDialogFolderPicker) a.Show

str1 = a.SelectedItems(1)

str2 = Dir(str1 & IIf(Right(str1, 1) = \ Do While Len(str2) <> 0

If str2 <> \ i = i + 1 Cells(i, 1) = str2

End if

str2 = Dir Loop End Sub

加了注释的代码

Sub 获取文件夹和文件名()

Dim str1 As String, str2 As String, i As Integer

Set a = Application.Fil

VBA中DIR函数用法讲解

1、dir代码演示

先上一段代码，作用是获取某个文件夹下子文件夹和文件的名称 没加注释的代码

Sub 获取文件夹和文件名()

Dim str1 As String, str2 As String, i As Integer

Set a = Application.FileDialog(msoFileDialogFolderPicker) a.Show

str1 = a.SelectedItems(1)

str2 = Dir(str1 & IIf(Right(str1, 1) = \ Do While Len(str2) <> 0

If str2 <> \ i = i + 1 Cells(i, 1) = str2

End if

str2 = Dir Loop End Sub

加了注释的代码

Sub 获取文件夹和文件名()

Dim str1 As String, str2 As String, i As Integer

Set a = Application.Fil

Excel VBA中for循环语句的用法

听语音

? ? ? ? ? ? ?

|

浏览：21306 |

更新：2015-05-30 16:57 |

标签：excel

? 1

? 2

? 3

? 4

? 5

? 6

分步阅读

for循环语句在VBA中扮演着比较重要的角色，为我们批量的处理表格数据提供了一个很好的途径，下面小编根据自己的一些亲身经验为大家分享一下Excel VBA中for循环语句的两个用法吧！

工具/原料 ? ?

office Excel软件 具备一定的VB基础更好

方法/步骤 1. 1

我们常用的for循环语句有两种，一个是for ……next结构；一个是For each……next结构。这两种结构主要都是针对多数据循环遍历的时候用到的。那么下面我将分别来介绍一下两种循环结构的具体用法，首先还是要打开VBA编辑器

2. 2

1.for……next结构 这个结构一般是这样的：

for i=初始值 to 结束值 step 步长值 ……

next

具体解释一下，初始值指的是循环开始的值，结束值指的是循环结束的值，实质上就是i值得一个判断，如果i值在起始值和结束值之间，那么进入循环语句，然后i值每运行到next语句后会自

VBA字典用法小记

十分鄙视那些将蓝桥玄霜大大的成果上传后还要收取下载券的做法，本来想直接上传一份大大的原版，可是百度文档提示已经有重复的文档，没办法，只好自己修改一下，在上传，想无私奉献的大大致敬！！！！！！！！！！

常用语句：

Dim d

Set d = CreateObject(\d.Add \ d.Add \d.Add \代码详解

1、Dim d ：创建变量，也称为声明变量。变量d声明为可变型数据类型(Variant)，d后面没有写数据类型，默认就是可变型数据类型(Variant)。也有写成Dim d As Object的，声明为对象。

2、Set d = CreateObject(\：创建字典对象，并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:\\windows\\system32\\scrrun.dll了。

3、d.Add \：添加一关键字”a”和对应于它的项”Athens”。 4、d.Add \“Belgrade”：添加一关键字”b”和对应于它的项”Belgrade”。 5、d.Add \“Cairo”：添加一关键字”c”和对应于它的项”Cairo”。

Exi

VBA字典用法小记

十分鄙视那些将蓝桥玄霜大大的成果上传后还要收取下载券的做法，本来想直接上传一份大大的原版，可是百度文档提示已经有重复的文档，没办法，只好自己修改一下，在上传，想无私奉献的大大致敬！！！！！！！！！！

常用语句：

Dim d

Set d = CreateObject(\d.Add \ d.Add \d.Add \代码详解

1、Dim d ：创建变量，也称为声明变量。变量d声明为可变型数据类型(Variant)，d后面没有写数据类型，默认就是可变型数据类型(Variant)。也有写成Dim d As Object的，声明为对象。

2、Set d = CreateObject(\：创建字典对象，并把字典对象赋给变量d。这是最常用的一句代码。所谓的“后期绑定”。用了这句代码就不用先引用c:\\windows\\system32\\scrrun.dll了。

3、d.Add \：添加一关键字”a”和对应于它的项”Athens”。 4、d.Add \“Belgrade”：添加一关键字”b”和对应于它的项”Belgrade”。 5、d.Add \“Cairo”：添加一关键字”c”和对应于它的项”Cairo”。

Exi

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

前言

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

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

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

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

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

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

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

字典的简介

字典（Dictionary）对象是微软Windo

Format用法详解

Format$(Now,\

只要这么一句~~~~~就可以得到“ 二○○六年五月二十六日” 亏我还得写得那么多。。。

所以对FORMAT函数进行研究，参照HELP文件，把一些用法写了下来。 现拿给大家共享。。。 --------------------------------- Format[$] ( expr [ , fmt ] ) format 返回变体型

format$ 强制返回为文本 -------------------------------- 数字类型的格式化

-------------------------------- 固定格式参数：

General Number 普通数字，如可以用来去掉千位分隔号 format$(\返回值 100123.12 Currency 货币类型，可添加千位分隔号和货币符号 format$(\返回值 ￥100,123.12 Fixed 格式为带两位小数的数字

format$(\返回值 100123.00 Standard 标准，即带千位分隔号和两位小数

format$(\返回值 100,123.00 Percent 百分数

format$(\返回值 10012300.00%