优化代码：Private Sub CommandButton66_Click Dim val_TestNo As Integer val_ElasticBeginDotPos As Integer val_ElasticEndDotPos As Integer val_UpYieldDotPos As Integer val_DownYieldDotPos As Integer val_Ma

Private Sub CommandButton66_Click() ' 设置数据库连接 Dim conn As Object Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\压力试验机\新vba" & destinationDatabase

' 设置SQL语句
Dim strSQL_TestNoParam As String

' 循环更新数据
For i = 0 To 2
    val_TestNo = Range("H7").Value + i
    val_ElasticBeginDotPos = Sheets("参考数据400").Range("X" & i + 1).Value
    val_ElasticEndDotPos = Sheets("参考数据400").Range("Y" & i + 1).Value
    val_UpYieldDotPos = Sheets("参考数据400").Range("Z" & i + 1).Value
    val_DownYieldDotPos = Sheets("参考数据400").Range("AA" & i + 1).Value
    val_MaxDotPos = Sheets("参考数据400").Range("AB" & i + 1).Value
    
    strSQL_TestNoParam = "UPDATE TestTasks SET TestNo=" & val_TestNo & ", ElasticBeginDotPos=" & val_ElasticBeginDotPos & ", ElasticEndDotPos=" & val_ElasticEndDotPos & ", UpYieldDotPos=" & val_UpYieldDotPos & ", DownYieldDotPos=" & val_DownYieldDotPos & ", MaxDotPos=" & val_MaxDotPos & ", SaveFileName='" & destinationDatabase & "' WHERE ID=5+i;"
    
    ' 执行SQL语句
    conn.Execute strSQL_TestNoParam
Next i

' 关闭数据库连接
conn.Close

End Su