ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3897|回复: 9

请教:外部数据导入?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2003-7-16 16:14 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
如何将外部数据(sqlserver)中的数据(两张以上的数据表)中的某一字段,经过一定的条件筛选后,导入到Excel表中的同一列中,并且按一定的顺序排列;谢谢高手指导!
[此贴子已经被作者于2003-7-16 16:14:14编辑过]

TA的精华主题

TA的得分主题

发表于 2003-7-17 10:59 | 显示全部楼层
你可以使用VBA编写过程,来导入数据库, dim cnn1 as new adodb.connection dim rs as new adodb.recordset dim checksql as string cnn1.open "drviver={sql server};server=yourcomputer;uid=sa;pwd=;database=your database name" rs.Open checksql, cnn1, adOpenKeyset, adLockPessimistic 其中你要定义你的检索条件,语句在checksql中书写。 剩下的就由你自由发挥了。

TA的精华主题

TA的得分主题

发表于 2003-8-4 17:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
請教Loadbigh, 為什麼我導入後,有的數據顯示錯誤值呢?

TA的精华主题

TA的得分主题

发表于 2003-8-4 21:17 | 显示全部楼层
请问,如果将第3楼的写成这样有,性能有什么区别 dim rs as new adodb.recordset dim checksql as string dim cnn1 as string cnn1="drviver={sql server};server=yourcomputer;uid=sa;pwd=;database=your database name" rs.Open checksql, cnn1, adOpenKeyset, adLockPessimistic

TA的精华主题

TA的得分主题

发表于 2003-8-27 10:49 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
cg1版主,请教如何将外部数据导入到指定的EXCEL表格中的单元格地址。请举几个事例。

TA的精华主题

TA的得分主题

发表于 2003-8-27 11:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
以下示例 要在2000及xp上才可正常运行 在97下CopyFromRecordset只能操作dao记录集 关于从sql取数转到excel的demo: Sub readdata() Dim conn As ADODB.Connection Dim rst As ADODB.Recordset Dim NewBook As Workbook Dim i As Integer ' Create the Connection object. Set conn = New ADODB.Connection conn.ConnectionString = "Provider=SQLOLEDB.1;Password=mypwd;Persist Security Info=True;User ID=usrid;Initial Catalog=dbaseName ;Data Source=serverName" conn.Open ' Create a new Recordset Object. Set rst = New ADODB.Recordset With rst ' Connect this recordset to the previously opened connection. .ActiveConnection = conn ' Retrieve all records from the Customer table. .Open "SELECT * FROM tableName" End With ' Add a new worksheet to this workbook Set NewBook = Workbooks.Add ' Loop through all of the fields, returning the field names to the worksheet. For i = 0 To rst.Fields.Count - 1 NewBook.Sheets(1).Range("a1").Offset(0, i).value = rst.Fields(i).Name Next i ' Copy the recordset to the new worksheet. NewBook.Sheets(1).Range("a2").CopyFromRecordset rst ' Close the recordset. Set rst = Nothing ' Close the Connection. conn.Close End Sub

TA的精华主题

TA的得分主题

发表于 2003-8-27 16:03 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2003-7-16 20:11 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2003-8-27 17:15 | 显示全部楼层
我从来不喜欢看那些抄袭了msdn或“联机帮助”的东西。大多是看了msdn后,加上摸索出来的。

TA的精华主题

TA的得分主题

发表于 2003-7-24 17:36 | 显示全部楼层
1、首先,请建立一个关于输出数据的视图。也就是数据源,你所想要的结果就是这张视图。 2、在excel里通过获取外部数据来将视图输出。 也就是,报表是用excel来做,而报表数据是由sql命令来完成的。 这里的重点是sql命令来组织数据,而excel只是将报表做的更美观的工具而已。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-22 17:58 , Processed in 0.043535 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表