如何把<em>EXCEL</em>表<em>导入</em>到access

1.在Access中创建对Excel工作簿的链接：在Access中选择“外部数据——百导入——Excel”。
2.在“获取外部数据”对话框中选择“通过创建链接表来链接到数据源”。
必须为每个Excel工作簿重复该过程直到将它们都链接到数据库。结果如下图所示。

3.在SQL视图中度开始新的查询，单击“创建——其他——查询设计”。

4.选择“查询工具-设计”中的“SQL视图”

5.在SQL视图中，为所有链接的Excel表输入Select语句，在每个Select语句间使用Union操作符内，在SQL视图中输入选择查询语句。

6.运行查询后，结果将是包含从所有链接的文容件中获取并合并后的数据。
只要链接的Excel文件在相同的位置，每次打开数据库时Access将自动刷新链接以获取最新数据。这意味着只需设置一次，然后在每次需要重新组合Excel文件时运行联合查询。
然而，默认情况下，UNION操作符会移除数据中的任何重复行。如果知道数据中有重复行，并且想保留它们，那么需要使用UNION ALL，以允许传递重复行。

材料/工具：Excel2003

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

2、在数据库对话框中点击新建命度令，调出新建表对话框，选问择导入表选项，点答击确定按钮。

3、在导入对话框中找到需要导入的数据表格，选中后点击导入按钮，出现导入数据表向导对话框。

4、接着根据向导提示点击下一步内，在“请选择数据的保存位置”中勾选新表中。

5、在字段选项中采用默认即可，点击下一步，接着选择设置主键为“字段2”。

6、直到出现完成按钮，并点击完成后，在数据库中就会出现sheet1表，双击打开即容可，接着可以进行必要的处理了。

数据太多的话excel装不下。建议编写VBA程序将数据导出到excel，这样可以在程序中控制分页。

你点我7a64e58685e5aeb9364的名字 在我空间里有我网盘的地址 去vb文件夹里找ExcelAdo.rar。

Option Explicit
Public appdisk As String
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public db As String
Private Sub Form_Load()
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
db = appdisk
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db & "alex.mdb"
conn.CursorLocation = adUseClient
conn.Open db
rs.Open "aaa", conn, adOpenKeyset, adLockPessimistic
End Sub

Private Sub Command1_Click()
Dim lRow As Long
Dim sXLSPath As String
Dim MyExcel As New Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Screen.MousePointer = 11
sXLSPath = appdisk & "maindata.xls"
Open sXLSPath For Output As #1
Close #1
Set MyExcel = CreateObject("excel.application")
Set MyBook = MyExcel.Workbooks.Open(sXLSPath)
Set MySheet = MyExcel.ActiveSheet
MySheet.Range("A1:O1").Select
With MyExcel.Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
MySheet.Columns("A:C").NumberFormat = "0_ "
MySheet.Columns(1).ColumnWidth = 5
MySheet.Columns(2).ColumnWidth = 10
MySheet.Columns(3).ColumnWidth = 10
MySheet.Columns(4).ColumnWidth = 10
MySheet.Columns(5).ColumnWidth = 10
MySheet.Columns(6).ColumnWidth = 10
MySheet.Columns(7).ColumnWidth = 10
MySheet.Columns(8).ColumnWidth = 10
MySheet.Columns(9).ColumnWidth = 10
MySheet.Cells(1, 1) = "proid"
MySheet.Cells(1, 2) = "product"
MySheet.Cells(1, 3) = "batchno"
MySheet.Cells(1, 4) = "seqno"
If rs.EOF = True Then
rs.Close: Set rs = Nothing
Screen.MousePointer = 0
Exit Sub
End If
Do While rs.EOF = False
lRow = lRow + 1
MySheet.Cells(lRow + 1, 1) = rs.Fields("seqno")
MySheet.Cells(lRow + 1, 2) = rs.Fields("weight")
MySheet.Cells(lRow + 1, 3) = rs.Fields("unitprc")
MySheet.Cells(lRow + 1, 4) = rs.Fields("account")
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
MyExcel.DisplayAlerts = False
MyBook.SaveAs FileName:=appdisk & "maindata.xls", FileFormat:=xlNormal, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
MyBook.Application.Quit
MyExcel.Application.Quit
Set MySheet = Nothing
Set MyBook = Nothing
Set MyExcel = Nothing
Screen.MousePointer = 0
MsgBox "Successful Established Excell File Maindata.xls", vbOKOnly, "Bawang Electronic Price Scale"
End Sub