?雨辰 先得在ACCESS创建数据表，其字段名和字段标题可在建立数据表时确定，然后导入外部EXCEL表数据，可在导入程序中对EXCEL表进行规范化操作，然后让其进入ACCESS中的数据表
给你一段ACCESS中操作EXCEL的示例代码参考
'导入藏品文件数据
Private Sub Command9_Click()
On Error GoTo Err_Command9_Click
Dim xlApp As New Excel.Application '申明Excel应用程序
Dim xlBook As Excel.Workbook '申明Excel工作簿对象
Dim Rows0 As Long
Dim strTemp As String
If (Len(Nz(Me.filepath)) = 0) Then
MsgBox "请选择或输入正确的藏品数据文件名！", 16, "操作错误"
Exit Sub
End If
If (Not FileExists(Me.filepath)) Then
MsgBox "请选择正确的藏品数据文件名！", 16, "操作错误"
Exit Sub
End If
strTemp = CurrentProject.Path & "\temp.xls"
FileCopy Me.filepath, strTemp '生成临时文件
DoCmd.Hourglass True '设置鼠标指针为沙漏形状
Set xlBook = xlApp.Workbooks.Open(strTemp) '指定要操作的Excel文件
xlApp.Visible = False '设置EXCEL为不可见
xlBook.Sheets(1).Range("A1").Select '选择激活第一工作表第一单元格
Rows0 = xlApp.ActiveCell.CurrentRegion.Rows.Count - 1 '当前应用活动单元格所在区域总行数
'xlBook.Sheets(1).Rows(Rows0 & ":" & Rows0).Delete '删除最后一行
'xlBook.Sheets(1).Rows("1:1").Delete '删除第一行
'xlBook.Save '保存数据
xlApp.Quit '退出EXCEL
DoCmd.Hourglass False '恢复鼠标指针
Set xlApp = Nothing '清除内存变量
Set xlBook = Nothing
'DoCmd.TransferSpreadsheet acImport, 8, "藏品信息", strTemp, True
DoCmd.TransferSpreadsheet acImport, 8, "藏品信息", strTemp, True, "A2:AG" & Rows0
MsgBox "藏品数据导入完毕！", vbOKOnly + vbInformation, "操作提示"
Me.Combo21 = ""
Call Command23_Click
Exit Sub
Exit_Command9_Click:
If Not xlApp Is Nothing Then xlApp.Quit '退出EXCEL
DoCmd.Hourglass False '恢复鼠标指针
Set xlApp = Nothing '清除内存变量
Set xlBook = Nothing
Exit Sub
Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click
End Sub
