excel中使用sql语句，使用快捷键alt+d+d+d调出链接表的对话框，选择你要连接的表，然后确定，在编辑查询命令文本中要写sql语句，sql在excel中使用的是select语句。其实使用select主要是对数据的查询和汇总，汇总时输入聚合函数。总之有许多的知识需要学习，你可以在网上查阅一下sql select语句的具体知识。
第一步：建立数据库和数据表（按照自己的Excel数据设立字段）。
[sql] view plain copy print
CREATE DATABASE php_excel;
USE php_excel;
CREATE TABLE IF NOT EXISTS php_excel(
id int(20) NOT NULL AUTO_INCREMENT PRIMARY KEY,
gid varchar(20) NOT NULL,
stu_no varchar(20) NOT NULL,
name varchar(45) NOT NULL,
age int(4) NOT NULL
)ENGINE=MyISAM DEFAULT CHARSET=utf8;
第二步：前台indexphp文件。
[html] view plain copy print
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 10 Transitional//EN" ">
将Excel中的数据导入到Access中，前提是在Access中的表已经建好。 dim conn dim conn2 set conn=CreateObject("ADODBConnection") connOpen "Provider=MicrosoftJetOLEDB40;Jet OLEDB:Database PassWord=;Data Source=c:\book1mdb" set conn2=CreateObject("ADODBConnection") conn2Open "Provider=MicrosoftJetOLEDB40;Jet OLEDB:Database Password=;Extended properties=Excel 50;Data Source=c:\book1xls" sql = "SELECT FROM [Sheet1$]" set rs = conn2execute(sql) while not rseof sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')" connexecute(sql) rsmovenext wend connclose set conn = nothing conn2close set conn2 = nothing function fixsql(str) dim newstr newstr = str if isnull(newstr) then newstr = "" else newstr = replace(newstr,"'","''") end if fixsql = newstr end function 导入到Sql Server数据库中时，如果Excel文件和数据库不在同一台服务器上时，请参考上面的代码。在同一机器上可以参考下面代码（不需要先把表建表，程序会自己动建表，用Excel中的第一行数据做为表的字段名）： dim conn set conn=CreateObject("ADODBConnection") connOpen ("driver={SQL Server};server=localhost;uid=sa;pwd=sa;database=hwtemp;") sql = "SELECT into newtable FROM OpenDataSource( 'MicrosoftJetOLEDB40','Data Source=""c:\book1xls"";User ID=Admin;Password=;Extended properties=Excel 50')[Sheet1$] " connexecute(sql) connclose set conn = nothing 在网上帮你找了点代码 看看有用没,
Sub 按钮1_Click()
Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
'Dim cn As New ADODBConnection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
'Dim rs As New ADODBRecordset '定义记录集对象，保存数据表
‘工具 ---〉引用 ---〉Microsoft ActiveX data objects
'下面两句就不需要增加引用ADO
Set cn = CreateObject("AdodbConnection")
Set rs = CreateObject("AdodbRecordset")
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查询命令字符串
cnOpen strCn '与数据库建立连接，如果成功，返回连接对象cn
rsOpen strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
i = 2
Set sht = ThisWorkbookWorksheets("Test") '把sht指向当前工作簿的Test工作表
Do While Not rsEOF '当数据指针未移到记录集末尾时，循环下列 *** 作
shtCells(i, 1) = rs("CUSTOMER_NAME") '把当前记录的字段1的值保存到sheet1工作表的第i行第1列
rsMoveNext '把指针移向下一条记录
i = i + 1 'i加1，准备把下一记录相关字段的值保存到工作表的下一行
Loop '循环
rsClose '关闭记录集，至此，程序将把某数据表的字段1保存在excel工作表sheet1的第1列，行数等于数据表的记录数
cnClose '关闭数据库链接,释放资源
End Sub
以上就是关于如果excel中想使用sql语句怎么使用全部的内容，包括:如果excel中想使用sql语句怎么使用、怎么把excel文件里的数据导入sql数据库、EXCEL怎么控制SQL ＳＥＲＶＥＲ２０００数据库呀等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）