Sub 按钮1_Click()
Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
'Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
'Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
‘工具 ---〉引用 ---〉Microsoft ActiveX data objects ....
'下面两句就不需要增加引用ADO
Set cn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
Dim strCn As String, strSQL As String '字符串变量
Dim strCond As String
strCn = "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password" '定义数据库链接字符串
'下面的语句将读取数据表数据，并将它保存到excel工作表中：工作表为一张两维表，记录集也是一张两维表
strSQL = "select CUSTOMER_NAME from VSC_BI_CUSTOMER " '定义SQL查询命令字符串
cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
rs.Open strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
i = 2
Set sht = ThisWorkbook.Worksheets("Test") '把sht指向当前工作簿的Test工作表
Do While Not rs.EOF '当数据指针未移到记录集末尾时，循环下列操作
sht.Cells(i, 1) = rs("CUSTOMER_NAME") '把当前记录的字段1的值保存到sheet1工作表的第i行第1列
rs.MoveNext '把指针移向下一条记录
i = i + 1 'i加1，准备把下一记录相关字段的值保存到工作表的下一行
Loop '循环
rs.Close '关闭记录集，至此，程序将把某数据表的字段1保存在excel工作表sheet1的第1列，行数等于数据表的记录数
cn.Close '关闭数据库链接,释放资源
End Sub
2. 如何把Excel数据转化成SQL语句
1、例如我想把图1的数据给添加到图2的数据库中；
3. 如何在EXCEL中使用SQL进行数据处理与分析
在EXCEL中使用SQL进行数据处理与分析步骤有：
工具原料：excel2013版本
打开“excel”，在“数据”选项卡中，找到“自其他来源”；
4. 如何把Excel资料转化成SQL语句
如何把Excel资料转化成SQL语句
1、开启企业管理器，开启缓毕纤要汇入资料的资料库，在表上按右键，所有任务-->汇入资料，弹出DTS汇入/汇出向导，按 下一步 ， 2、选择资料来源 Microsoft Excel 97-2000，档名 选择要汇入的xls档案，按 下一步 ， 3、选择目的 用于SQL Server 的Micro...
前者是资料，后者是程式，如果将资料都写程序序，效率太低了。
你的本意估计是需要将excel资料汇入sql资料库
1、在excel中编写程式码，回圈将资料写入sql资料库
2、从sql资料库中，编写程式码将excel资料汇入资料库
3、借助第三方软体，将excel资料写入sql资料库:jingyan../article/cdddd41c92924d53cb00e189.
1、在你的excel表格中增加一列
2、在第一行的D列，就是D1中输入公式： =CONCATENATE("INSERT INTO PERSONS_SERIAL_NUMBER(PERSONS_NO, PERSONS_NAME,ID_NUMBER) VALUES('" & B1 & "', '" & C1 & "', '" & E1 & "');")
3、此时D1已经生成了如下的sql语句： INSERT INTO PERSONS_SERIAL_NUMBER(PERSONS_NO, PERSONS_NAME,ID_NUMBER) VALUES('xxxxx', 'xxxx, 'xxxxxxxxxx');
4、将D1的公式复制到所有行的D列，方法是：把资料放在单元格最右下角，当鼠标变成十字形时，往下拖到最后一行放开就会自动复制，动态改变values里面的引数
5、此时D列已经生成了所有的sql语句
6、把D列复制到一个纯文字档案中，推荐使用UltraEdit进行处理。如何把mysql某些资料转化成sql
SQL SERVER有一个自带的汇入汇出工具，你可以用它来把SQL SERVER的资数搜料汇入到MYSQL。
如果无法执行的话，可以自己编写程式，将SQL SERVER的资料按照MYSQL中你建设的表的栏位标准来汇出，然后再汇入到MYSQL。如何把SQL资料档案转化成ACCESS资料
sql企业管理器里面有一个数据汇入汇出
你可以把表直接汇出excel档案的如何把word做的一些资料转化成EXCEL
直接复制就自动分好单元格了。 直接扰仿复制啊。 我楼下的朋友（zjgwenqi - 助理 二级）方法可行，我的方法删掉了。 ,lCXXtZ
如何将一张资料库表中的资料汇出或转化成sql语句
sql
方法/步骤
很多时候我们在生产资料库上面只能进行简单的查询，是不能增删查改的。但是又想使用真实的资料。
如果用plsql develop是可以实现将资料汇出成insert语句的。但是汇出之后是全部的列都会出现在insert语句里面。
3
遇到一些空值，日期之类的还要处理一下才行，而且有很多列是自己不需要的。
4
这个时候就需要用sql来构造insert语句了。他是比较自由和灵活的，可控制性比较强。如何把shibor 日资料转化成月资料
请在日期后插入一列，如C列，在C1输入公式： =TEXT(A1,"yyyy-mm") 将日期转换为年月的文字，下拉复制； 再进行资料透视表按这年月作透视，将气温汇总除以气温计数即可得出平均值。 或请你将原表作附件上传，帮你做一下
如何将SQLite DB档案转化成带插入的sql语句
找到由SQLServer转换的SQLite DB档案（可参考我的以前的经验：SQLServer资料库表汇出SQLite DB档案方法），
下载动软程式码生成工具并安装，按照成功后到所有程式可以检视到
执行动软程式码生成工具进入到主接口。
点选左上角的新增服务器注册，弹出资料库型别窗体。选择SQLLite，点选下一步。如下图：
接下来会弹出选择SQLite资料库窗体，在资料库档案文字框输入本地SQLite db档案路径，点选确定（。系统会提示关闭软体从新开启。
重新开启动软程式码生成工具后，到左边服务器可以看见那你的SQLite资料库
选择一张表，右键选择生成资料脚步（。会弹出一个提示：“如果该表资料量较大…”，直接选择“是”（，点选“是”后右边出现生成的sql语句，包含新增语句和插入资料的语句。储存档案即可。5. 如何在Excel中使用SQL语言实现数据查询
1、选中表格后单击右键选择“定义名称”。
2、单击后，出现命名对话框。
3、这里将表1和表2分别命名为Table1和Table2。
4、选择上方的“数据”选项卡，选择“自其他来源”下的“来自Microsoft Query ”选项。
5、在弹出的对话框中选择Excel Files*那一项，并且把对话框下面的“使用“查询向导”创建/编辑查询”勾掉。
6、点击“确定”，便出现“选择工作簿”的对话框，这里选择包含表1和表2的工作表xxx.xlsx。
7、点击确定后之后弹出添加表的对话框。
8、点击确定后之后弹出添加表的对话框。
9、输入SQL语句的按钮，弹出输入SQL语句的对话框 输入SQL，看到筛选出来的数据表。
10、将筛选出来的数据表再返回至Excel工作表当中，选择菜单中的“文件”——“将数据返回Microsoft Excel”。
6. EXCEL中能不能直接执行SQL语句
1、需要导入的数据如图。
7. 如何将Excel数据转换为SQL脚本
.sql文件转成excel表格的步骤：1、将sql文件放入数据库执行（这边以mysql数据库为例），SQL命令行操作：sql>@full_path/test.sql;例：sql>@D:/test.sql;不需要commit;一般都是在test.sql里面最后加上一个commit;2、从数据库导出数据至excel表格，SQL命令行操作：sql>select*intooutfile'd:/test.xls'from表名；例：sql>select*intooutfile'd:/test.xls'fromtest；