修改代码：Dim conn As ObjectSet conn = CreateObjectADODBConnectionconnOpen Provider=MicrosoftACEOLEDB120;Data Source=E检测设备力学VBA测试 & destinationDatabaseDim cmd As ADODBCommandSet cmd = CreateObjectADODBComm

Dim conn As Object Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\力学\VBA测试" & destinationDatabase

Dim cmd As Object Set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = conn Dim SFName As String, TPName As String

TPName = Range("M4").Value SFName = Range("M5").Value

' 循环更新数据 Dim dTime As Date Dim i As Integer Dim Gaulen As Integer Dim area As Integer Dim testno As Integer, pt As String Dim strSQL As String Dim myBoolean As Boolean myBoolean = False For i = 8 To 13 area = Range("D" & i).Value * Range("E" & i).Value dTime = Range("H" & i).Value pt = Range("J7").Value & " " & dTime 'MsgBox area & " " & pt MsgBox Range("G" & i).Value Set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandText = "insert into TestNo(TestNo,PlayTime,TestPreceptName,SaveFileName,sampleShape,Area,GaugeLength,IsLogicDel) values (?,?,?,?,?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, Range("G" & i).Value) 'TestNo cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, pt) '时间 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, Range("M4").Value) '试验方案名 cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, Range("M5").Value) '文件名称 cmd.Parameters.Append cmd.CreateParameter("value4", adVarChar, adParamInput, 255, 1) cmd.Parameters.Append cmd.CreateParameter("value5", adVarChar, adParamInput, 255, area) '面积 cmd.Parameters.Append cmd.CreateParameter("value6", adVarChar, adParamInput, 255, Range("D" & i).Value) '长度 cmd.Parameters.Append cmd.CreateParameter("value7", adVarChar, adParamInput, 255, myBoolean) 'IsLogicDel cmd.Execute Next i

conn.Close ' 关闭数据库连接 Set conn = Nothing ' 清空对象

Exit Sub ' 正常结束 ErrorHandler: MsgBox Err.Description ' 显示错误信息 conn.Close ' 关闭数据库连接 Set conn = Nothing ' 清空对象 MsgBox "4、TsetNo更新完成