vbasql文档格式.docx

1、Workbooks 对象的 Open 方法：作用是打开一个工作簿。其语法为：expression.Open（FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad）其中：expression必选。该表达式返回一个 Workbooks 对象。FileName String 类型，必需。要打开的工作簿的文件名。U

2、pdateLinks Variant 类型，可选。指定文件中链接的更新方式。如果省略本参数，则提示用户选择链接的更新方式。否则，该参数的取值应为下表中的某个值。值含义 0 不更新任何引用。1 更新外部引用，但不更新远程引用。2 更新远程引用，但不更新外部引用。3 同时更新远程引用和外部引用。ReadOnly Variant 类型，可选。如果该值为 True，则以只读模式打开工作簿。Format Variant 类型，可选。如果 Microsoft Excel 正在打开一个文本文件，则该参数用于指定分隔字符，如下表所示。如果省略本参数，则使用当前的分隔符。值分隔符 1 制表符 2 逗号 3 空格

3、 4 分号 5 没有分隔符 6 自定义字符（请参阅 Delimiter 参数） Password Variant 类型，可选。该字符串指定打开一个受保护工作簿的密码。如果省略该参数并且指定工作簿已设置密码，则提示用户输入密码。WriteResPassword Variant 类型，可选。该字符串为一个写保护工作簿的写入权密码。如果省略该参数并且指定工作簿已设置密码，则提示用户输入密码。IgnoreReadOnlyRecommended Variant 类型，可选。如果该值为 True，则设置 Microsoft Excel 不显示建议只读消息（如果该工作簿以“建议只读”选项保存）。Origin

4、 Variant 类型，可选。如果该文件为文本文件，则该参数用于指示该文件来源于何种操作系统（以便正确映射代码页和回车/换行 （CR/LF）。可为以下 XlPlatform 常量之一：xlMacintosh、 xlWindows 或 xlMSDOS。如果省略本参数，则使用当前操作系统。Delimiter Variant 类型，可选。如果该文件为文本文件并且 Format 参数为 6，则此参数用于指定用作分隔符的字符。例如，可使用 Chr（9） 代表制表符，使用“,”代表逗号，使用“;”代表分号或者使用自定义字符。如果该参数为字符串，则只使用该字符串的第一个字符。Editable Variant

5、 类型，可选。如果该文件为 Microsoft Excel 4.0 加载宏，则该参数的值为 True 时可打开该加载宏以便在窗口中看到。如果该参数的值为 False 或者省略该参数，则该加载宏以隐藏方式打开，并且无法设为可见。本选项不能应用于由 Microsoft Excel 5.0 或更高版本的 Microsoft Excel 创建的加载宏。如果该文件是 Excel 模板，则参数的值为 True 时，会打开指定模板用于编辑。参数为 False 时，可根据指定模板打开新的工作簿。默认值为 False。Notify Variant 类型，可选。当该文件不能以可读写模式打开时，如果该参数的值为 T

6、rue，则可将该文件添加到文件通知列表。Microsoft Excel 将以只读模式打开该文件并轮询文件通知列表，当文件通知列表中的该文件可用时通知用户。如果该参数的值为 False 或省略该参数，则不请求任何通知，并且不能打开任何不可用的文件。Converter Variant 类型，可选。打开文件时试用的第一个文件转换器的索引号。首先使用的是指定的文件转换器：如果该转换器不能识别此文件，则试用所有的转换器。转换器索引号由 FileConverters 属性返回的转换器行号组成。AddToMru Variant 类型，可选。如果该值为 True，则将该工作簿添加到最近使用的文件列表中。Loc

7、al Variant 类型，可选。如果该值为 True，则以 Microsoft Excel （包括控制面版设置）的语言保存文件。如果该值为 False（默认值），则以 Visual Basic for Applications （VBA） 的语言保存文件，其中 Visual Basic for Applications （VBA）为典型安装的美国英语版本，除非 VBA项目的 Workbooks.Open 来自旧的国际化的 XL5/95 VBA 项目。CorruptLoad Variant 类型，可选。可为以下常量之一：xlNormalLoad、xlRepairFile 和 xlExtract

8、Data。如果未指定任何值，则默认值通常为普通状态，但如果 Excel 已尝试打开该文件，则可以是安全加载或数据恢复状态。首选值为普通状态。如果 Excel 在打开文件时停止操作，则为安全加载状态。如果 Excel 再次停止操作，则为数据恢复状态。示例本示例打开 Analysis.xls 工作簿，然后运行 Auto_Open 宏。Workbooks.Open ANALYSIS.XLS看起来Open方法的参数很多，其实经常用的不多，除了必须的FileName外，最常用的就是 Password，用来打开包含有打开权限密码的Excel文件，下面的例子就是打开密码为“123”的ANALYSIS. XL

9、S文件：, Password:=123Workbooks对象与 Sheets和Worksheets对象的 Add方法上个VBA教程中介绍了Workbooks对象的Open方法，目的是在介绍如果用SQL连接Excel带密码中时，需要用到这个方法，而今天也是因为下一篇SQL语言教程的文章需要而介绍Add方法，以便大家对比一下。下面的这些内容，同样也可以在Excel的VBA帮助中找到。一、Workbooks 对象的 Add 方法：新建工作簿，新建的工作簿将成为活动工作簿。语法是：expression.Add（Template） expression ：必需。Template ： Variant 类型

10、，可选。确定如何创建工作簿。1、如果本参数为指定一现有 Microsoft Excel 文件名的字符串，那么创建新工作簿将以该指定的文件作为模板。2、如果本参数为常量，新工作簿将包含指定类型的单张工作表。可为以下 XlWBATemplate 常量之一：xlWBATChart、xlWBATExcel4IntlMacroSheet、xlWBATExcel4MacroSheet 或 xlWBATWorksheet。3、如果省略本参数，Microsoft Excel 将创建包含一定数目的空白工作表的工作簿（该数目由 SheetsInNewWorkbook 属性设置）。给出一个最常用也最常见的例子就是，

11、本示例新建一个工作簿。 Workbooks.Add二、Sheets 和 Worksheets 对象的 Add 方法：新建工作表、图表或宏表。新建的工作表将成为活动工作表。 xpression.Add（Before, After, Count, Type） expression：该表达式返回上面的对象之一。Before：指定工作表对象，新建的工作表将置于此工作表之前。After：指定工作表对象，新建的工作表将置于此工作表之后。Count ：要新建的工作表的数目。默认值为 1。Type：指定工作表类型。1、Type 可为以下 XlSheetType 常量之一：xlWorksheet、xlChart

12、、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。2、如果要基于现有模板插入工作表，则指定该模板的路径。3、默认值为 xlWorksheet。下面的示例是活动工作簿的最后一张工作表之前插入一个新的工作表。ActiveWorkbook.Sheets.Add Before:=Worksheets（Worksheets.Count） Worksheet对象的Delete方法上篇上个VBA教程中介绍了Workbooks对象与Sheets和Worksheets对象的Add方法，这一篇就要来说说Delete，相对于Add方法，Delete方法是很简单了，也没有参数，

13、其语法是：expression.Delete（Shift） expression：该表达式返回一个 Worksheet 对象。唯一要说明的是，当要删除一个非空的工作簿或工作表时，此方法将显示提示用户确认删除的对话框。此对话框将按默认方式显示。当调用 Workbook 或 Worksheet 对象时，Delete 会返回一个 Boolean 值，如果用户单击“取消”，则该值将返回“False”；如果用户单击“删除”，则该值将返回“True”。如果我们要让它不出现这个提示，可以把Application对象的DisplayAlerts属性，设定为False即可，下面这段代码，是删除当前工作表，且不出

14、现提示！运行时请注意，当前工作表不要有需要的数据存在！Sub Excelba（） Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub关于Delete的说明就是这么简单，应该不会很难理解吧*_* 利用ADO的Connection对象来连接数据库在SQL语言教程 -序中我们说到这一篇要介绍利用ADO的Connection对象来连接数据库，目地就是让大家了解后，就可以便于以后的其它SQL语言教程里的代码，大家可以动手运行一下，看一下效果，之后的大部份例子中，这篇文章

15、介绍的都是要用到的，就像我们要使用Excel文件时，要先用Workbooks对象的Open方法打开Excel文件一样。下面进入正题。首先要说的是ADO是什么？ADO的全称是：Microsoft ActiveX Data Objects ，它使您的客户端应用程序能够通过 OLE DB 提供者访问和操作数据库服务器中的数据。它的主要优点是易于使用、速度快、内存支出低和占用磁盘空间少。ADO 支持用于建立客户端/服务器和基于 Web 的应用程序的主要功能。第二个问题是如何使用ADO？ADO有不少版本，不同的电脑里可能就有不同的版本，在VBA中使用 ADO的方法是，在VBE编辑器中工具菜单的引用项里，

16、引用Microsoft activex date objects x.x，其中x.x为版本号，可能会因为你安装的office的版本不同而不同，我用的例子，大多引用了2.5版。认识了ADO，那开始说Connection 对象，Connection 对象表示数据源的唯一会话。ADO提供这个对象，来让我们连接数据库。而Connection 对象的ConnectionString 属性，就是用来指示用于建立到数据源的连接的信息。ConnectionString 属性有五个参数：参数 | 说明 Provider=：指定用于连接的提供者的名称。File Name=：指定提供者特有的文件（例如，持久保留的数

17、据源对象）的名称，这些文件中包含预置的连接信息。Remote Provider=：指定当打开客户端连接时使用的提供者的名称。（仅限于远程数据服务。） Remote Server= ：指定当打开客户端连接时使用的服务器的路径名称。URL=：指定连接字符串为标识资源（如文件或目录）的绝对 URL。设置 ConnectionString 属性后，就可以用 Connection 对象Open方法来接连数据库了。能看到这，可能你已有点晕了，不过不要紧，下面的几个例子，就能让你更好地理解上面这样比较无味的文字，首先是一段连接ACCESS数据库的程序。Sub 连接进销存表数据库（） * 作者：bengden

18、g 功能：连接同一目录下的进销存表数据库文件 注意：要在工具/引用中引用microsoft activex date objects x.x 其中x.x为版本号，可能会因为你安装的office的版本不同而不同，本例引用了2.5版 Dim conn As ADODB.Connection Dim WN As String Dim sSql As String WN = 进销存表.mdbSet conn = New ADODB.Connection conn.ConnectionString = Provider=Microsoft.Jet.Oledb.4.0; & _ Data Source=

19、ThisWorkbook.Path & WN _ &;Jet OLEDB:Database Password=conn.Open If conn.State = adStateOpen Then MsgBox 连接成功！ conn.Close End If Set conn = Nothing 上面程序的红色部分，是为了打开带密码的Access的数据库文件时，需要指定密码的代码，下面再来一段程序，来连接一个Excel文件！7Sub 连接进销存表（） 连接同一目录下的进销存表文件 进销存表.xlsconn.Open Extended Properties=Excel 8.0; WN 上面的与第一

20、段程序对比，需要多设定一个参数“Extended Properties”，这是指定Excel文件的版本，现在已经有的版本为5.0、7.0、8.0等，分别对应的是95版，97版与20002003版的XLS文件格式，我用的是2003版，所以设定为=Excel 8.0。最后需要说明的是，第二段程序是不能像第一段程序中，用Jet OLEDB:密码来打开与连接带有密码的Excel文件的，如果需要处理这样的文件，就要用Workbooks对象的Open方法先打开这个Excel文件后再处理。下面的这个程序就是这样的例子：Sub 连接带密码进销存表（） 连接同一目录下的打开文件密码为“123”的进销存表文件 W

21、orkbooks.Open ThisWorkbook.Path & WN, Password: _ Workbooks（WN）.Close False 这篇文章到这就完了，有点长，有三个程序，大家可以复制到VBA编辑器中，运行一下代码，好好的对比与理解一下，相信，很快你就会踏这第一步了，而后面的世界还很多精彩，看到这的你，应该可以看出一点点 SQL与ADO与Excel的联系了，那就让我们一起继续向行吧！8CREATE TABLE -创建数据表的语句数据表是数据库的基本架构，就像Excel文件中的工作表一样，在Excel中我们可以用ADD方法来创建新的工作表，而SQL语言里，CREATE TAB

22、LE语句就是用来创建数据表的。在说明CREATE TABLE语句的语法之前，我们再来了解一些相关的知识。Excel工作表中对应有列与行，而在数据库中，对应称为Column与Row，对于这两个单词，应该用过VBA的人都不会陌生，这也是 Excel中VBA里列与行的写法。不同的是下面，在数据库中多少列是在创建表时就有设定的，虽然以后还有可能增加，而且在设定时还要规定整列的数据类型，同时也意味者整列的数据类型都是一样的；这个在Excel中是没有这样的规则，而且Excel的最大行与列是由Excel本身决定的，这也是数据库与电子表格对数据约束最大的不同。而数据库具体有哪些数据类型呢？以ACCESS为例，

23、有存贮日期类型的DATETIME；有存贮数值类型的 FLOAT，SMALLINT，INTEGER等，有字符串型的CHAR等等。不同的数据库可能支持不同的数据类型，因此在使用时应该参考一下数据库在这方面的说明。了解了上面的信息，下面开始说下CREATE TABLE语句的语法：CREATE TABLE 表格名（列名1 列名1的数据类型,列名2 列名2的数据类型,. ）注意在列名与数据类型中间有一个空格，在VBA中，我们可以利用ADO的Execute方法，来运行SQL语句，下面我们就用CREATE TABLE 来创建一个进销存表数据库的三个数据表明细表，进仓表与出仓表；其中明细表有5列，分别为物品名称（字符串型），结余日期（日期型），结余数量（双精度型），进仓数量（双精度型），出仓数量（双精度型）；进仓表有3列，分别为进仓日期（日期型），物品名称（字符串型），进仓数量（双精度型）；出仓表有3列，分别为出仓日期（日期型），物品名称（字符串型），出仓数量（双精度型）。代码如下：Sub 创建进销存表数据库（） *