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