Excel我的EXCElvba后学ACCESSVBA的经历-MicrosoftAccessSQLServer-ExcelHome论坛

Excel我的EXCElvba后学ACCESSVBA的经历-MicrosoftAccessSQLServer-ExcelHome论坛 Excel 我的EXCEl vba后学ACCESSVBA的经历 - Microsoft Access & SQL Server - Excel Home论坛Excel教程下载中心，Microsoft技术社区联盟成员，全球领先的Excel2003/2007/2010门户，培训学习Office的最佳社区 技术服务 免费培训 模板下载 美术教师简历模板下载excel报表模板下载excel表格模板下载公司借款单模板设计变更模板下载 文章资料 原创图书 视频教程 首页免费注册 回家 标签 EH风采 EH微博 Show 快乐答 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 抢红包 帮助 繁體Excel Home论坛 » Microsoft Access & SQL Server » 我的EXCEl vba后学ACCESSVBA的经历 今天您拿到论坛红包了吗,免费网页版Excel - 魔方网表下载 Excel服务器2010软件和教程下载 免费下载15集Excel实战技巧视频教程 Excel不给力, 何不试试FoxTable～ 2011年Excel免费培训班3-6月开课计划 新人必读:ExcelHome最佳学习方法 免费下载Excel行业应用视频教程 精粹:成为Excel高手的捷径 免费下载39集新Excel精粹视频教程 免费学 习Excel数据透视表视频教程 入门必看《循序渐进学Excel》视频 最新:会员可参与优秀帖子评分啦 免费学习Excel 2007精粹视频教程 秘技:10分钟赚足培训课券～ 搞不定老板要的报表,我们来帮您 ‹‹ 上一主题 | 下一主题 ›› 238 12345678910››... 24 发新话题 发布投票 发布商品 发布悬赏 发布活动 发布辩论 发布视频 打印 [分享] 我的EXCEl vba后学ACCESSVBA的经历 hits : 44213 lichaobin Excel Home高级 积分1106 财富1363 , 分享0 鲜花0 技术3 注册时间2004-7-24 总积分排名 811 发短消息 加为好友 1楼 大 中 小 发表于 2009-3-23 01:59 只看该作者 ?《Excel 2007实战技巧精粹》白金打造，重装上阵 配套视频教程免费下载中? 我的EXCEl vba后学ACCESSVBA的经历 我的EXCEl vba后学ACCESSVBA的经历 ,,,,,VBA深入了以后，发现其数据处理是多么的便利(越学自己知道所学的太少了( 在您发现,,,,,代码编程器中工具菜单有一引用的加载项的时候(这么多的引用足够让你迷失向了( 我是这么一路走过来的: 完函数-数组函数-,,,,引用中所涉的东东(,,,,,,,,DICTIONARY等用法)后,就到,,,,,,了( 如果你要学,,,，那么，我建议你先从系统的罗斯文数据库开始学起( 不要买书了，那例子就是最好的教材( 等你了解了,,,,,,罗斯文数据库时，你才算开始懂基本概念( 不卖关子，想当初我从来没有想过用,,,,,,的( 但为什么后来又学了它呢, 大家知道，,,,,,数据处理即见即得，很是方便(也形象理解(但它也有短处啊( 一个表才,,,,,行，数据量大的时候就吃不消了((别拿,,来说)(所以才考虑了它的兄弟,,,,,,( 初次用时，觉得,,,太呆板了，真受不了(一打开数据库都是菜单操作(这也受限，那也受限(模块乱七八横的( 没有耐心真的学不好,,,,,,的(恨不得把它给干掉( 那为什么那么恨它还要学它用它呢,呵呵，因为你知道,,,,,的缺点之后，正好是,,,,,,的优点( 如:它存储容量大，查询快(不需要编程模块化宏或控件操作等(呵呵，因为你不了解它，所以你恨它( 即然一心向道，那么，我现在就道道了((( 我们在,,,,,表中知道: ,、数据清单(即表)、字段(表头或表标题)、字段类型、筛选、排序、函数、索引、application对象等等。 其实在,,,,,,里也大都是一样的。只是增加的不少的概念。 明显区别比如:关系、联合、,,,、查询表、追加、主键、它的单元格操作更严谨。 它的模块作用:表、查询、窗体、宏、代码编辑器、分组。菜单等 有了这些基本概念认识后，你还需纠正以下想法: 没学会爬别想走(没弄清基本概念就想像,,,,,一样用,,,编程来控制,,,了。 了解表、查询、窗体、宏、代码编辑器的作用及特点。以便以后想干什么在哪用。 复习一下控件用法，,,,大多不需编程，但用得最多就是控件了。主要是了解其常用事件及值(value,item,text) 控件的数据源，查学一下,,,来查询了。,,,,,,。。。 别以为,,,的宏是录的，你得多花时间了解一下它的常用方法。 最后，你得找个突破口入门了。 要想用,,,，则必需了解怎么打开它，它属于哪个对象。 库文件:,,，当前库文件，currentdb ,它从属于access.application 表:table tabledef 查询表 querydef 查询:query 宏是什么， 代码是什么，从哪对象引用来的。 说到突破口了吧，呵呵，你现在知道打开数据库，但你得知道怎么放和用数据呀。 下面，就拿导入表及链接表作为入口的突破口来主要讲述吧。 在打开数据库后，菜单,获取外部数据-导入或链接表. 嘿嘿，真有的讲呢。先从手工导入讲起。 [local]1[/local] [ 本帖最后由 lichaobin 于 2009-3-23 10:24 编辑 ] UID47298 帖子329 精华1 经验897 威望0 阅读权限50 性别男 在线时间118 小时 查看详细资料TOP lichaobin Excel Home高级 积分1106 财富1363 , 分享0 鲜花0 技术3 注册时间2004-7-24 总积分排名 811 发短消息 加为好友 2楼 大 中 小 发表于 2009-3-23 02:39 只看该作者 ? FoxTable，数据管理专家，轻松输入，轻松统计，轻松出报表～ ? 什么情况下用链接表，什么情况用导入表功能。 何时使用导入或联接 在Access中，可以很方便地从外部数据库中获取数据，这些数据库包括现在所有的各种主流数据库，像Dbase、Sybase、Oracle、Foxpro等。这样你就不用去一个一个地重新输入原来的数据了。 在Access中，可以用“获取外部数据”命令来获取外部数据库的数据，这个命令包括两种方式“导入”和“链接表”。对于不同的外部数据库可以用不同的获取方式。而且在Access中，不光可以获取外部数据，还可以导出别的数据库，就是将用Access建立的数据库保存为别的数据库形式，像FOXPRO，DBASE数据库等。 单击“文件”菜单中的“获取外部数据”项，弹出一个子菜单，上面有“导入”和“链接表”两个选项。我们单击其中的一个选项就可以实现导入或联接一个外部的数据库。虽然这两个命令的功用都是打开外部的一个数据库，并从中获取需要的数据，但在使用上，还是有差别的。 在我们使用“导入”这个方法来获取外部数据时需要注意几个条件。 一、需要我们打开的数据库文件相对来说比较小，而且不会被其他数据库应用程序的用 户频繁更改。 二、不需要与其他数据库应用程序的用户共享数据。 三、你正在替换以前的数据库应用程序，而且不再需要以前的数据格式。 四、在使用其他数据库中的数据时，需要最佳性能。 使用“链接表”方法来获取外部数据时也需要注意几个条件: 一、需要打开的文件比较大，甚至比本地Access数据库的最大容量(1GB)还要大。 二、这个文件经常被其他数据库应用程序的用户更改。 三、必须在网络上与其他数据库应用程序的用户共享这个文件。 四、需要把应用程序分布到几个单独的用户那里，而且，你可能要不断更新开发的应用程序接口，将“应用程序”与数据分开可以更容易地更新应用程序，而不会干扰用户积累的数据。 这就是为什么要在“获取外部数据”这个过程当中设置两种方法。如果要用的数据库并不大，但每天都可能要修改，而且由几个人来修改不同的部分，对于这种情况，最重要的是每天都有新的数据要处理，而单纯的将表导入进来，由于在Access中开发新的系统需要一定的时间，在这段时间内就有可能有新的数据输入进来。开始导入的数据就有很多可能已经更新了。所以这时使用“链接表”就不会出现这种问题，干扰到别的用户积累的数据。当然在Access中执行现在这台机器上的数据库文件是最快的，使用链接常常会因为很多原因使你的工作变得很慢，这点是你必须考虑的。 UID47298 帖子329 精华1 经验897 威望0 阅读权限50 性别男 在线时间118 小时 查看详细资料TOP lichaobin Excel Home高级 积分1106 财富1363 , 分享0 鲜花0 技术3 注册时间2004-7-24 总积分排名 811 发短消息 加为好友 3楼 大 中 小 发表于 2009-3-23 02:45 只看该作者 ? FoxTable，数据管理专家，轻松输入，轻松统计，轻松出报表～ ? 导入表的高级功能,规格文件 哈，原来导入的字段类型，分隔符，宽度都是可能在菜单里具体定义的。而且规格文件还可以保存待下次手工再导就不用设了。。。多方便。 这么好用的功能，大家都会想，它的,,,代码的导入方法是什么呢,如果用遍历来那不是可以批量导入了。。。那真是帅呆了。。。。呵呵。 以下我的笔记: 我是否可以将Excel数据导入? 可以，手动方式: 打开数据库，或切换到打开数据库的“数据库”窗口 若要导入电子表格，请在“文件”菜单上，指向“获取外部数据”，然后单击“导入”。 若要链接电子表格，请在“文件”菜单上，指向“获取外部数据”，然后单击“链接表”。 在“导入”(或“链接”)对话框中，选择“文件类型”框中的 “Microsoft Excel (*.xls)”。 单击“查找范围”框右侧的箭头，选定电子表格文件所在的驱动器和文件夹，然后双击其图标。 若要导入这些文件，首先必须将每个工作表保存为一个单独的文件。且电子表格列标题与表字段名相匹配，才可以在已有表上追加数据。 请注意，上面文章中其实仍然包含了两种做法和一种扩展做法: 1、直接用导入 2、用链接表 3、当你只是要导入EXCEL数据到现有的表中时，可以先链接某个xls文件，然后直接用 jet sql语句来做: insert into [Access表名] (field1,field2) select field1,field2 from [xls链接表] [ 本帖最后由 lichaobin 于 2009-3-23 02:47 编辑 ] UID47298 帖子329 精华1 经验897 威望0 阅读权限50 性别男 在线时间118 小时 查看详细资料TOP lichaobin Excel Home高级 积分1106 财富1363 , 分享0 鲜花0 技术3 注册时间2004-7-24 总积分排名 811 发短消息 加为好友 4楼 大 中 小 发表于 2009-3-23 02:48 只看该作者 ?《精粹》中的精粹:成为Excel高手的捷径? ?《循序渐进学Excel》视频教程免费教您起步? 正点导入的代码介绍: 编程方式: TransferSpreadsheet方法与transfertext方法有相似之处: 导入导出数据库方式: 文本transfertext方法: DoCmd.TransferText(TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName,CodePage) 表格TransferSpreadsheet方法 DoCmd.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA) 执行命令.TransferSpreadsheet(TransferType:=acImport默认方式 或 acLink链接 方式导入导出, SpreadsheetType:=导入导出EXCEL表类型),TableName:=Access表名,FileName:=EXCEL表名，HasFieldNames:=-1为一行作表标题,0则不作,Range:=导入表格区域) SpreadsheetType、SpecificationName 前者为EXCEL版本类型，后者即创建导入导出规格的分隔格式文件名称，一般同夹使用。 如:schema.ini 文件为系统默认固度宽度文件.如该参数留空，则取默认的导入/导出规格 在导文本中，特别留意其SpecificationName参数( 文件为系统默认文本导入规格文件(不过这个文件不知道怎么查 schema.ini 看，在导入文本文件中有指引学习与修改( 更简单的是自己录一个规格文件，即外部数据源-导入表-高级,规格文件保存(该规格表在本数据库里，它隐藏了，只要打开选项，将 去掉勾在表模块中就可以看到规格表了(即(MSysIMEXcolumns、MSysIMEXspecs). 例:TransferType常量AcTextTransferType如下: ac为常量类型，Ex为出，Im为入.link为链接型形式 Link为链接，Delim定义分隔符,Fixedl固定宽度,Merge为Word for windows合并文件 导出分隔符 导入分隔符 链接表分隔符 acExportDelim acImportDelim 默认 acLinkDelim 导出固宽符 导入固宽符 链接表固宽符 acExportFixed acImportFixed acLinkFixed 导出 HTML 导入HTML 链接 HTML acExportHTML acImportHTML acLinkHTML 导出WORD格式 acExportMerge 其实他们多是是可选参数,有默认值的:只用这个就行: DoCmd.TransferSpreadsheet , ,"Employees","C:\1.xls", True, "A1:G12" 上面示例1.xls指定范围内将表导入到access的表“Employees”中，并用电子表格中的第一行作为字段名。 再例: TransferType， SpreadsheetType， TableName， FileName，HasFieldNames，Range DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "juan", "c:\d.xls", True, "sheet～" 默认方式导入, Excel版本类型, "access表名", "xls薄名",是否有行标题,"工作表～" 导入表中的另类方法: 如果一个工作薄里有多个表要导入，也可以使用如下方法: 一个按钮导入四个工作表到数据库: 例子: 假设已经建好数据库myAccessTable那么: 以下为插入指定记录的代码:(有表头) insert into myAccessTable select * from [EXCEL 8.0;DATABASE=C:\info.XLS].[sheet1] union all select * from [EXCEL 8.0;DATABASE=C:\info.XLS].[sheet2] union all select * from [EXCEL 8.0;DATABASE=C:\info.XLS].[sheet3] union all select * from [EXCEL 8.0;DATABASE=C:\info.XLS].[sheet4] [ 本帖最后由 lichaobin 于 2009-3-23 03:09 编辑 ] UID47298 帖子329 精华1 经验897 威望0 阅读权限50 性别男 在线时间118 小时 查看详细资料TOP lichaobin Excel Home高级 积分1106 财富1363 , 分享0 鲜花0 技术3 注册时间2004-7-24 总积分排名 811 发短消息 加为好友 5楼 大 中 小 发表于 2009-3-23 02:56 只看该作者 ? 好帖推荐、申请精华或加分、违规帖举报，欢迎“报告”，报告有奖～? 规格文件在哪里查看,在代码里怎么用, 在导文本中，特别留意其SpecificationName参数( schema.ini 文件为系统默认文本导入规格文件(不过这个文件不知道怎么查看，在导入文本文件中有指引学习与修改( 更简单的是自己录一个规格文件，即外部数据源-导入表-高级,规格文件保存(该规格表在本数据库里，它隐藏了，只要打开选项，将 去掉勾在表模块中就可以看到规格表了(即 (MSysIMEXcolumns、MSysIMEXspecs). 一种方法:有了手工保存的规格文件，在代码文件里直接调用它。 另一种方法:用 Schema.ini 文件也可以达到要求。 作用:Schema.ini用于提供文本文件中记录的构架信息。每个 Schema.ini 项都用于指定表的五个特征之一: 1、文本文件名 2、文件格式 3、字段名、字段长度、字段类型 4、字符集 5、特别数据类型转换 指定文件名 Sample.txt 使用数据构架信息文件， 文件名要用方括号括起来，例如如果要对 那么它的对应的项应该是 [Sample.txt] 指定文件格式 格式说明 表格式 Schema.ini 格式描述 Tab 制表符分隔 文件中的字段用制表符分隔 Format=TabDelimited CSV 分隔 文件中的字段用逗号来分隔 Format=CSVDelimited 自定义分隔 文件中的字段可以用任何字符来分隔，所有的字符都可以用来分隔，包括空格，但是双引号 ( " ) 除外 Format=Delimited(自定义分隔符) - 或者没有分隔符 - Format=Delimited( ) 固定宽度 文件中的字段为固定长度 cg1留言，经测试，参数为:Format=FixedLength 指定字段 你可以有两种方法在一个字符分隔的文本文件中指定字段名 1、在文本文件中的第一行包含字段名，并且设置 ColNameHeader 为 True 。 2、用数字编号指定每一列并且指定每一列的名字以及数据类型 你必须用数字编号指定每一列并且指定每一列的名字、数据类型以及长度(在固定长度分隔的文本文件中需要指定长度) 注意，设定了 ColNameHeader 选项，在 Schema.ini 中 Windows 注册时会忽略 FirstRowHasNames 选项。 你也可以指定字段的数据类型，使用 MaxScanRows 选项用来指定在确定列的数据类型时要扫描多少行数据。设置 MaxScanRows 为 0 将扫描整个文件。 如果文本文件第一行包含字段名，并且要扫描整个文件，改项目就要定义如下: ColNameHeader=True MaxScanRows=0 接下来的项目用来指定表中的字段，使用列编号(Coln)选项来指定列。字段长度在“固定分隔文本文件中”是必填项目，在“字符分隔文本文件”中是可选项目。 示例:定义 2 个字段，CustomerNumber 是长度为 10 的文本字段、CustomerName 是长度为 30 的文本字段。 Col1=CustomerNumber Text Width 10 Col2=CustomerName Text Width 30 语法如下: Coln=ColumnName type [Width #] 参数解释如下: 参数 说明 ColumnName 文本， 标识 采样口标识规范化 下载危险废物标识 下载医疗器械外包装标识图下载科目一标识图大全免费下载产品包装标识下载 字段名，如果包含空格要用双引号括起来 type 数据类型包括: Microsoft Jet 数据类型:Bit Byte Short Long Currency Single Double DateTime Text Memo ODBC 数据类型: Char (same as Text) Float (same as Double) Integer (same as Short) LongChar (same as Memo) Date date format 其中date format 是日期的格式字符串例如:Date YYYY-MM-DD Width 字符串的长度，后面的数字用来指定字段的长度(“固定分隔文本文件” 为必填，“文字分隔文本文件”为可选) # 整形数字，标识字段长度 指定字符集 CharacterSet 项有两个选择:ANSI | OEM 选择 ANSI 字符集用如下方法: CharacterSet=ANSI UID47298 帖子329 精华1 经验897 威望0 阅读权限50 性别男 在线时间118 小时 查看详细资料TOP lichaobin Excel Home高级 积分1106 财富1363 , 分享0 鲜花0 技术3 注册时间2004-7-24 总积分排名 811 发短消息 加为好友 6楼 大 中 小 发表于 2009-3-23 02:59 只看该作者 Excel 2007实战技巧精粹》白金打造，重装上阵 配套视频教程免费下载 ?《 中? 规格文件用法例子: 下面给出一个简单的例子，假设有一个表Contacts.txt类似下面: 姓名 单位 联系日期 王海 上海有机化学研究所 2002-1-1 罗炙 数字化机床研究院 2004-1-1 导入 Access 应该类似下面表格: 姓名 单位 联系日期 王海 上海有机化学研究所 2002-1-1 罗炙 数字化机床研究院 2004-1-1 那么 Schema.ini 则是类似下面的INI文件: [Contacts.txt] ColNameHeader=True format=Delimited(" ") MaxScanRows=0 CharacterSet=ANSI Col1="姓名" Char Width 10 Col2="单位" Char Width 9 Col3="联系日期" Date Width 8 注释如下: [Contacts.txt] ///文本文件名 ColNameHeader=True ///带有表头 format=Delimited( ) ///空格作为分隔符，如果是分号，请用format=Delimited(;) 来解决 MaxScanRows=0 ///扫描整个文件 CharacterSet=ANSI ///ANSI 字符集 Col1="姓名" Char Width 10 ///字段1 Col2="单位" Char Width 9 ///字段2 Col3="联系日期" Date Width 8 ///字段3 ///如果有更多字段可 Col4 .... ColN 注意，Schema.ini 必须和需要导入的文本文件在同一目录。 此后，我们就可以利用下面的语句来导入数据了: CurrentProject.Connection.Execute "SELECT * INTO NewContact FROM [Text;FMT=Delimited;HDR=Yes;DATABASE=C:\;].[Contacts#txt];" 注意，到 2000 格式的 MDB 为止，以下语句都会导致导入失败，应该是 Access 本身的问题: 到 Access XP / access 2003 出现不知道是否已经解决该问题，大家可以在“评论”中告诉我测试结果。 DoCmd.TransferText acImportFixed, , "Contacts", "C:\contacts.txt" 或者 DoCmd.TransferText acImportFixed, "C:\.ini", "Contacts", "C:\Documents.txt" 错误消息为: 运行时错误 '3625': 文本文件规范 'c:schema.ini' 不存在。不能使用规范进行导入、导出或者链接。 或者 运行时错误 '2511': 这个操作或方法需要一个 Specification Name 参数。 [color=LightBlue]我做的批量导入两种类型的表代码: Option Compare Database Option Explicit Dim FItem As Variant, myFiles As Variant '定义打开对话框中的文件对象及其集合 Dim FNarr() As String Sub Multi_Data_ImPortToAccess() '一般保证导入的工作薄仅有一个导入的工作表 Dim arr() As String Dim i% Dim MFileType As String MFileType = "*.txt" Call DataToAccess_FileDialogType(MFileType) '从ACCESS对话框中选取指定文件类型的文件 VarType(myFiles) = 0 Then '如果类型为false,则没有文件对象 If MsgBox "你没有选取文件,已放弃选取!" Exit Sub End If With Excel.Application If Not myFiles Is Nothing Then '如果有选取文件 For Each FItem In myFiles '遍历 ReDim arr(myFiles.Count) If MFileType = "*.XLS" Then '以默认方式(连接表用aclink)追加导入到当前打开的数据库中的表data中,导入的表头(第一行)为字段名。指定哪个表导入 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "A20B日报(联营租赁)", FItem, True, "sheet1!" arr(i) = Mid(FItem, InStrRev(FItem, "\") + 1, InStrRev(FItem, ".") - 1) i = i + 1 ElseIf MFileType = "*.txt" Then '导入文本规格文件是在导入表高级选项中保存的规格文件，需在视图,选项-去掉系统及隐藏属性方能在表模块中看到( '一般保存一次后，不需更改了(如有变化，请再次保存规格 DoCmd.TransferText acImportDelim, "文本导入规格", "A20A月报", FItem, False 'C:\Documents and Settings\Administrator\桌面\导入表\商品销售 End If Next '在对话框的SelectedItem循环 End If End With MsgBox Right(MFileType, 3) & "格式导入成功～" End Sub Function DataToAccess_FileDialogType(ByVal FileType As String) '打开ACCESS文件类型对话框 Dim i% Dim fd As FileDialog, vrtSelectedItem As Variant '打开对话框变量 Set fd = Application.FileDialog(msoFileDialogFilePicker) 'FileDialog(3)调用打开对话框 With fd .InitialFileName = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\")) '.Show '下面有显示了 .AllowMultiSelect = True '允许选取多个文件为True .Filters.Clear '将打开的文件类型如"*.txt"等清空,使它默认为所有文件 .Filters.Add FileType, FileType, 1 '增加打开对话框中的文件类型 .Filters.Add 显示"*.xls","*.xls" If .Show = -1 Then '当为-1时调用打开对话框,如果没有选取文件，则到else ReDim FNarr(1 To .SelectedItems.Count) Set myFiles = .SelectedItems For i = 1 To .SelectedItems.Count FNarr(i) = .SelectedItems.Item(i) '打开对话框中选中的文件名 Next i '放弃选择 Else End If End With Set fd = Nothing End Function [ 本帖最后由 lichaobin 于 2009-3-23 03:11 编辑 ] UID47298 帖子329 精华1 经验897 威望0 阅读权限50 性别男 在线时间118 小时 查看详细资料TOP lichaobin Excel Home高级 积分1106 财富1363 , 分享0 鲜花0 技术3 注册时间2004-7-24 总积分排名 811 发短消息 加为好友 7楼 大 中 小 发表于 2009-3-23 03:05 只看该作者 ?财务、会计、人力资源、行政、生管、销售、市场、学校管理:Excel 行业应用系列视频课程精彩放送中? 抄袭链接表用法了结。呵呵，如果你跟着我入门了，我就很高兴了。 发现有别的靓贴，了结一下入门的情况吧，因为知道还有很多东西要学。 假设前台数据库文件名为frontBase.mdb 后台数据库文件名为backData.mdb frontBase当中有链接表tbl1, tbl2, tbl3, …，链接到backData.mdb中 首先我们要在前台数据库文件的启动窗体加载事件中判断链接是否正确 方法是打开任意一个链接表，假设为tbl1，代码如下: Public Function CheckLinks() As Boolean ' 检查到后台数据库的链接;如果链接存在且正确的话，返回 True 。 Dim dbs As Database, rst As DAO.Recordset Set dbs = CurrentDb() ' 打开链接表查看表链接信息是否正确。 On Error Resume Next Set rst = dbs.OpenRecordset(“tbl1”) rst.Close ' 如果没有错误，返回 True 。 If Err = 0 Then CheckLinks = True Else CheckLinks = False End If End Function 启动窗体的加载事件: Private Sub FORM_Load() If CheckLinks = False then Docmd.OpenFORM “frmConnect” End If End Sub frmConnect 连接窗体如下图 接下来的事情就是如何刷新链接表了。 连接按钮刷新链接表 ，代码如下: Private Sub OK_Click() Dim tabDef As TableDef For Each tabDef In CurrentDb.TableDefs If Len(tabDef.Connect) > 0 Then tabDef.Connect = ";DATABASE=" & Me.FileName.Text & ";PWD=" + 后台数据库 密码 tabDef.RefreshLink End If Next MsgBox "连接成功～" DoCmd.Close acFORM, Me.Name End Sub 其实很简单只有两步，判断链接是否正确和刷新链接表。 UID47298 帖子329 精华1 经验897 威望0 阅读权限50 性别男 在线时间118 小时 查看详细资料TOP leitiger Excel Home中级 积分675 财富1280 , 分享0 鲜花0 技术2 来自湖南株洲 注册时间2007-12-8 总积分排名 1418 发短消息 加为好友 8楼 大 中 小 发表于 2009-3-23 08:26 只看该作者 ?《Excel 2007实战技巧精粹》白金打造，重装上阵 配套视频教程免费下载中? 楼主辛苦了,正想学学access.谢谢分享.只有想不到的,没有做不到的. 越学习,越发现自己的无知. UID379430 帖子320 精华0 经验469 威望0 阅读权限30 性别男 在线时间211 小时 查看详细资料TOP wisdom100 Excel Home中级 积分724 财富1674 , 分享0 鲜花0 技术0 来自台山 注册时间2008-9-9 总积分 排名 1314 发短消息 加为好友 9楼 大 中 小 发表于 2009-3-23 08:37 只看该作者 ?EH梦之队《实战技巧精粹》系列图书火热发售， 配套视频教程免费下载中? 我有此同感 非常好,不错!!请大家顶下 真的感觉EXCEl vba的缺点...数据大则吃不消... 谢谢楼主!!!能否可以提供更多的ACCESSVBA相关的资料~~ ~非常感谢! UID599335 帖子499 精华0 经验545 威望0 阅读权限30 性别女 在线时间358 小时 查看详细资料TOP gxuan2008 Excel Home高级 EH培训中心助教 积分1519 财富2187 , 分享6 鲜花0 技术2 注册时间2008-3-9 总积分排名 587 发短消息 加为好友 10楼 大 中 小 发表于 2009-3-23 08:45 只看该作者 ? 想轻松管理数据, 想快速设计管理软件, 想老板对你刮目相看, 哪还不快用FoxTable? ? 谢谢.楼主. 能不能整个附件啊. 呵呵.这个世界抛弃了我， 不过还好， 我还没有抛弃这个世界。。。 UID439647 帖子865 精华0 经验1060 威望0 阅读权限50 性别男 在线时间 717 小时 查看详细资料TOP ‹‹ 上一主题 | 下一主题 ›› 238 12345678910››... 24 Excel Home 活动专版 Excel免费培训班专区 Office 2010征文大赛 EH财富换购竞拍区 Excel进阶研讨区 快乐答题俱乐部 往期活动 奥运主题作品赛(结束) Excel趣味作品2009大赛区(结束) Excel Home原创图书教程研读交流，示例与视频培训教程下载 《Excel2007实战技巧精粹》论坛 《Excel数据透视表应用大全》论坛 《Excel高效办公》系列读者论坛 《Excel应用大全》读者论坛 08新版《精粹》系列图书读者论坛 《Excel实战技巧精粹》读者论坛 Microsoft Excel Zone - Excel2003/Excel2007技术交流与问答 Excel基础应用 Excel函数与公式 ExcelVBA程序开发 Excel图表与图形 Excel数据透视表 Excel Profession Apply - Office/Excel行业应用交流与培训 Excel财会与金融 Excel人力资源管理 Excel生产管理 Microsoft Office Family Microsoft Office Outlook Microsoft Office Word Microsoft Office PowerPoint Microsoft Access & SQL Server 其他MicrosoftOffice产品 Office Resource - excel教程excel下载excel2007培训教程下载 资源共享 原创发表 Office图书品评 Office Competition - Office/Excel技术竞赛 开放式竞赛专区 Microsoft Office 之外 电脑网络 休闲吧 Excel Home论坛事务管理 会员广场 人才市场 学习经验分享 控制面板首页 编辑个人资料 兑换课券 积分记录 公众用户组 勋章 访问推广 基本 概况 版块排行主题排行发帖排行积分排行 交易排行 在线时间 管理统计 MVP风采 管理团队风采 优秀会员风采 本论坛言论纯属发表者个人 意见 文理分科指导河道管理范围浙江建筑工程概算定额教材专家评审意见党员教师互相批评意见 ，与Excel Home立场无关，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者 责任 安全质量包保责任状安全管理目标责任状8安全事故责任追究制幼儿园安全责任状占有损害赔偿请求权 ～ 当前时区 GMT+8, 现在时间是 2011-6-10 22:51 闽ICP备05014318号 清除 Cookies - 联系我们 - Excel Home - Archiver - WAP - TOP - 站长统计 Powered by Discuz! 6.1.0 本站特聘法律顾问:徐怀玉律师 Processed in 0.070047 second(s), 6 queries, Gzip enabled.