Ⅰ Excel 求助 sql select from 語句
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select * from [sheet1$A2:D]"
[H3].CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing
Ⅱ Excel 請問VBA中如何實現SQL 中的SELECT查詢
一般是select查詢的順序為：
select
分組欄位+聚合函數+from+where+group
by+having+order
by
select查詢語句很復雜，最簡單的舉例如：
select
*
from
[信息庫$]
where
性別="男"
從信息庫表中找出性別為男的所有數據條目。
Ⅲ EXCEL 查詢SQL2005數據，select語句怎麼調用excel表格的文本
要用VBA做。
這是我以前寫的例子：
SubTT()
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
Sheet1.Cells.Clear
Sheet3.[B8]=""
conn.ConnectionString="Driver={sqlserver};server="&Sheet3.[B2]&";uid="&Sheet3.[B3]&";pwd="&Sheet3.[B4]&";database="&Sheet3.[B5]
conn.Open
Sheet3.[B8]="連接成功！"
rs.OpenSheet3.[B6].Value,conn,adOpenKeyset,adLockPessimistic,adCmdText
rs.MoveLast
l=rs.RecordCount
Sheet3.[B9]=l
n=3
Fori=1Tol
IfTrim(rs.Fields("欄位1"))<>"欄位1"Then
Sheet1.Cells(n,"A")=Trim(rs.Fields("欄位1"))
n=n+1
Else
Sheet1.Cells(n,"B")=Trim(rs.Fields("欄位2"))
n=n+1
EndIf
Next
EndSub
Ⅳ Excel表中連接sql並使用sql語句引用excel單元格數據作為查詢條件
1、將需要處理的記錄復制到一個新的工作表，然後將在資料庫表中存在唯一值的列（比如物料編碼）後插入一列，用 CONCATENATE函數將其前後加上「'」。
Ⅳ 在excel中查詢sql資料庫
查詢是資料庫最常用的操作，也是最重要的操作.SQL語言提供了SELECT語句進行資料庫的查詢，該語句的一般格式如下:SELECT select listFROM table source!WHE咫search_ condition][GROUP BY group一y_expression]I HAVING search condition][ ORDER BY order expression[ASC I DESC]]其主要元素說明如下:select list要選擇的列或表達式的集合。table source基本表或者視圖的集合.search condition進行查詢的條件.groupee by_expression可以根據某些特定的列進行分組。search condition分組的條件值.order expression查詢結果是按照列的集合來進行升序或者降序排序.由於SELECT語句的復雜性，一下面例子涉及到一個客戶、訂單資料庫。客戶基本信息表:Customer(CustomerlD,CompanyName,Address,City, Phone, Fax)Customer由客戶編號(CustomerlD )、公司名稱(CompanyName)、公司地址(Address) .公司所在城市(City)、公司電話(Phone)和傳真(Fax) 6個屬性組成，其中客戶編號(CustomerlD )是關鍵字.商品信息表:Proct(ProctID, ProctName,UnitPrice)Proct山產品編號(ProctID )、產品名稱(ProctName)和產品單價(UnitPrice )3個屬性組成，其中產品編號(ProctID )是關鍵字。客戶汀單表:Orders(OrderlD,CustomerID,ProctID,OrderDate,RequiredDate,OrderQuantity)Order由訂單編號(OrderlD )、客戶編號(CustomerlD )、產品編號(ProctID )、訂單日期(OrderDate )、訂單預交日(RequiredDate)和訂單數量(OrderQuantity) 6個屬性組成，其中OrderlD是關鍵字.
Ⅵ EXCEL VBA里怎麼用SQL 的SELECT 語句
可以做到，但不是三言兩語能說清楚的。至少VBA程序不會太短
如果用手工操作，不藉助VBA，可以利用Excel的「數據－導入外部數據」菜單將SQL中的表先導入到Excel中，那麼Excel數據與SQL數據的比較就變成了兩個Excel表列的比較，很容易用數組公式或相關函數標識出重復的數據項的。
Ⅶ 在EXCEL中查詢SQL資料庫
用SqlCel查詢Sql Server資料庫。SqlCel可以同時支持Mysql，sql server，access，oracal。sqlcel的sql語句可以引用excel單元格的值作為變數。比如樓主要將123替換成Sheet1工作表的A1單元格的內容，那麼SQL語句可以這么寫
select * from AAA WHERE A = [Sheet1!A1]
這樣執行就可以引用A1單元格的值了
Ⅷ excel運行SQL的select from語句
單純的如上的語句是不能執行的，你必須配上一系列的打開資料庫的操作（譬如vb），而後編譯成exe文件，鏈接到任何地方都能執行。
Ⅸ 如果excel中想使用sql語句怎麼使用
excel中使用sql語句，使用快捷鍵alt+d+d+d調出鏈接表的對話框，選擇你要連接的表，然後確定，在編輯查詢命令文本中要寫sql語句，sql在excel中使用的是select語句。其實使用select主要是對數據的查詢和匯總，匯總時輸入聚合函數。總之有許多的知識需要學習，你可以在網上查閱一下sql
select語句的具體知識。
Ⅹ excel使用sql語句查詢功能.
在宏編輯界面中進行SQL數據查詢以及生成報表的代碼如下：
Sub Static()
Dim objNewWorkbook As Workbook '定義一個Workbook對象
Set objNewWorkbook = Workbooks.Add(ThisWorkbook.Path & "模板.xlt") '使用模板文件新建一個EXCEL報表生成文件
Set objConnection = CreateObject("ADODB.Connection") '創建一個ADO連接
objConnection.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties='Excel 8.0;Hdr=yes;Imex=1';Data Source=" & ThisWorkbook.FullName '設置連接字元串
strCommand = "select 施工人, count(*) as 拆電話 from [" & Sheet1.Name & "$] where 施工動作 = '拆' and 專業類型 = '電話' group by 施工人" '查詢表單一中的數據源進行統計
?objNewWorkbook.Sheets(1).Range("A3").CopyFromRecordset objConnection.Execute(strCommand)
2.將查詢統計結果輸出到目的報表文件的表單1的從A3開始的區域中
3.下面代碼是調用EXCEL的排序方式進行漢字排序，這里SQL語句中的排序對於漢字排序與期望結果不同
4.使用EXCEL中的排序方法是根據EXCEL版本不同調用有所區別
Select Case Application.Version
Case "11.0":
objNewWorkbook.Sheets(1).Range("A3:M" & CStr(intSumRow - 1)).Sort Key1:=objNewWorkbook.Sheets(1).Range("A3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Case "12.0":
objNewWorkbook.Sheets(1).Sort.SortFields.Clear
objNewWorkbook.Sheets(1).Sort.SortFields.Add Key:=Range("A3:A" & CStr(intSumRow - 1)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With objNewWorkbook.Sheets(1).Sort
.SetRange Range("A2:M" & CStr(intSumRow - 1))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Case Else
End Select
objConnection.Close
End Sub