作者：绿色风
分类：
时间：2022-08-17
浏览：132
楼主
水星钓鱼 |
Q：如下图所示为两个工作簿：
分别为“总表“、“分表”，现在需要将“总表”中性别为“男”的所有学生的记录提取到“分表”中，如何在不用代码打开工作簿的前提下用ADO实现呢？
A：可以用以下代码实现- Private Sub CommandButton1_Click()
- Dim oCon
- Dim sConStr As String
- Dim sSql As String
- sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES'"
- sSql = "INSERT INTO [Sheet1$] IN '' [Excel 8.0;Database=" & ThisWorkbook.Path & _
- "\分表.xls] SELECT * FROM [Sheet1$] where 性别='男'"
- Set oCon = CreateObject("ADODB.Connection")
- With oCon
- .Open sConStr
- .Execute sSql
- End With
- Set oCon = Nothing
- End Sub
利用SQL的DDL语句中的INSERT INTO语句可以在能够被Microsoft.Jet.OLEDB.4.0连接访问的各种不同的数据源之间进行数据的传递，这里是两个Excel工作簿。- INSERT INTO [Sheet1$] IN '' [Excel 8.0;Database=" & ThisWorkbook.Path & _
- "\分表.xls] SELECT * FROM [Sheet1$] where 性别='男'
附件如下：
 用ADO在不同的工作簿之间传递数据.rar
补充内容 (2014-1-11 20:53):
请使用帖子右下角的评分功能给这个帖子评分
补充内容 (2014-1-11 20:54):
请使用帖子右下角的评分功能给这个帖子评分 |
2楼
海洋之星 |
 厉害,水星, |
3楼
魔魔 |
和水版学习 |
4楼
老糊涂 |
|
5楼
白开水02 |
好牛的啊 |
6楼
yytax2010 |
正需要，谢谢！ |
7楼
开心笑羊 |
很实用，谢谢。 |
8楼
yytax2010 |
用SQL语句简单搞定。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一