excel讀取資料庫數據

1. Excel表格從資料庫提取符合的數據

值唯一的時候，可以通過vlookup函數來查找返回。這個可以實現

2. 如何通過Excel查詢Mysql資料庫

這里介紹一種非常高效的方法。就是藉助Excel插件SqlCel，這個插件在處理數據上面有很多可取之處，非常值得學習。

比如在Excel中有一個訂單ID欄位，這個欄位總共有2千條記錄，現在我們要查詢這些訂單對應的產品名稱。

在Mysql資料庫中有一張訂單表裡面存儲了所有訂單的詳細信息。我們該怎樣操作才能最快速地查到每個訂單的產品名稱呢？

多數人的做法應該是把Excel中的數據導入到Mysql中，然後寫一個SQL語句匹配訂單表，然後把匹配結果再導出來。這種做法也是可以的，只是非常不方便，單是數據的導入可能就會遇到不少麻煩。用SqlCel處理這個問題就簡單了

插件安裝之後需要連接到Mysql資料庫，點擊「資料庫連接」下的Mysql，輸入連接信息。如下：

3. 如何才能用EXCEL去連接SQL 資料庫讀取數據！！！！

1、首先打開SQLServer資料庫，准備一個要導入的數據表，如下圖所示，數據表中伍信模插入一腔緩些數據

2、接下來打開Excel軟體，點擊數據菜單，然後選擇其他來源下面的來自SQLServer選項

3、然後會彈出資料庫連接向導界面，在輸入框裡面輸入伺服器名稱，也就是計算機名

4、接下來就會出現導入內容的具體設置界面了，我們選擇要導入表，並且選擇一個空白單元格位置作為數據的導入位置

5、最後坦掘點擊確定按鈕，我們就可以看到SQLServer中的數據就導入進Excel里了

4. 怎樣從Excel中讀取其他資料庫的數據

可能不甚了解。本文就介紹了怎麼樣在Excel軟體中獲取其它資料庫中的數據，以便在常用的數據處理軟體中利用其它資料庫中的數據。

關鍵字：Microsoft Excel，資料庫，導入，表，Microsoft uery。

一、Microsoft Excel 2003簡介

Microsoft Excel 2003是Microsoft Office 2003中的一個組件，它是一個高效、實用的電子表格軟體，具有強大的數據處理與數據分析能力，為廣大用戶進行數據處理提供了一個很好的工具，也為廣大的用戶所熟悉。如何在Excel中利用其它資料庫中的數據呢？

二、導入其它資料庫表中的數據到Excel中

在Microsoft Excel中導入其它資料庫表中的數據的方法非常簡單。具體操作步驟如下：

第一步，啟動Microsoft Excel，新建或者打開需要數據的工作簿，選中相應的工作表，並選中新導入的數據存放的起始單元格；

第二步，執行「數據」→「導入外部數據」子菜單下的「導入數據」命令，在對話框中選擇要導入的數據所在的文件的類型，並通過對話框中的「查找范圍」後面的下拉箭頭找到要導入的數據文件所在的位置。

第三步，選中要導入的文件，單擊圖1所示對話框中的「打開」按鈕。至此，選中的數據表中的數據就導入到了當前工作簿的當前工作表中了，當然也可以將導入的數據放在新的工作表中。

舉例：在Excel工作簿「導入.XLS」中的sheet1工作表導入一個VFP（Visual FoxrPro，下同 ）中的表（學生.dbf）中的數據。導入的具體操作步驟如下：

首先打開工作簿「導入.XLS」，選中sheet1工作表，如圖2所示；執行「數據」→「導入外部數據」子菜單下的「導入數據」命令，在對話框中選擇要導入的數據的文件的類型，並通過對話框中的「查找范圍」後面的下拉箭頭找到要導入的數據文件所在的位置；選中要導入數據的.dbf文件（此例的選擇見圖3），單擊「打開」按鈕。這樣，就在Excel工作簿「導入.XLS」中的sheet1工作表中導入了VFP中建立的資料庫表文件「學生.dbf」中的數據。結果如圖4所示。

以上是在Excel工作表中導入VFP數據表中的數據的操作方法。如果要在Excel工作表中導入其它資料庫表中的數據，操作方法基本相似。說明以下幾點：

5. 如何在EXCEL中自動讀取ACCESS資料庫中的信息

用access自動獲取excel里的數據的方法就是通過代碼的方式導入。
如果是手動導入比較清楚的話，這個實現起來不難，請參考下面的介紹來實現：
首先，新建一個工程，在工程中引用如下對象ADO對象（用於連接ACCESS資料庫，可用其它方式），添加一個窗體（from1），在窗體上添加如下控制項：
兩個文本框，用來顯示EXCEL文件路徑和ACCESS路徑；
四個扭鈕，兩個用來游覽，另兩個是導入和退出；
兩個通用對話框控制項，用來打開ACCESS和EXCEL文件，一個進度條控制項，用來顯示導入進程。
該實例的導入是將ACCESS資料庫中表的欄位名單獨存放在另外一個表中,導入時按表中所存欄位名的順序進行導入,不是按EXCEL表的順序導入,這樣在實際中是很實用的.
因為好多時候EXCEL表中欄位順序和ACCESS中欄位順序有可能不是一致的.
代碼如下：
Dim v
Option Explicit
Private Sub cmdLoad_Click()
Dim excel_app As Object
Dim excel_sheet As Object
If txtExcelFile.Text = "" Then
MsgBox "請選擇EXCEL表"
Else
Dim new_value As String
Label2.Caption = "正在導入,請稍候..."
Screen.MousePointer = vbHourglass
DoEvents
'' Create the Excel application.
Set excel_app = CreateObject("Excel.Application")
'' Uncomment this line to make Excel visible.
excel_app.Visible = True
'' Open the Excel spreadsheet.
excel_app.Workbooks.open FileName:=txtExcelFile.Text
'' Check for later versions.
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

Dim u ''求EXCEL表中記錄的條數,以便控制進度條
u = 1
Do
If Trim$(excel_sheet.Cells(u, 1)) = "" Then Exit Do
u = u + 1
Loop
bar.Max = u - 1
strSQL = "select * from TestValues"
yourRecord.open strSQL, myConn, adOpenDynamic, adLockOptimistic ''打開記錄集
Dim sql As String

sql = "select * from fields order by xue"
myRecord.open sql, myConn, adOpenDynamic, adLockBatchOptimistic ''打開欄位記錄集
myRecord.MoveFirst
'' Get data from the Excel spreadsheet and insert
'' it into the TestValues table.

Dim v ''導入記錄,用了兩層循環
v = 1
Do
If Trim$(excel_sheet.Cells(v, 1)) = "" Then Exit Do ''外層,
yourRecord.AddNew
Dim i
For i = 1 To myRecord.RecordCount
'' Get the next value.
new_value = Trim$(excel_sheet.Cells(v, i))
'' See if it''s blank.
''If Len(new_value) = 0 Then Exit Do
'' Insert the value into the database.
Dim bb As String
bb = myRecord("name")
yourRecord(bb) = new_value
myRecord.MoveNext
Next i
bar.Value = v
v = v + 1
myRecord.MoveFirst
Loop
yourRecord.Update

'' Comment the rest of the lines to keep
'' Excel running so you can see it.
'' Close the workbook without saving.
excel_app.ActiveWorkbook.Close False
'' Close Excel.
excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
myRecord.Close
yourRecord.Close
Set myRecord = Nothing
Set yourRecord = Nothing
Label2.Caption = "導入完畢"
Screen.MousePointer = vbDefault
MsgBox "共導入" & Format$(v - 1) & "條記錄"

End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click(Index As Integer)
''尋找ACCESS資料庫
CommonDialog1.Filter = "ACCESS 文件(*.mdb)|*.mdb"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
txtAccessFile.Text = CommonDialog1.FileName
End Sub
Private Sub Command3_Click()
''尋找excel資料庫
CommonDialog2.Filter = "excel 文件(*.xls)|*.xls"
CommonDialog2.CancelError = True
CommonDialog2.ShowOpen
txtExcelFile.Text = CommonDialog2.FileName
End Sub

Private Sub Form_Load()
Call Mole1.lianjie
txtAccessFile.Text = datapath
End Sub
模塊（mole1）中的代碼如下：
Public myConn As New ADODB.Connection ''定義連接字元串
Public myRecord As New ADODB.Recordset ''定義記錄集(欄位)
Public yourRecord As New ADODB.Recordset ''定義記錄集(數據)
Public cntoad As Boolean ''是否正常連接
Public ml ''姓名欄位所在列
Public strSQL ''查詢字元串
Public MyDatabase As Database ''定義資料庫名
Public MyTable As TableDef, MyField As Field ''定義表名和欄位名
Public xuehao ''讀取欄位序號
Public goshiRecord As New ADODB.Recordset ''定義記錄集(公式)
Public hxfyn As Boolean
Public hxfbds '' 公式或條件
Public an ''要統計的欄位
Public islinshi As Boolean ''是否為臨時公式
Public leiRecord As New ADODB.Recordset ''定義記錄集(工資類別)
Public datapath As String ''資料庫路徑及名
Public table As String ''工資表名
Public lei As String '' 工資類別
Public Sub lianjie() ''打開資料庫
On Error Resume Next
myConn.Close
Dim mySQL As String
''設定連接字元串
mySQL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
mySQL = mySQL + "Data Source=" & datapath
myConn.ConnectionString = mySQL ''設定連接
myConn.open ''打開連接
myRecord.ActiveConnection = myConn ''設定RecordSeet的連接對象為Connection
myRecord.CursorLocation = adUseClient
goshiRecord.ActiveConnection = myConn ''設定RecordSeet的連接對象為Connection
goshiRecord.CursorLocation = adUseClient
yourRecord.ActiveConnection = myConn ''設定RecordSeet的連接對象為Connection
yourRecord.CursorLocation = adUseClient
End Sub

6. 如何使用EXCEL讀取外部資料庫數據

1、資料庫連接

是來自「資料庫操作支持庫」。資料庫連接功能型窗口組件操作系統支持：Windows。本類型用來打開大多數資料庫，起到資料庫連接的作用。連接後，使用"資料庫操作"類型來操作資料庫表。

屬性：

最後錯誤、是否已連接、對象提供者、引擎版本、

方法：

連接、連接Aess、連接SQLServer、關閉、執行SQL、取得許可權、設置許可權、設超時時間、取超時時間、開始事務、保存事務、回滾事務

是來自「系統核心支持庫」。外部數據提供者功能型窗口組件操作系統支持：Windows。外部數據提供者用作為數據源提供對外部ODBC資料庫的存取操作。它使用外部資料庫作為數據的存儲倉庫，不支持備注和長位元組集類型欄位，不支持以下數據操作介面：

1、置行高；2、置類型；3、置文本色；4、置背景色；5、置字體名；6、置字體尺寸；7、置字體屬性；8、置邊距；9、置文本輸入格式；

10、置對齊方式；11、置密碼方式；12、合並；13、分解；14、加線條；15、刪線條；16、初始尺寸時同時改變列數；17、在中間插入行；

18、插入列；

19、刪除列。如果想對數據進行以上操作，應該先將數據通過數據源導出到通用提供者中。另外，在支持數據源的「插入行」介面時，將直接插入空白行數據，所以如果目的數據表在某欄位上建立了主鍵索引、強制不為空等類似列約束條件時，將導致插入失敗。

屬性：

左邊、頂邊、寬度、高度、標記、可視、禁止、滑鼠指針、連接文本、查詢SQL

外部數據提供者是系統自帶的資料庫連接控制項之一，需要配合數據源使用。外部數據提供者提供資料庫連接操作，數據源提供對數據的操作。而資料庫連接直接管理數據和連接，更方便連接資料庫和操作

7. 如何在excel中通過宏來直接取得資料庫中的數據

這個很簡單，代碼如下：

Sub C5C15_B3B13()
Dim Fo As Object, myName As String
Set Fo = Application.FileDialog(msoFileDialogFilePicker)
Fo.Title = "請選擇您要復制C5：C15數據的文件："
If Fo.Show = True Then myName = Fo.SelectedItems(1)
If myName = "" Then
MsgBox "您取消了文件選擇，所以本次處理未完成，將直接退出", vbOKOnly + vbInformation
Exit Sub
End If

Dim wb as Workbook
For Each wb in Workbooks
if wb.Fullname = myName then Goto wbHasOpened
Next
set wb = workbooks.open(myname)
wbHasOpened:

Dim sh as worksheet
For each sh in wb.sheets
if sh.name = "Voice Quality" Then
[b3:B13] = sh.[c5:c15].value
Exit For
end if
Next
Msgbox "處理完成！"
wb.close True
End Sub

8. 如何在excel表格中讀取sql資料庫數據

excel程序自帶的外部數據連接功能，可以連接sql伺服器。具體步驟為：
1、選擇【數據】選項卡，在【獲取外部數據】分組，找到【自其他來源】。
2、單擊【自其他來源】按鈕，打開【選擇來源】下拉菜單。
3、選擇【來自sql
server】打開【數據連接向導】對話框。
4、填寫伺服器名稱、登錄的用戶名及密碼等信息，即可成功連接。

9. EXCEL從資料庫提取數據

1、打開源數據文件，把首行中的對應的數據，復制行到空白位置。

10. 如何使用EXCEL讀取外部資料庫數據

步驟1：點擊開始，打開Microsoft Excel 2010。

2
步驟2：打開之後，點擊數據，其他來源，來自SQL Server。

3
步驟3：打開數據鏈接向導之後，輸入伺服器名稱和登陸用戶名和密碼。點擊下一步。

步驟4：點擊下一步之後，報錯，不能夠正常鏈接資料庫。

步驟5：打開SQL Server 資料庫代理伺服器，查看代理停止工作，將其啟動。

步驟6：修改伺服器名稱為SQL Server所在的伺服器的IP地址填寫入伺服器名稱，登陸名稱和密碼全部為sa。

步驟7：進入，選擇資料庫和表。選擇PUBS，點擊下一步。

步驟8：點擊下一步，保持鏈接文件，點擊完成。

步驟9：點擊導入數據

步驟10
連接屬性，連接名稱：172.16.0.31
pubs employee，連接文件：C:\Documents and Settings\lys\My
Documents\我的數據源\172.16.0.31 pubs employee.odc 連接字元串：
Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Data
Source=172.16.0.31;Use Procere for Prepare=1;Auto
Translate=True;Packet Size=4096;Workstation ID=L10-1DA235E90;Use
Encryption for Data=False;Tag with column collation when
possible=False;Initial Catalog=pubs 命令文本："pubs"."dbo"."employee"

步驟11：點擊確定，輸入密碼Sa。

步驟12： 我們可以看到將SQL Server數據寫入了EXCEL中。
查詢EXCEL中資料庫：

查詢資料庫中數據：
SELECT *
FROM employee