怎样用excelVBA将sql数据库中数据的列名读取到excel中
[问题点数：40分，结帖人xuersweety]
本版专家分：0
结帖率 80%
CSDN今日推荐
本版专家分：0
本版专家分：0
本版专家分：0
本版专家分：1141
本版专家分：1141
匿名用户不能发表回复！|
其他相关推荐拒绝访问 | www.ggdoc.com | 百度云加速
请打开cookies.
此网站 (www.ggdoc.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(43a71c2e2a34438e-ua98).
重新安装浏览器，或使用别的浏览器拒绝访问 | www.aoyier.com | 百度云加速
请打开cookies.
此网站 (www.aoyier.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(43a71cb-ua98).
重新安装浏览器，或使用别的浏览器查看: 1712|回复: 8
如何用VBA从数据库表中提取需要的数据到其他表里
阅读权限20
在线时间 小时
我原来用函数公式，现在想用VBA，请各位高手帮我解决！
11:29 上传
点击文件名下载附件
25.38 KB, 下载次数: 19
阅读权限10
在线时间 小时
要从原始数据根据各表的条件查询？简单描述一下要求嘛
阅读权限100
在线时间 小时
Dim arr, brr, crr, i&, j&
arr = [a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 2 To UBound(arr)
& & If InStr(arr(i, 5), &不合格&) Then
& && &&&k = k + 1
& && &&&For j = 2 To UBound(arr, 2)
& && && && &brr(k, j) = arr(i, j)
& && &&&Next
& && &&&brr(k, 1) = k
& && &&&n = n + 1
& && &&&For j = 2 To UBound(arr, 2)
& && && && &crr(n, j) = arr(i, j)
& && &&&Next
& && &&&crr(n, 1) = n
& & End If
With Sheets(&合格&)
& & .[a3:n50000].ClearContents
& & .[a3].Resize(n, UBound(arr, 2)) = crr
With Sheets(&不合格&)
& & .[a3:n50000].ClearContents
& & .[a3].Resize(k, UBound(arr, 2)) = brr
MsgBox &拆表OK&
阅读权限100
在线时间 小时
(31.67 KB, 下载次数: 42)
11:44 上传
点击文件名下载附件
阅读权限20
在线时间 小时
非常感谢3楼兄弟，但在“不合格”的表里，只需要提取“3-不合格(补考)”这个，不需要“2-不合格(初考)”，请帮解决，谢谢！
阅读权限20
在线时间 小时
& & & & & & & &
谢谢，我以修改好了，但后面的“科二考试不合格情况”表，还想请各位高手们帮帮忙！
阅读权限20
在线时间 小时
非常感谢看见星光兄弟，但在“不合格”的表里，只需要提取“3-不合格(补考)”这个，不需要“2-不合格(初考)”，我不会，请帮解决，谢谢！
阅读权限20
在线时间 小时
看见星光兄弟：在吗？在“不合格”的表里，只需要提取“3-不合格(补考)”这个。不需要“2-不合格(初考)”这个。请帮修改你的代码好吗？
阅读权限20
在线时间 小时
我原来使用函数公式来做的，现在想用VBA来实现，请各位兄弟们，高手们帮忙！说明和要求：
一、“合格”表和“不合格”表的数据需要从“原始数据”表中提取（“原始数据”表是从考试系统导出来的），“合格”和“不合格”这两个表我要打印出来上交（设置一个打印按钮最好）。
二、“科目二考试情况&这个表是由“原始数据”表和”扣分项目“表引用提取的。
& && &1、“科目二考试情况&这个表得A~J列引用了“原始数据”表对应的列。K列、M列、O列是分别提取J列里每5位数字（每5位数代表扣分项目里的一个扣分代码）
& && &2、L列、N列、P列是对应K列、M列、O列的代码值，在”扣分项目“表里引用。
& && &3、Q列是扣分A、扣分B、扣分C三个单元格的文字合并。
& && &4、R列是不含合格姓名（去掉考试合格姓名，保留两次考都不合格的记录）的筛选结果
以上是我的表格情况，我使用函数公式做的，你们可以，修改我的表格，只要达到同样效果就可以。
在这麻烦各位了，先谢谢对家！祝大家工作顺利，家庭幸福，万事如意！！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 3783|回复: 2
【数据库SQL取数工具】，用SQL脚本查询数据库直接输出到EXCEL
阅读权限30
在线时间 小时
功能：从各种数据库中取数，通过SQL脚本查询出数据，将数据直接输出到EXCEL。也可以直接中从EXCEL中取数。
环境要求：安装了相应数据库的客户端。
技能要求：会写基本的SQL脚本。不会的参考雪山飞狐的帖子《从零开始学习SQL(图文教程) 》，
链接字符串语法如下：参考向東的帖子，
ODBC Driver for Text
lcConnectionString = &Driver={Microsoft Text Driver (*.*.csv)};& & &DBQ=路径\文件;& & &Extensions=asc,csv,tab,& & &Persist Security info=False&
ODBC Driver for Access
lcConnectionString = &Driver={Microsoft Access Driver (*.mdb)};& & &DBQ=路径\文件.& & &Uid=A& & &Pdw=;&
ODBC Driver for Oracle
lcConnectionString = &Driver={Microsoft ODBC for Oracle};& & &Server=OracleServer.& & &Uid=myU& & &Pwd=myP&
ODBC Driver for SQL Server
lcConnectionString = &Driver={SQL Server};& & &Server=MyServerN& & &Database=MyDarabaseN& & &Uid=myU& & &Pwd=myP&
ODBC Driver for dBASE
lcConnectionString = &Driver={Microsoft dBASE Driver (*.dbf)};& & &Driverid=227;& & &DBQ=路径\文件;&
ODBC Driver for mySQL
lcConnectionString = &Driver={mySQL};& & &Server=MyServerN& & &Option=16834;& & &Database=&
ODBC Driver for Sybase
lcConnectionString = &Driver={SYBASE SYSTEM 11};& & &Srvr=MyServerN& & &Uid=myU& & &Pwd=myP&
ODBC Driver for Sybase SQL Anywhere
lcConnectionString = &Driver=Sybase SQL Anywhere 5.0;& & &DefaultDir=路径\;& & &Dbf=路径\文件名.& & &Uid=myU& & &Pwd=myP& & &Dns=&&&&;&
ODBC Driver for VisualFoxPro
lcConnectionString = &Driver={Microsoft Visual Foxpro Driver};& & &SourceType=DBC;& & &SourceDBC=路径\文件.& & &Exclusive=No;&
ODBC Driver for AS/400
lcConnectionString = &Driver={Client Access ODBC Driver (32-bit)};& & &System=myAS400;& & &Uid=myU& & &Pwd=myP&
ODBC Driver for Paradox
lcConnectionString = &Driver={Microsoft Paradox Driver (*.db)};& & &Driverid=538;& & &Fil=Paradox 5.X;& & &DefaultDir=路径\; & &Dbq=路径\;& & &CollatingSequence=ASCII;&
&Driver={Microsoft Excel Driver (*.xls)};DBQ=& + ActiveWorkbook.FullName
Driver={Microsoft Excel Driver (*.xls)};DBQ=
select * from [sheet2$]
001.png (13.01 KB, 下载次数: 6)
11:31 上传
点击工具栏加载项按钮
002.png (34.98 KB, 下载次数: 2)
11:32 上传
打开查询界面，输入链接字符串和SQL语句，点查询按钮
003.png (95.6 KB, 下载次数: 1)
11:32 上传
数据输出到EXCEL中
004.png (36.12 KB, 下载次数: 1)
11:32 上传
DATA链接用于打开链接设置和SQL代码集
005.png (18.03 KB, 下载次数: 1)
11:32 上传
在LINK表中，维护数据库链接字符串
006.png (41.15 KB, 下载次数: 1)
11:32 上传
在CODE_SET表中，维护SQL脚本
007.png (37.54 KB, 下载次数: 1)
11:32 上传
CODE_SET链接用于打开代码集窗口
008.png (32.12 KB, 下载次数: 1)
11:32 上传
在代码集窗口中可以查看和选择相应的SQL代码，就是前面那个CODE_SET表中维护的SQL代码
009.png (37.58 KB, 下载次数: 1)
11:32 上传
CLEAR_CODE命令用于清除SQL CODE文本框中的文本，方便重新输入SQL脚本
010.png (36.83 KB, 下载次数: 1)
11:32 上传
加号用于将字符串链接添加到LINK表中，减号用于将LINK表中的与窗体上相同的字符删除，Default用于将窗体上的链接字符串设置为默认的字符串，下次打开时载入默认字符串
011.png (36.73 KB, 下载次数: 1)
11:32 上传
EXCEL SQL用户查询EXCEL中的数据，相当于将EXCEL中的表当做数据库中的表进行查询
(27.53 KB, 下载次数: 202)
11:48 上传
点击文件名下载附件
数据库取数工具
阅读权限30
在线时间 小时
截图有点货不对版，不好意思。现在发帖太麻烦的，不想重新截图了，请见谅。但不影响功能的使用。望大侠们提出宝贵意见。
阅读权限30
在线时间 小时
& & & & & & & &
不错，感谢分享，能举例说明更好了
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}