vba dir用法

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

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

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语句后会自

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

前言

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

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

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

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

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

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

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

字典的简介

字典（Dictionary）对象是微软Windo

目录D-Link® SharePort.....................................................................................................................................................3介绍.......................................................................................................................................................................3系统要求................................................................................................................................................................3安装................

DIR-816中继无线信号

功能简介

无线中继即是无线AP在网络连接中起到中继的作用，能实现信号的中继和放大, 从而延伸无线网络的覆盖范围。如下图：外线连接一台无线路由器，已配置可正常上网，由于无线路由器信号的衰减，在房间的某些角落无线信号很弱，此时可在无线路由器与无线终端设备之间接入一台支持中继功能的路由器，从而把无线路由器的信号中继放大。

DIR-816

主路由器设置好，保证能访问internet，另主路由器的无线参数如下： SSID：piaoxiangxuan 安全模式：WPA2-PSK 密码类型：AES 密码：llppllggppxx

主路由器ip地址为:192.168.0.1

DIR-816 lan ip改为 192.168.0.2

设置步骤

下面是DIR-816中继的设置步骤：

1、建议先把电脑用网线连接到路由器四个LAN的任意一口。 2、设置路由器：

a、打开浏览器，在地址栏输入http://192.168.0.1，回车，首次登陆会显示一页设置页面。第一次登陆路由器需要选一种动态IP方式，点击“存储设定”后重新登录，才可以进入路由器高级菜单，否则都会返回至一页配置界面。

b、点击“存储设定”，然后转至登录页面。

c、

单元格边框

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界面中有许多不同类型的对象。

例如:

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