这个是导入按钮的代码
Private Sub Command1_Click()
Dim xlApp As Object, xlBook As Object, xlSheet As Object
Dim rst As DAO.Recordset
Dim i As Long
Dim strTestDate As String, strFileName As String
strFileName = "D:\2.xlsx" '修改为你自己的路径
Set rst = CurrentDb.TableDefs("list").OpenRecordset
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open(strFileName)
Set xlSheet = xlBook.Sheets("Sheet1")
strTestDate = Left(Replace(xlSheet.Cells(6, 1), "测试时间: ", ""), 10)
i = 8
Do Until IsEmpty(xlSheet.Cells(i, 1))
With rst
.AddNew
!拼板 = xlSheet.Cells(i, 1)
!元件 = xlSheet.Cells(i, 2)
'下面这一行有可能出现错误,因为你的表中把“检测结果”定义为数字类型,但是Excel中有“OK”这种不属于数字的内容
'建议你修改表中字段的数据类型
!检测结果 = xlSheet.Cells(i, 3)
'增加了判断“检测结果”数据类型的方法
'!检测结果 = IIf(IsNumeric(xlSheet.Cells(i, 3)), xlSheet.Cells(i, 3), 0)
rst("测量范围/材料备注") = xlSheet.Cells(i, 4) '最好把这个字段的名字改一下
!说明 = xlSheet.Cells(i, 5)
!标准值 = xlSheet.Cells(i, 6)
!料号及规格 = xlSheet.Cells(i, 7)
!测试序号 = xlSheet.Cells(i, 8)
!测试时间 = strTestDate
.Update
End With
i = i + 1
Loop
Me.list_子窗体.Requery
'Me.list_子窗体.Form.Recordset.MoveLast
xlBook.Close
rst.Close
Set rst = Nothing
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub