在access03中用sql导入xls所有表所有数据

cn_duwenhui 2008-05-03 12:09:27

应该怎么写?

...全文

67 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wwwwb 2008-05-04

打赏
举报

回复

用VBA+SQL才行，用ADOX　OR　ADO取得所有SHEET名，
用select * from [excel 8.0;database=d:\temp\123.xls].[sheetname$]
导入

liuyann 2008-05-03

打赏
举报

回复

SELECT *

FROM [sheet1$] IN "c:\documents\xldata.xls" "EXCEL 5.0;"

==== 思想重于技巧 ====

liuyann 2008-05-03

打赏
举报

回复

所有表

一个XLS文件中的所有sheets?
所有SHEETS的格式一样，都倒入到同一个ACCESS表中？

用VBA可以实现，仅用SQL比较复杂

==== 思想重于技巧 ====

cn_duwenhui 2008-05-03

打赏
举报

回复

是所有表,不是一张表,我不想一张一张的改

cn_duwenhui 2008-05-03

打赏
举报

回复

一个XLS文件中的所有sheets?
所有SHEETS的格式一样，都倒入到同一个ACCESS表中？

是啊,我用vba已经实现了,现在在学sql,所以想尽量的用sql写

EXCEL里使用SQL的方法（欢乐小爪原创）急用EXCEL的SQL用法，抄来欢乐小爪几篇文章，支持原创，留下小爪印：http://hi.baidu.com/huanhuanxiaozhua/blog EXCEL(VBA)~SQL 经典写法范本汇集(一) 2007-12-10 21:20 编前话：为了更系统的学习sql语句，小爪首次系统的汇集sql 需引用 microsoft activeX Data Objects 2.8 library 1.sql = "select 构件名称,构件代号,横长度,横数量,竖长度,竖数量,比重,相应工艺 from [参数$B2:K1916]where (大样代码='" & DYDH & "') and (内外框='WKXC')" 2.sql = "select 构件名称,构件代号,横长度,横数量,竖长度,竖数量,比重,相应工艺 from [参数$B2:K" & CSMaxrow & "] where (大样代码='" & DYDH & "') and (内外框='WKXC')" **************************************************************** A、根据本工作簿的1个表查询求和写法范本 Sub 查询方法一() Set CONN = CreateObject("ADODB.Connection") CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName sql = "select 区域,存货类, sum(代销仓入库数量),sum(代销仓出库数量),sum(日报数量)from [sheet4$a:i] where 区域='" & [b3] & "' and month(日期)='" & Month(Range("F3")) & "' group by 区域,存货类" Sheets("sheet2").[A5].CopyFromRecordset CONN.Execute(sql) CONN.Close: Set CONN = Nothing End Sub ----------------- Sub 查询方法二() Set CONN = CreateObject("ADODB.Connection") CONN.Open "dsn=excel files;dbq=" & ThisWorkbook.FullName sql = "select 区域,存货类, sum(代销仓入库数量),sum(代销仓出库数量),sum(日报数量)from [sheet4$a:i] where 区域='" & [b3] & "' and month(日期)='" & Month(Range("F3")) & "' group by 区域,存货类" Sheets("sheet2").[A5].CopyFromRecordset CONN.Execute(sql) CONN.Close: Set CONN = Nothing End Sub ************************************************************************************************** B、根据本工作簿2个表的不同类别查询求和写法范本 Sub 根据入库表和回款表的区域名和月份分别求存货类发货数量和本月回款数量查询() Set conn = CreateObject("adodb.connection") conn.Open "provider=microsoft.jet.oledb.4.0;" & _ "extended properties=excel 8.0;data source=" & ThisWorkbook.FullName Sheet3.Activate Sql = " select a.存货类,a.fh ,b.hk from (select 存货类,sum(本月发货数量) " _ & " as fh from [入库$] where 存货类 is not null and 区域='" & [b2] _ & "' and month(日期)=" & [d2] & " group by 存货类) as a" _ & " left join (select 存货类,sum(数量) as hk from [回款$] where 存货类" _ & " is not null and 区域='" & [b2] & "' and month(开票日期)=" & [d2] & "" _ & " group by 存货类) as b on a.存货类=b.存货类" Range("a5").CopyFromRecordset conn.Execute(Sql) End Sub ******************************************************************* C、根据本文件夹下其他工作簿1个表区域的区域求和 Sub 在工作表1汇总本文件夹下001工作薄的表1分数列查询汇总() Set conn = CreateObject("ADODB.Connection") conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "\001.xls" sql = "select sum(分数) from [sheet1$]" Sheets(1).[a2].CopyFromRecordset conn.Execute(sql) conn.Close: Set conn = Nothing End Sub --------------------- Sub 在工作表1汇总本文件夹下001工作薄的表1A1:A10查询汇总() Set conn = CreateObject("ADODB.Connection") conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.Path & "\001.xls" sql = "select sum(f1) from [sheet1$a1:a10]" Sheets(1).[A5].CopyFromRecordset conn.Execute(sql) conn.Close: Set conn = Nothing End Sub ----------------------- Sub 在工作表1汇总本文件夹下001工作薄的表1分数列A1:A7查询并msgbox表达汇总() Set conn = CreateObject("ADODB.Connection") Set rr = CreateObject("ADODB.recordset") conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "\001.xls" sql = "select sum(分数) from [sheet1$a1:a7]" Sheets(1).[A8].CopyFromRecordset conn.Execute(sql) rr.Open sql, conn, 3, 1, 1 MsgBox rr.fields(0) conn.Close: Set conn = Nothing End Sub ****************************************************************************************** D、根据本文件夹下其他工作簿多个表区域的单列区域查询求和 sub 本文件夹下其他工作簿的每个工作簿的第4列 30行查询求和 Dim cn As Object, f$, arr&(1 To 30), i% Application.ScreenUpdating = False Set cn = CreateObject("adodb.connection") f = Dir(ThisWorkbook.Path & "\*.xls") Do While f <> "" If f <> ThisWorkbook.Name Then cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.Path & "\" & f Range("d5").CopyFromRecordset cn.Execute("select f4 from [基表1$a5:d65536]") cn.Close For i = 1 To 30 arr(i) = arr(i) + Range("d" & i + 4) Next i End If f = Dir Loop Range("d5").Resize(UBound(arr), 1) = WorksheetFunction.Transpose(arr) Application.ScreenUpdating = True End Sub ************************************************************************************************** E、根据本文件夹下其他工作簿多个表区域的多列区域查询求和 sub 本文件夹下其他工作簿的每个工作簿的第B\C\D列 25行查询求和 Dim cn As Object, f$, arr&(1 To 25, 1 To 3), i% Application.ScreenUpdating = False Set cn = CreateObject("adodb.connection") f = Dir(ThisWorkbook.Path & "\*.xls") Do While f <> "" If f <> ThisWorkbook.Name Then cn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.Path & "\" & f Range("b6").CopyFromRecordset cn.Execute("select f2,f3,f4 from [基表3$a6:e65536]") cn.Close For i = 1 To 25 For j = 1 To 3 arr(i, j) = arr(i, j) + Cells(i + 5, j + 1) Next j Next i End If f = Dir Loop Range("b6").Resize(UBound(arr), 3) = arr Application.ScreenUpdating = True End Sub *********************************************************************************** F、其他相关知识整理 ' 用excel SQL方法 'conn是建立的连接对象，用open打开 ' 通过 CreateObject("ADODB.Connection") 这一句建立了一个数据库连接对象conn ' 在工程中就不再需要引用“Microsot ActiveX Data Objects 2.0 Library“ 对象 '设置对象 conn 为一个新的 ADO 链接实例,也可以用 set conn = New ADODB.Connection。 -------------- ' conn.Close表示关闭conn连接 ' Set conn = Nothing 是把连接对象conn置空，不然你退出了文件，但数据库还没有关闭 conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "\001.xls"能把这段含义具体解释一下吗? '这里的dbq的作用? '------------------ 'dsn是缩写，data source name数据库名是 excel file ' 'dbq 也是缩写，data base query 意思是数据库查询，后接源库文件名 001.xls '--------------------- '代码中长单词怎么记住的? '比如copyfromrecordset可以拆开记忆，copy、from、recordset 这三个单词意思知道吧，就是“复制、从、记录集” '----------------- 'Sql = "select sum(分数) from [sheet1$]"这里加"分数"两字什么作用? ' 'SQL一般结构是select 字段 from 表，意思是从指定的表中查询字段，字段的理解可以是：表中的列名 ' '分数是001.xls文件的sheet1第一行A列的字段名，SQL一般以字段来识别每列数据 '------------------- '为什么要用复制的对象引用过来计算呢？ ' '因为Sql语句只是对源数据库的字段找到了符合条件的的数据，但不会自动复制到汇总表来，所以需要复制copy ' '注意这里的 [sheet1$]" ，001文件的数据存放地上sheet1表，应当用方括号并加上$ ' '如果源数据文件001不是excel，而是Access，则引用表时，不需要加方括号，也不要$ '----------------- 还有,这里Execute表示什么作用? '' Execute是执行SQL查询语句的意思 ----------------------------- 如果不要字段也可以，那么在打开语句中加上：hdr=no '这样没有分数字段也可实现 'SQL语句我换了形式，而且加上了hdr=no，即无需字段，而且我在SQL中用了sum(f1)，f1表示第一列数据 '[sheet1$a1:a10] "是只求a1:a10区域的和" ********************************************** 编后话：前面也多次听说了sql，总没有时间，也没有好好认识它第一次认真系统学习sql语句，汇集了一些代码。有不同理解的人，欢迎给予小爪评论，小爪只爱excel

目录第一部分计算机基础知识第二部分 Windows 7 基础知识及应用第三部分计算机网络应用第四部分 Word 2010 应用第五部分 Excel 2010应用第六部分 PowerPoint 2010 应用计算机应用基础项目9-制作会议通知全文共14页，当前为第1页。 Word 2010 应用第四部分计算机应用基础项目9-制作会议通知全文共14页，当前为第2页。项目9 制作会议通知邮件合并的操作步骤主要有：主文档创建、数据源建立、编辑邮件合并域、插入域合并完成邮件合并。计算机应用基础项目9-制作会议通知全文共14页，当前为第3页。 9.1 任务1 创建主文档某企业办公文员小黄，经常会给各部门分发纸质通知，现就她办公所用的软件Office 2010，结合所学的知识，要及时的制作并分发一份会议通知到各个部门，她将要完成的操作有编辑会议通知文档，创建邮件中用到的数据源即要接收会议的人或部门，插入邮件合并域进行合并，效果如图9-1所示，最后连接上打印机即可打印输出，再分发给各个部门。计算机应用基础项目9-制作会议通知全文共14页，当前为第4页。 9.1 任务1 创建主文档 9-1 邮件合并结果计算机应用基础项目9-制作会议通知全文共14页，当前为第5页。 9.1 任务1 创建主文档所谓"邮件合并"是指在Office中先建立两个文档，一个是所有文件共有内容的主文档，一个是包括变化信息（不同收件对象的具体数据）的数据源，然后使用邮件合并功能在主文档中插入变化的信息实现合成新文档并可打印输出或以邮件形式分发的文档操作。"邮件合并"和普通文档一样，先将作为邮件合并功能的文档内容编辑好，然后切换选项卡到"邮件"选项卡，单击"开始邮件合并"组中"开始邮件合并 "按钮，如图9-2所示，从下拉列表中选择"目录"菜单项则主窗口中无明显变化，若选择其它项，例如选择"邮件合并分步向导"则会在主窗口的右侧显示一个任务窗格，如图9-3所示，运用这个窗口操作功能可实现邮件合并的向导操作法。在"开始邮件合并"下拉列表中选择"信封"，则会弹出要设置的信封对话框窗口进行相应的设置如图9-4所示。若选择"开始邮件合并"下拉列表中选择"标签"，则会弹出要设置的标签对话框窗口进行相应的设置如图9-5所示。计算机应用基础项目9-制作会议通知全文共14页，当前为第6页。 9.1 任务1 创建主文档图9-2 "开始邮件合并"下拉列表图9-3 邮件合并向导任务窗格计算机应用基础项目9-制作会议通知全文共14页，当前为第7页。 9.1 任务1 创建主文档图9-4 "信封选项"对话框图9-5"标签选项"对话框计算机应用基础项目9-制作会议通知全文共14页，当前为第8页。 9.2 任务2 创建数据源完成编辑好的主文档保存后，接下来是创建数据源。数据源可以是Excel工作表也可以是Access文件，也可是MS SQL Server数据库，这里能用作邮件合并的数据源的数据是所有能被SQL语句操作控制的数据，其实邮件合并说白了也就是一个数据查询和显示的工作，以下用Excel中"邮件客户数据"为例讲解数据源的创建操作。在Excel中，按主文档中可变化的数据格式，在工作表中依次输入"年"、"月"、"日"、"时"及"场次"的五个列数据，假设这里有3行数据，输入完后保存为工作簿文件"邮件客户数据.xls"，工作表的名称为"邮件客户数据"。到此以Excel类型的数据源就创建好了，接下来就是将数据源以邮件合并域的形式插入到主文档中。计算机应用基础项目9-制作会议通知全文共14页，当前为第9页。 9.3 任务3 插入合并域完成邮件合并对已编辑好的主文档及数据源作保存后接下来就是将数据源以邮件合并域的形式插入到主文档中。插入邮件合并域操作如下：步骤１：打开主文档，将光标定位在要插入数据的地方（若插入通知的年就放在主文档中"年"的前面）。步骤２：单击"邮件"选项卡"编写和插入域"组中的"插入合并域"按钮，在对话框这里选择"年"，每次插入数据域只能是一个操作放入一个数据域。重复步骤１和步骤２依次插入通知的数据域月日时和场次，如图所示计算机应用基础项目9-制作会议通知全文共14页，当前为第10页。 9.3 任务3 插入合并域完成邮件合并图9-12 插入邮件合并域后的主文档计算机应用基础项目9-制作会议通知全文共14页，当前为第11页。 9.3 任务3 插入合并域完成邮件合并步骤３：单击"邮件"选项卡"预览结果"组中的"预览结果"按钮，预览邮件合并的结果。步骤４：单击"邮件"选项卡完成组中的"完成并合并"按钮。选择"编辑单个文档" 得到如图9-15所示的对话框，单击"确定"按钮即完成邮件合并操作。图9-15 "合并到新文档"对话框

iWeb Office2000是一个基于Web的文档处理中间件 =============================================================================== 目前政府信息化，办公自动化正如火如荼的进行，而Microsoft Office是办公文档中用的最普遍的一种文档编辑工具，其格式是最普遍公文载体，因此，办公自动化要切合实际，与现状相结合，在办公自动化系统中，如何与Microsoft Office文档结合，是很多软件开发公司一直在摸索的问题，我们根据这种情况，采用自定义数据结构协议，自行研制开发了基

iWeb Office2000是一个基于Web的文档处理中间件 =============================================================================== 目前政府信息化，办公自动化正如火如荼的进行，而Microsoft Office是办公文档中用的最普遍的一种文档编辑工具，其格式是最普遍公文载体，因此，办公自动化要切合实际，与现状相结合，在办公自动化系统中，如何与Microsoft Office文档结合，是很多软件开发公司一直在摸索的问题，我们根据这种情况，采用自定义数据结构协议，自行研制开发了基于Web方式的Microsoft Office网络文档中间件管理方案。这个方案是整个办公系统中的文档处理部分，完全与Microsoft Office兼容，软件开发公司可以利用该方案，与自己研制的办公自动化系统相结合，开发出真正符合办公自动化需求的软件。许可协议 =============================================================================== 在使用前，请认真阅读下列条款，你一旦安装、使用本程序，既表示你同意接受本协议。 1. 未经DBstep授权，你不得复制本程序或再分发或提供下载 2. 在测试使用过程中对你的计算机系统、网络系统所造成的直接或间接的损坏，数据驿站不承担任何责任。 3. 你不得对本程序进行修改或破解或反编译 4. 未经DBstep授权许可，你不得将本软件用于商业目的 5. [数据驿站，版权所有],http://www.dbstep.com 主要功能表 =============================================================================== 1 录入支持功能支持键盘、各种手写笔[汉王、蒙恬、联想] 等汉字录入方式。 2 文档批注功能支持文档批注，支持文字、语音、录影等多媒体批注，可以在不写字的情况下，实现批注。 3 痕迹保留功能支持标准痕迹保留格式，即使文档脱离iWebOffice2000环境，也能保证痕迹的正确显示。 4 电子盖章功能实现印章或签名资源预保存功能，用户可以通过密码的方式来获得自己的签名或印章，印章和签名与文档保存在一起，印章或签名可以功过系统的验证来判断真伪。 5 动态签名功能支持多种手写笔实时动态签名，而且签名可以验证真伪。 6 远程编辑、保存功能支持B/S模式的远程在线编辑、保存功能，用户无需其他操作，就可以直接保存到服务器里。 7 数据库支持功能支持文件保存到服务器数据库中，可以支持多种数据库，如SQL Server, Oracle,Sybase,MySql等。 8 文件支持功能支持文档保存到服务器上的指定目录中。 9 模版套红功能支持拟稿时选择模版套红，也支持定稿后的模版套红功能。 10 版本支持功能支持版本自由控制，可以由用户创建多个版本。 11 保存HTML功能支持将文档直接以HTML的方式保存在为服务器上。该功能可以实现文档实时发布功能，在做内容管理或新闻管理是特别有用 12 文档兼容性和通用的Office完全兼容、也支持金山Wps,红旗RedOffice等办公软件。 13 系统二次开发提供强大的函数库，支持多种系统环境，多种开发语言，多种数据库。技术特点 =============================================================================== 1、采用IE5.0以上版本内置的传输协议，通讯性能稳定，高效。 2、采用标准HTTP通讯端口80，使用方便，无需特别配置、安全性好、更无需特别设置防火墙。 3、采用插件技术，可以完全融入IE浏览器中，方便系统维护、方便用户操作。 4、采用自定义协议包进行数据的组装和分析，系统开放性好，便于二次开发。 5、采用了Com组件和JavaBean组件技术，很好的实现了跨平台系统，便于开发。运行环境 =============================================================================== 硬件平台：台式机 CPU 建议Pentium800 以上，内存推荐128M 以上，硬盘10G以上空间

iWeb Office2000是一个基于Web的文档处理中间件 =============================================================================== 目前政府信息化，办公自动化正如火如荼的进行，而Microsoft Office是办公文档中用的最普遍的一种文档编辑工具，其格式是最普遍公文载体，因此，办公自动化要切合实际，与现状相结合，在办公自动化系统中，如何与Microsoft Office文档结合，是很多软件开发公司一直在摸索的问题，我们根据这种情况，采用自定义数据结构协议，自行研制开发了基于Web方式的Microsoft Office网络文档中间件管理方案。这个方案是整个办公系统中的文档处理部分，完全与Microsoft Office兼容，软件开发公司可以利用该方案，与自己研制的办公自动化系统相结合，开发出真正符合办公自动化需求的软件。许可协议 =============================================================================== 在使用前，请认真阅读下列条款，你一旦安装、使用本程序，既表示你同意接受本协议。 1. 未经DBstep授权，你不得复制本程序或再分发或提供下载 2. 在测试使用过程中对你的计算机系统、网络系统所造成的直接或间接的损坏，数据驿站不承担任何责任。 3. 你不得对本程序进行修改或破解或反编译 4. 未经DBstep授权许可，你不得将本软件用于商业目的 5. [数据驿站，版权所有],http://www.dbstep.com 主要功能表 =============================================================================== 1 录入支持功能支持键盘、各种手写笔[汉王、蒙恬、联想] 等汉字录入方式。 2 文档批注功能支持文档批注，支持文字、语音、录影等多媒体批注，可以在不写字的情况下，实现批注。 3 痕迹保留功能支持标准痕迹保留格式，即使文档脱离iWebOffice2000环境，也能保证痕迹的正确显示。 4 电子盖章功能实现印章或签名资源预保存功能，用户可以通过密码的方式来获得自己的签名或印章，印章和签名与文档保存在一起，印章或签名可以功过系统的验证来判断真伪。 5 动态签名功能支持多种手写笔实时动态签名，而且签名可以验证真伪。 6 远程编辑、保存功能支持B/S模式的远程在线编辑、保存功能，用户无需其他操作，就可以直接保存到服务器里。 7 数据库支持功能支持文件保存到服务器数据库中，可以支持多种数据库，如SQL Server, Oracle,Sybase,MySql等。 8 文件支持功能支持文档保存到服务器上的指定目录中。 9 模版套红功能支持拟稿时选择模版套红，也支持定稿后的模版套红功能。 10 版本支持功能支持版本自由控制，可以由用户创建多个版本。 11 保存HTML功能支持将文档直接以HTML的方式保存在为服务器上。该功能可以实现文档实时发布功能，在做内容管理或新闻管理是特别有用 12 文档兼容性和通用的Office完全兼容、也支持金山Wps,红旗RedOffice等办公软件。 13 系统二次开发提供强大的函数库，支持多种系统环境，多种开发语言，多种数据库。技术特点 =============================================================================== 1、采用IE5.0以上版本内置的传输协议，通讯性能稳定，高效。 2、采用标准HTTP通讯端口80，使用方便，无需特别配置、安全性好、更无需特别设置防火墙。 3、采用插件技术，可以完全融入IE浏览器中，方便系统维护、方便用户操作。 4、采用自定义协议包进行数据的组装和分析，系统开放性好，便于二次开发。 5、采用了Com组件和JavaBean组件技术，很好的实现了跨平台系统，便于开发。运行环境 =============================================================================== 硬件平台：台式机 CPU 建议Pentium800 以上，内存推荐128M 以上，硬盘10G以上空间

7,714

社区成员

28,798

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章