使用 ADO-SQL 处理 EXCEL 文件的程序架构（实例注释）

amdme · 发表于 2008-1-25 11:44

QUOTE:

以下是引用爱歌学习在2006-11-21 23:16:07的发言：

实例21：多字段分类汇总－类数据透视表格式的汇总－加载宏

汇总-查询-分表-合表.xla

使用方法：

工具－加载宏－浏览，找到下载的“汇总-查询-分表-合表.xla”，确定，确定，则在菜单上会增加一项“汇总-查询-分表-合表”，下面包含九个主菜单项及多个子菜单项：

            多字段分类汇总－类数据透视表格式
            按分类表分类汇总
            在多工作簿的字段中查找
            多工作簿工作表合并
                           合并到当前表（可选择是否考虑有字段列错位的情况）
                           合并到当前文件已有的同名表中
                           对所有工作簿工作表分类汇总
                           同结构工作表求和汇总
            单工作表拆分为多工作表
            单工作表拆分成多工作簿
            多工作表复制为多工作簿
            当前工作簿多工作表合并
            在多工作簿的所有列中查找

爱歌，

我在加载此宏的时候为什么没有一点反应（没有所谓的菜单项出现），加载其它宏都正常使用，救助……

[此贴子已经被作者于2008-1-25 11:45:35编辑过]

fycwater · 发表于 2008-1-25 20:35

一直对数据库比较迷茫,现在有个系统的东西,真好

luanyu6688 · 发表于 2008-5-18 14:09

[em02]

多谢分享!![em08][em06]

fjnfhxp · 发表于 2008-5-20 17:18

学习

chris.m · 发表于 2008-6-2 11:32

谢谢，学习中

ffg_1318 · 发表于 2008-7-15 19:47

QUOTE:

以下是引用爱歌学习在2006-4-10 20:27:12的发言：

QUOTE:

以下是引用[I]zhaxinbo[/I]在2006-4-10 19:25:59的发言：[BR]ado的这些操作都可以用excel本身实现吧？高级筛选，数据透视，简单的vba好像都能实现以上的一些功能，究竟有哪些功能excel本身不能实现呢而必须通过ado调用数据库来实现呢？这是我这段时间学习ado所关注的！

什么叫“excel本身不能实现呢而必须通过ado调用数据库来实现”？
不过我只是会使用，至于为什么就能这样使用，更深的理论还说不出来。

Microsoft Excel 工作表中的行和列与数据库中的行和列非常相似。只要用户记住 Microsoft Excel 不是关系型数据库管理系统，并认识到这一事实所带来的限制，在许多情况下都可以利用 Excel 及其工具来存储和分析数据。

Microsoft ActiveX Data Objects 让我们可以将 Excel 工作簿看做和数据库一样。
我对这种处理方法感兴趣是因为发现很多问题用它来处理比用循环快非常多，而且语句非常少，而不是说用其他方法解决不了才用这种方法。如果只是处理Excel文件，应该没有那种不用ADO就解决不了的问题吧？

这个帖子让我学的更多~！

ngnet888999 · 发表于 2008-8-12 10:30

学习了。太感谢了

jian79918 · 发表于 2008-9-23 21:08

请爱歌老师有空帮看看,错在哪了?

Sub sjh()
Set x = CreateObject("adodb.connection")
x.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

StSql = "select 主机合同关联号 , 合同贷款余额 , 贷款形态, 贷款种类 from [" & ThisWorkbook.Path & "\基础表].[0$] Where 合同贷款余额<>0 "
Set y = x.Execute(StSql)
Sheet2.[a2:D65536].ClearContents
Sheet2.[a2].CopyFromRecordset y

End Sub

我想取出"基础表"工作薄中"0"表中"合同贷款余额<>0"的对应数据,用上面代码总是报错,请高手指点,谢谢!!!

富戈 · 发表于 2008-9-30 01:34

QUOTE:

以下是引用jian79918在2008-9-23 21:08:17的发言：

请爱歌老师有空帮看看,错在哪了?

Sub sjh()
Set x = CreateObject("adodb.connection")
x.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "基础表.xls"

StSql = "select 主机合同关联号 , 合同贷款余额 , 贷款形态, 贷款种类 from [0$] Where 合同贷款余额<>0 "
Set y = x.Execute(StSql)
Sheet2.[a2:D65536].ClearContents
Sheet2.[a2].CopyFromRecordset y

End Sub

我想取出"基础表"工作薄中"0"表中"合同贷款余额<>0"的对应数据,用上面代码总是报错,请高手指点,谢谢!!!

试试把相应的代码改为红色代码部分。

juick · 发表于 2008-9-30 08:43

先收藏,有时间再学习学习!

		自动登录	找回密码
密码			免费注册