excel访问access

⑴ 如何在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

⑵ 如何用excel打开access数据库

引用 access对象库。打开ACCESS文件进行操作
或用 ado对象直接链接ACCESS文件，使用查询语句操作其中数据

⑶ EXCEL如何调用ACCESS数据

找到自己需要做改变的Excel和Access

1
为了避免自己以后的，所以第一个步骤看似无关重要，但是却缺一不可。确保Excel中的数据导入数据库不要出错，不然一切白费。

END
新建数据库，开始执行操作

在数据库上方有一个外部数据，点击外部数据存在一个“导入Excel表格功能”，点击该功能开始执行导入操作。

找到自己的Excel，明确路径，就可以开始了。点击确定进入下一个步骤

在开始导入的时候，根据自己的需要勾选第一行是否包含标题。
勾选：代表Excel中的第一栏就是数据库中的字段名
不勾选：代表Excel所有的数据会成为数据库中的数据
我以勾选状态演示

在下一个页面，可以根据自己的需要修改“字段名称”和“数据类型”。

进入下一页面，可以修改数据库中的主键，可以用Access的默认主键，也可以自定义主键，也可以不要主键。

6
完成主键的设置过后，就完成了数据的导入，但是还没有完，自己要为导入的数据命名。最后就完成了将Excel中的数据导入到Access数据库中的操作。

⑷ 如何把EXCEL表导入到access数据库

材料/工具：Excel2003

1、首先启动access，执行新建-空数据库命令，输入名称保存在一个合适的位置上。

⑸ 怎样把EXCEL表导入access数据库

1、首先准备好一个要导入Access的Excel文件：

(5)excel访问access扩展阅读

Access的用途体现在两个方面：

一、用来进行数据分析： access有强大的数据处理、统计分析能力，利用access的查询功能，可以方便地进行各类汇总、平均等统计。并可灵活设置统计的条件。

比如在统计分析上万条记录、十几万条记录及以上的数据时速度快且操作方便，这一点是Excel无法与之相比的。 这一点体现在：会用access，提高了工作效率和工作能力。

二、用来开发软件： access用来开发软件，比如生产管理、销售管理、库存管理等各类企业管理软件，其最大的优点是：易学！非计算机专业的人员，也能学会。

低成本地满足了那些从事企业管理工作的人员的管理需要，通过软件来规范同事、下属的行为，推行其管理思想。（VB、.net、 C语言等开发工具对于非计算机专业人员来说太难了，而access则很容易）。

这一点体现在：实现了管理人员（非计算机专业毕业）开发出软件的“梦想”，从而转型为“懂管理+会编程”的复合型人才。

另外，在开发一些小型网站WEB应用程序时，用来存储数据。例如ASP+Access。这些应用程序都利用ASP技术在InternetInformation Services运行。比较复杂的WEB应用程序则使用PHP/MySQL或者ASP/Microsoft SQL Server。

ACCESS的用途更多，体现在很多方面：

表格模板。 只需键入需要跟踪的内容，Access 便会使用表格模板提供能够完成相关任务的应用程序。

Access 可处理字段、关系和规则的复杂计算，以便您能够集中精力处理项目。 您将拥有一个全新的应用程序，其中包含能够立即启动并运行的自然 UI。

创建和运行旧数据库。 尽情享用对您的现有桌面数据库 (ACCDB/MDB) 的支持。

⑹ 怎样把excel数据导入access

导入方法如下：
1、打开access软件，新建空白桌面数据库。
2、在【外部数据】面板中点击EXCEL。
3、在【选择数据源】面板的【文件名】中选择目标文件，并在下方选择【将数据源导入当前数据库的新表中】，确定。
4、接下来选择【现实工作表】，显示整个工作表，然后下一步。
5、选择【第一行包含标题】，这样EXCEL表格的第一行成了标题行，相当于筛选栏，下一步。
6、可以选中某列，设置该列的名称，下一步。
7、可以选择自己的主键，这里选择手机品牌为主键，下一步。
8、下面一直下一步，完成后可以看到EXCEL插入access中。

⑺ 如何将Excel表链接到Access中实现所需功能

以excel2007为例：
（1）打开Access，点击新建【空白数据库】。
（2）命名好文件名，选择好储存位置后，点击【创建】
（3）创建了以后，点击【外部数据——导入Excel】
（4）选择【通过创建链接表来链接到数据源】，再点击【浏览】，找到要导入的Excel表。
（5）找到Excel表后，点击【打开】，点击【确定】
（6）显示出工作表的内容，点击【下一步】----勾选【第一行包含列标题】-----点击【下一步】
完成以后，Access上多了一个数据表，双击打开后，这个表上的数据都不能更改，这就是链接方式的优点之一。注意，一定要在Access中关闭这个表，Excel才能打开修改。

⑻ 如何把excel数据读取到access数据库中

右键点击文件，打开方式，选择access,然后保存为access格式