也欢迎大家讲优秀的文章提供给我。

1楼 教程

2楼 实用代码

3楼 控件应用

4楼、类模块

5楼、DAO/ADO/SQL

6楼、应用实例

7楼、实用工具

8楼、其他

一、手工新建数据库，打开和关闭数据库

       ACCESS数据库用代码可以建但是我觉得没那个必要  我是用他来放东西的 无所谓了 于是我手工右键建一个ACCESS文件 重命名为数据库.mdb 然后创建表1 然后添加字段名称姓名和成绩. 好手工新建完毕 关闭退出.

EXCEL要想用DAO先要引用一下,方法是打开VBE编辑器 引用 找到DAO 3.6

 
此主题相关图片如下：

 然后是数据库的打开和关闭.因为无论是写入数据,修改数据 删除数据 查询数据 都要先打开数据库 然后再关闭的

 操作数据库先要声明变量

   打开

   Dim db1 As Database '声明数据库变量
    Dim rs1 As Recordset '声明指针
    Set db1 = OpenDatabase(ThisWorkbook.Path & "\数据库.mdb")
    Set rs1 = db1.OpenRecordset(Name:="表1", Type:=dbOpenDynaset)

关闭更简单：

    rs1.Close
    db1.Close

因为我的EXCEL和数据在同一个文件夹路径我就这样写了ThisWorkbook.Path & "\数据库.mdb"

二、增加数据

     Sub 增加记录()
    Dim i As Long
    Dim db1 As Database    '声明数据库变量
    Dim rs1 As Recordset    '声明指针
    Set db1 = OpenDatabase(ThisWorkbook.Path & "\数据库.mdb")
    Set rs1 = db1.OpenRecordset(Name:="表1", Type:=dbOpenDynaset)
    For i = 2 To Range("A65536").End(xlUp).Row    '行循环
        rs1.AddNew    '增加一行新数据
        rs1.Fields("姓名") = Cells(i, 1)    '写入数据
        rs1.Fields("成绩") = Cells(i, 2)    '写入数据
        rs1.Update    '把记录写入数据库 这个一定不能少
    Next i    '循环下一个
    rs1.Close
    db1.Close
End Sub

这个类似于listview控件增加数据 rs1.AddNew    rs1.Update    记住就行

二、修改数据

     把姓名A3的成绩改成70

    Sub 修改记录()
    Dim db1 As Database    '声明数据库变量
    Dim rs1 As Recordset    '声明指针
    Set db1 = OpenDatabase(ThisWorkbook.Path & "\数据库.mdb")
    Set rs1 = db1.OpenRecordset(Name:="表1", Type:=dbOpenDynaset)
    rs1.FindFirst "姓名='A3'"    '找到A3,后边还要专门讲查询
    rs1.Edit    '编辑修改
    rs1.Fields("成绩") = 70    '把成绩修改掉
    rs1.Update    '把记录保存到数据库这句不要漏掉
    rs1.Close
    db1.Close
End Sub
三、删除数据

      把姓名A4这条记录删除掉

Sub 删除记录()
    Dim db1 As Database    '声明数据库变量
    Dim rs1 As Recordset    '声明记录
    Set db1 = OpenDatabase(ThisWorkbook.Path & "\数据库.mdb")
    Set rs1 = db1.OpenRecordset(Name:="表1", Type:=dbOpenDynaset)
    rs1.FindFirst "姓名='A4'"    '找到A4
    rs1.Delete
    rs1.Close
    db1.Close
End Sub
这里没有 rs1.Update     只有新增和修改时才用。
点击浏览该文件

查询在3楼

原来ACCESS可以设置数据类型 在数据表 数据类型设置一下 以上代码计算还有查询会方便更多, 让高手们笑话了

【不带变量调用】

一般在VBA里，我们调用某个过程，都会用Call语句，先说说用Call语句直接调用某个过程的方法

例如你有一个过程aa如下：
Sub aa()
　　Msgbox "喵喵", 64
End Sub

那么调用这个过程的方法为：
Sub Call_aa_01()
　　aa
End Sub

这里，call语句里的call是可以省略的，但为了令代码更清晰，一般程序员会喜欢加上去，以表示aa是一个过程：
Sub Call_aa_02()
　　Call aa
End Sub

如果aa是一个带有参数的过程，如：
Sub aa(str As String)
    MsgBox str, 64
End Sub

那么在用call语句调用的时候，就要这样（不带Call）：
Sub Call_aa_03()
　　aa "喵喵"
End Sub

或者这样（带Call）：
Sub Call_aa_04()
　　Call aa ("喵喵")
End Sub

这里值得注意的是，调用过程的名称如果在整个过程里不是唯一的，即其他模块也有相同名称的过程，那么在调用其他模块里的同名过程时，需要加上模块的名称，如模块1和模块2同时存在过程aa，在模块1里想调用模块2的过程aa，那么必须加上模块2做前缀，否则只会调用同模块下的aa：
Sub Call_aa_05()
　　Call 模块2.aa
End Sub

如果aa是在另外一个工作簿里，需要先在VBE-工具-引用，添加引用的工作簿（通常会显示该工作簿的工程名称，如VBAProject1），再加上工程名加以调用，这里要注意，相互调用的工作簿是要打开的，而且工程名称不能重复，不然不能引用。如：
Sub call_aa_06()
    Call VBAProject1.模块2.aa
End Sub

同时，有多个过程aa时，一样需要加上模块名称，只有一个的话模块名称可省略：
Sub call_aa_07()
    Call VBAProject1.aa
End Sub

【带变量调用】

好了，以上是传统的调用方法，如果过程名称aa是一个变量呢？我们注意到用Call语句，后面的过程名称不可以是变量，例如以下的调用是行不通的：
Sub Call_aa_08()
　　Dim str As String
　　str = "aa"
　　Call str
End Sub

我们要用另一种方法，Application.run方法来调用过程名是变量的过程：
Sub Call_aa_09()
    Dim str As String
    str = "aa"
    Application.Run str
End Sub

如果用run方法来调用带参数的过程，则这样，多个参数用逗号分隔：
Sub Call_aa_10()
    Dim str As String
    str = "aa"
    Application.Run str, "喵喵"
End Sub

Run方法处理同名过程和Call语句不一样，只要在工作簿中存在相同的名称，即使是工作表里定义的名称，像上一个过程的写法就会报错（没有找到过程或者工程错误），也必须在过程名前加上模块名称（注意点不要漏了），如：
Sub Call_aa_11()
    Dim str As String
    str = "aa"
    Application.Run "模块2." & str, "喵喵"
End Sub

引用其他工作簿（该工作簿必须是打开的），如Book1里的过程则需要加上工作簿名称（注意引号不要漏了），如：
Sub Call_aa_12()
    Dim str As String
    str = "aa"
    Application.Run "Book1!模块2." & str, "喵喵"
End Sub

为了自动化Outlook，使Excel的VBA能调用Outlook对象，我们必须先访问Outlook的对象模型。也就是说，在Excel里操纵Outlook的对象，你必须首先能够让Excel“看到”它们。 通常有两种方法可以公开一个对象模型到Excel应用程序，称为前期绑定和后期绑定。 

绑定的意思就是把客户端的对象模型开放给主程序，把他们强制性的联系在一起。这里我们就是指把Outlook对象模型开放给ExcelVBA主程序。 


前期绑定

前期绑定，意思就是在你的程序运行前就已经进行了绑定，绑定的方法是在VBE编辑器里点击工具-引用，选上Microsoft Outlook 11.0 Object Library。（Outlook的版本不同，数字会有变化，我用的是2003，版本是11.0） 




以下一段代码是前期绑定后，打开收件箱第2封邮件的代码（按主题排序）：

 Sub OpenMail_1()
    Dim myOlApp As New Outlook.Application
    Dim myNameSpace As Object
    Dim myFolder As Object
    Dim myItem As Object

    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myItem = myFolder.Items(2)
    myItem.Display
End Sub


后期绑定

后期绑定就是在程序运行的时候才进行绑定，不需要事先引用Microsoft Outlook 11.0 Object Library，而是需要运用GetObject和CreateObject函数。 

以下代码同样是实现：打开收件箱第2封邮件（按主题排序）：

Sub OpenMail_2()
    Dim myOlApp As Object
    Dim myNameSpace As Object
    Dim myFolder As Object
    Dim myItem As Object

    '如果outlook已经打开，直接取Outlook实例，如果没有打开，则创建一个Outlook实例
    '（我不喜欢多打开一个Outlook窗口）
    On Error Resume Next
    Set myOlApp = GetObject(, "Outlook.Application")
    If Err.Number = 429 Then
        Set myOlApp = CreateObject("Outlook.application")
    End If

    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    '后期绑定对象库的时候，GetDefaultFolder类型不能常量“olFolderInbox”表示
    '要用参考值来表示，olFolderInbox的参考值为6
    Set myFolder = myNameSpace.GetDefaultFolder(6)
    Set myItem = myFolder.Items(2)
    myItem.Display

End Sub


这里有一个小小的不同之处： 

前期绑定用的是 GetDefaultFolder(olFolderInbox)
后期绑定用的是 GetDefaultFolder(6)

 olFolderInbox是Outlook的一个内置对象模型，在后期绑定对象库的时候不会开放给Excel，不能被ExcelVBA识别，因此不能用常量的形式（olFolderInbox）表示，只能用参考值（6）来表示。 

从以上看来，前期绑定的代码更容易进行理解和调试，但是，当我们要共享文档的时候，就会出现问题了，因为不能保证每个人用的Outlook版本都和你的一样，如果不一样的话，对象库也会不一样，这时用前期绑定的程序就会报错。而用后期绑定的话，可以不用理会别人的版本是什么，都可以运行。因此我会更喜欢用后期绑定

根据VBA代码帮助文件和实际需要，自己总结了选择性粘贴VBA代码的语法和实例。

一、语法

PasteSpecial 方法

解释：将剪贴板中的 Range 对象粘贴到指定区域中。

语法：expression.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

expression      必需。该表达式返回一个 Range 对象。

Paste      XlPasteType 类型，可选。指定要粘贴的区域部分。

Operation      XlPasteSpecialOperation 类型，可选。指定粘贴操作。

SkipBlanks      Variant 类型，可选。若为 True，则不将剪贴板上区域中的空白单元格粘贴到目标区域中。默认值为 False。

Transpose      Variant 类型，可选。若为 True，则粘贴区域时转置行和列。默认值为 False。

二、语法图示说明

 
此主题相关图片如下：

三、示例

Sub 选择性粘贴1()  '将E4单元格的公式复制，并选择性粘贴到E4单元格

    Range("A4").Copy

    Range("e4").PasteSpecial Paste:=xlPasteValues

End Sub

Sub 选择性粘贴2()  '将C4单元格的值与e2:E4单元格的和粘贴到E2:E4

    Range("C4").Copy

    Range("E2:E4").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

End Sub

Sub 选择性粘贴3()    '将A2:A6单元格的内容转置粘贴到以D8开始的单元格区域

    Range("A2:B6").Copy

    Range("D8").PasteSpecial Transpose:=True

End Sub

点击浏览该文件

一，数组的下标
在VBA里，一个数组是有一定的大小和维数的，而用来标识数组的这些属性的数字，就叫数组的下标,一般是用括号括起来，写在数组的右边
数组的一般表示方法是：

数组名称（下标1，下标2，下标3.....）

在这里，每一个下标表示一个维度，用逗号分隔，下标个数代表数组维数
VBA数组最多可以定义60个维度，即后面可以跟60个下标
注意：数组是没有“上标”这个概念的

每个下标，都有一定范围，来指示该维度的大小
这个范围靠小的那边，称为这个下标的下界（最小下标）；靠大的那边，称为这个下标的上界（最大下标）

下标的表示方式基本上有两种：

1. 单个大于等于0的整数表示下标，这时 

该维的下界（最小下标）：默认为0； 
该维的上界（最大下标）：这个整数； 
该维的元素的个数：（这个整数+1）； 

该数组元素的个数为：各维个数的乘积。 

arr(4) 
——表示这个数组只有一维，下标是4，下界是0，上界是4，数组的元素个数是5 

 运行以下代码，在本地窗口显示数组的元素组成（Alt+F11调出VBE编辑器，然后在“视图”菜单中调出本地窗口）
 Ubound函数返回数组的上界
 Lbound函数返回数组的下界

 Sub aa()
     Dim arr(4)
     MsgBox UBound(arr)
     MsgBox LBound(arr)
     Stop
 End Sub

 

arr(1,2) 
——表示这个数组有两维，第一维下标是1，下界是0，上界是1；第二维下标是2，下界是0，上界是2；该数组的元素个数是（1+1）×（2+1）=6 

 运行以下代码，在本地窗口显示数组的元素组成（Alt+F11调出VBE编辑器，然后在“视图”菜单中调出本地窗口）
 Ubound函数返回数组的上界,后面的参数代表返回第几维
 Lbound函数返回数组的下界,后面的参数代表返回第几维

 Sub bb()
     Dim arr(1, 2)
     MsgBox UBound(arr) & "," & UBound(arr, 2)
     MsgBox LBound(arr) & "," & LBound(arr, 2)
     Stop
 End Sub



arr（1,0,2) 
——表示该数组有三维，第一维下标是1，下界是0，上界是1；第二维下标是0，下界是0，上界是0；第三维下标是2，下界是0，上界是2；该数组的元素个数是（1+1）×（0+1）×（2+1）=6 

 运行以下代码，在本地窗口显示数组的元素组成（Alt+F11调出VBE编辑器，然后在“视图”菜单中调出本地窗口）
 Ubound函数返回数组的上界,后面的参数代表返回第几维
 Lbound函数返回数组的下界,后面的参数代表返回第几维

 Sub cc()
     Dim arr(1, 0, 2)
     MsgBox UBound(arr) & "," & UBound(arr, 2) & "," & UBound(arr, 3)
     MsgBox LBound(arr) & "," & LBound(arr, 2) & "," & LBound(arr, 3)
     Stop
 End Sub



2，以区间表示下标，格式为 ：（下界 to 上界），这时

该维的下界（最小下标）：下界；
该维的上界（最大下标）：上界；
该维的元素的个数：上界-下界+1；

该数组元素的个数为：各维个数的乘积。

arr(1 to 3)
——表示这个数组只有一维，下标是“1 to 3”，下界是1，上界是3，数组的元素个数是（3-1+1）=3

 运行以下代码，在本地窗口显示数组的元素组成（Alt+F11调出VBE编辑器，然后在“视图”菜单中调出本地窗口）
 Ubound函数返回数组的上界,后面的参数代表返回第几维
 Lbound函数返回数组的下界,后面的参数代表返回第几维

 Sub dd()
     Dim arr(1 To 3)
     MsgBox UBound(arr)
     MsgBox LBound(arr)
     Stop
 End Sub



arr(1 to 3,3 to 4, -1 to 1) 
—— 表示该数组有三维，第一维下标是“1 to 3”，下界是1，上界是3；第二维下标是“3 to 4”，下界是3，上界是4；第三维下标是“-1 to 1”，下界是-1，上界是1； 该数组的元素个数是（3-1+1）×（4-3+1）×（1-（-1）+1）=18

 运行以下代码，在本地窗口显示数组的元素组成（Alt+F11调出VBE编辑器，然后在“视图”菜单中调出本地窗口）
 Ubound函数返回数组的上界,后面的参数代表返回第几维
 Lbound函数返回数组的下界,后面的参数代表返回第几维

 Sub ee()
     Dim arr(1 To 3, 3 To 4, -1 To 1)
     MsgBox UBound(arr) & "," & UBound(arr, 2) & "," & UBound(arr, 3)
     MsgBox LBound(arr) & "," & LBound(arr, 2) & "," & LBound(arr, 3)
     Stop
 End Sub



二，数组元素的下标

数组的每个元素，也分别有自己的下标，当声明了一个固定范围的数组后，其每个元素的下标也同时确定了

元素的下标标识了元素在数组中的相对位置，要知道元素的绝对位置，必须要知道该维度的下界是多少，然后用下标减去下界，得出该元素在该维度的绝对位置

元素某维度的绝对位置 = 该维度的下标 - 该维度的下界 + 1

看上面最后一个例子，我们随便抽出一个元素来看，如arr(3,4,0)这个元素

3代表他在第一维的绝对位置是3，因为第一维的下界是1，
4代表第二维的绝对位置是2，因为第儿维的下界为3，
0代表第三维的绝对位置为2，因为第三维的下界是-1

Excel 2007 Application对象开发指南
http://msdn2.microsoft.com/en-us/library/bb978780.aspx

概述
Application对象是Microsoft Office Excel 2007对象模型中最高级别的对象，表示Excel程序自身。Application对象提供正在运行的程序的信息、应用于程序实例的选项以及实例中打开的当前对象。因为它是对象模型中最高的对象，Application对象也包含组成一个工作簿的很多部件，包括如工作簿、工作表集合、单元格以及这些对象包含的数据等。

Application对象包含：
* 程序范围的设置和选项。这些选项大部分同“工具”菜单下的“选项”对话框里的内容相同。
* 顶级对象返回的方法，如ActiveCell、ActiveSheet等。

在下面几节里，你将通过使用VBA代码示例学习到一些Application对象中经常使用到的对象、方法和属性。关于Application对象模型所有成员的详细资料，请参考http://msdn2.microsoft.com/en-us/library/bb255823.aspx。

Application对象中其它对象的表示方法
你可以使用Application属性返回Application对象。获取一个Application对象后，如需访问它下面的对象，可以在对象模型层级中往下移动。下面示例设置一个工作表的第一个单元格内容为20.

要表示一个单元格，代码示例从Application对象开始，移到第一个工作簿，再移到第一个工作表，最后到这个单元格。

下面示例在另一个Excel程序中创建一个Excel工作簿对象，然后打开一个工作簿。

不需要使用“Application”限定词，很多的属性和方法也可以直接被用来返回那些最常用的用户界面对象，如活动工作表(ActiveSheet属性)。例如，除了使用Application.ActiveSheet.Name = "Monthly Sales",你也可以使用ActiveSheet.Name = "Monthly Sales"。然而，当使用这个简便表示方法时必需小心，需要选择正确的对象。例如通过使用Worksheet对象的Activate方确定你选择了正确的工作簿和工作表后，你可以使用Cell(1,1)表示第一个单元格。

有几种情况你必需使用Application限定词。例如，OnTime对象(本文后面部分将讨论)需要这个限定词，还有程序窗口的Width和Height属性。一般来说，用来处理Excel窗口的外观或影响程序全局行为的属性或方法需要使用Application限定词；例如，DisplayFormlaBar属性用来显示或隐藏公式栏，Calculation方法也需要限定词。

一共做了4个方法，期间多谢八月梦游的帮助和提点。

题目是提取以下网页里的店铺名称和地址：（没做提取多页的，偷懒）

http://bendi.koubei.com/search/searchstore.html?option.cityname=%CE%C2%D6%DD&option.category=4&option.distance=2000&pageNo=1

1.  XMLHTTP对象，速度不错，受网页源代码改变影响，但是处理网页源文件最方便自由。

2. InternetExplorer对象，速度一般，受网页源代码改变影响，还需要激活IE，不喜欢。

3. QueryTables对象，平均速度最快，而且基本不受网页源代码改变影响，就是想获取多页数据的时候麻烦，而且多了一个web查询区域需要删除。

4. WebBrowser对象，第一次速度次于XMLHTTP，之后就很快，受网页源代码改变影响，原理同InternetExplorer，就是多了个控件在工作表上不好看，只能靠缩小控件来隐藏。

4种方法各有优劣，看实际情况来选取合适的方法了。

个人觉得网页提取数据，没有什么技巧可言，归根到底，原理基本都是提取网页的源代码然后进行分析处理。

在VBA里，可能用字符串处理的办法更容易理解，其实也可以用获取网页元素的办法，例如第2和第4种方法，就用了一些这样的技巧，但由于对网页的元素不太熟悉，因此如果要方便的方法，还需要多了解网页的结构和代码才行了。

PS：记得看我家耗子写的火狐浏览器脚本，似乎也只能用枚举办法列出不同网页其源码的共同地方来写，想100%通用似乎很难啊。

 第一次附件：

点击浏览该文件

重新上传： 

点击浏览该文件

08-7-14日重新上传：

点击浏览该文件

=====================================

由于网页源码有所改变，08-7-14日重新修改后上传。

就组装成了这个我的自定义工具箱--【XSS 聚宝瓶 1.0】。

代码尚未完善，先传人界面给大家看看！

 有★★★★的菜单是还没有写好代码的！

操作界面：

此主题相关图片如下：

动画演示：

此主题相关图片如下：

[部分代码已在后面帖子里分别贴出！]

不过据看过的人说，翻译得不够清楚，问题是我自己也没怎么搞懂这个。

点击浏览该文件

调用文件夹图片：

将工作簿和图片夹解压到同一路径下。

点击浏览该文件

上面的参数，是按值还是按地址？

恳请说明原因，谢！

Sub T()
    Dim UseInput    As String
    Dim myReg       As Object
   
    UseInput = VBA.LCase(InputBox("输入的字符必须都是字母并且最后一个字符是“e”或者“E”", "请输入字符"))
    '或者是使用忽略大小写参数为真,可去除VBA.Lcase()       myReg.IgnoreCase = True
    Set myReg = CreateObject("Vbscript.RegExp")
    myReg.Global = True
    myReg.Pattern = "^[a-z]*e$"
   
    If myReg.Test(UseInput) Then
        MsgBox "你输入的字符符合要求"
    Else
        MsgBox "输入的字符必须都是字母并且最后一个字符是“e”或者“E”"
    End If
   
    Set myReg = Nothing
   
End Sub