Access数据库怎么导出到Excel表文件

一、在Access数据库中直接导出

用Access打开校友录的数据库文件，选中包含校友信息的“student”表，然后单击鼠标右键并选择“导出”命令。

在打开的对话框中将“保存类型”改成“Microsoft Excel 97-2003 (XLS)，然后输入文件名称，单击“导出”按钮，稍后就得到了一个标准的Excel工作簿文件。注意：在Access程序中还可以轻松将数据库表导出为VF的DBF文件、Paradox的数据库文件、文本文件等多种格式以供调用。用Excel打开导出得到的文件，将不需要的列删除，只保留姓名和E-mail地址所在的两列，随后保存，最后将此文件上传给领导审阅即可。

二、用AccessToExcel来帮忙

如果对Access数据库 *** 作不熟悉，没关系，可以使用AccessToExcel这款免费软件来帮忙。AccessToExcel，顾名思义，就是将Access数据库转换为Excel工作簿。安装并运行Access ToExcel，单击窗口左上角“导出Access数据库文件”左边的Access图标，在打开的对话框中选择要转换的MDB文件，打开该数据库文件。提醒：该软件附带提供获取Access数据库密码的功能，但算法不够全面，如果不能获取要打开的数据库密码会d出提示，请在“Access数据库密码”下手动输入。单击右侧“数据库 *** 作”标签下的“获取数据库”按钮，稍后将在“数据表名称列表”下显示该数据库中各表的名称。

从列表中选中要转换的那个表，单击“获取字段列表”按钮，在窗口左下方便列出了表中的各字段，去除不需要的字段前的对勾，然后点击“浏览数据”按钮，可检验是否为最终需要的项目。

切换到“导出数据”标签下，单击“选择导出文件”按钮，输入最终要导出的EXCEL文件名。单击“导出”按钮，在窗口下方会显示导出进度，完成后在d出的对话框中点击“是”立即保存。这样便得到了需要的Excel文件。用Excel打开导出的文件，可发现其中只有选中的字段。和直接导出相比，使用AceeToExcel导出的表前部会增加一个标题，如果不需要可在Excel中将其去掉。

用vba可以实现。

下面提供我给客户写的程序一部分，你可以参考。

Sub FYMXDL() ‘这个是导入数据库的

Dim XQID As Integer

Dim JZID As Integer

Dim FYID As Integer

Dim FBXZ As String '分包性质

Dim DW As String

Dim SARR(1 To 31) As Double

Dim rst As New ADODBRecordset

mYpath = ThisWorkbookPath & "\jzfydataaccdb"

Set cONn = CreateObject("ADODBConnection")

cONnConnectionString = "Provider=MicrosoftAceOleDB120;Data Source=" & mYpath

cONnConnectionString = cONnConnectionString & ";Jet OLEDB:Database "

cONnOpen

XQID = Cells(3, 2)Value

JZID = Cells(3, 5)Value

'清空改小区-建筑的费用明细

Sql = "delete from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID

cONnExecute Sql

Const kshh = 7

hh = kshh

Do While Cells(hh, 3)Value > 0

FYID = Cells(hh, 3)Value

FBXZ = Cells(hh, 11)Text

For i = 1 To 31

SARR(i) = Round(Cells(hh, 13 + i - 1)Value, 2)

Next i

Sql = "INSERT INTO fymxb(小区ID,建筑ID,费用ID,分包性质,工作量,单价合计_中标,人工费_中标, 主材费_中标, 辅材费_中标, 机械费_中标, 管理费_中标, 利润_中标,规费_中标,税金_中标,合价_中标,单价合计_标准成本,人工费_标准成本,主材费_标准成本,辅材费_标准成本,机械费_标准成本,管理费_标准成本,利润_标准成本,规费_标准成本,税金_标准成本,合价_标准成本,单价合计_实际成本,人工费_实际成本,主材费_实际成本,辅材费_实际成本,机械费_实际成本,管理费_实际成本,利润_实际成本,规费_实际成本,税金_实际成本,合价_实际成本) VALUES (" & XQID & ", " & JZID & ", " & FYID & ", '" & FBXZ & "'"

For i = 1 To 31

Sql = Sql & "," & SARR(i)

Next i

Sql = Sql & " )"

cONnExecute Sql

hh = hh + 1

Loop

End Sub

Sub FYMXDc() '导出费用明细

Dim jgarr(1 To 5, 1 To 2) As String '存放各级名称:1-id 2-名称

Dim XQID As Integer

Dim JZID As Integer

Dim FYID As Integer

Dim FBXZ As String '分包性质

Dim DW As String

Dim SARR(1 To 31) As Double

Dim rst As New ADODBRecordset

Const kshh = 7

mYpath = ThisWorkbookPath & "\jzfydataaccdb"

Set cONn = CreateObject("ADODBConnection")

cONnConnectionString = "Provider=MicrosoftAceOleDB120;Data Source=" & mYpath

cONnConnectionString = cONnConnectionString & ";Jet OLEDB:Database "

cONnOpen

XQID = Cells(3, 2)Value

JZID = Cells(3, 5)Value

'清空EXCEL

Range("A7：AQ1000")ClearContents

Sql = "SELECT from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID

rstOpen Sql, cONn, adopenkeyset, adlockoptimistic

If rstRecordCount > 0 Then

ARR = rstGetRows

Else

Exit Sub

End If

rstClose

Set rst = Nothing

hh = UBound(ARR, 2)

lh = UBound(ARR, 1)

For i = 0 To hh

Cells(kshh + i, 2) = ARR(0, i) 'ID

Cells(kshh + i, 3) = ARR(3, i) '费用ID

myid = ARR(3, i)

For j = 4 To 36

Cells(kshh + i, j + 7) = ARR(j, i) '分包性质后

Next j

'rstClose

'Set rst = Nothing

Sql = "select 名称,fid,SID,LEV,特征描述 from kmmxb where id = " & myid

rstOpen Sql, cONn, adopenkeyset, adlockoptimistic

ARR2 = rstGetRows

myfid = ARR2(1, 0)

mysid = ARR2(2, 0)

mylev = ARR2(3, 0)

mytzms = ARR2(4, 0)

MYSIDARR = Split(mysid, "-")

For k = 1 To mylev

jgarr(k, 1) = MYSIDARR(k - 1)

Next k

rstClose

For k = 1 To mylev

Sql = "select 名称 from kmmxb where id = " & jgarr(k, 1)

rstOpen Sql, cONn, adopenkeyset, adlockoptimistic

ARR2 = rstGetRows

jgarr(k, 2) = ARR2(0, 0)

rstClose

Next k

HH2 = kshh + i

'Cells(hh2, 3) = myid

Cells(HH2, 1) = myfid

For k = 1 To mylev

Cells(HH2, 4 + k - 1) = jgarr(k, 2)

Next k

Cells(HH2, 9) = mytzms

Next i

Call gs

End Sub

虚拟主机肯定不让运行自己的程序，但是肯定可以备份

你把备份下载下来，然后用本地的SQLServer还原，选择数据库的导入导出功能

数据目的地选择数据类型是access，选择所有表完事

不过所有约束就没了，需要自己加上

*** 作方法如下： 1、在Word中将文件另存为用逗号分隔或用制表符分隔的文本文件。 2、然后切换到Access。 3、在Access中打开新的或已有的数据库。 4、单击“数据库”窗口的“表”选项卡。 5，指向“文件”菜单中的“获取外部数据”命令，然后单击“导入”。

以上就是关于Access数据库怎么导出到Excel表文件全部的内容，包括:Access数据库怎么导出到Excel表文件、如何将Excel表单数据自动导入导出Access数据库、如何将Mysql数据库中数据转成ACCESS等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！