优化：Private Sub CommandButton2_ClickDim conn As ADODBConnectionDim strTime As Date strTime1 As Date strTime2 As Date strTime3 As DateDim d1 As Double d2 As Double d3 As Double d4 As Double d5 As Double

Private Sub CommandButton2_Click() Dim conn As ADODB.Connection Dim strTime As Date, strTime1 As Date, strTime2 As Date, strTime3 As Date Dim values(1 To 33) As Double Dim i As Integer

strTime = Range("A6").Value
strTime1 = Range("A7").Value
strTime2 = Range("A8").Value
strTime3 = Range("A9").Value

'将需要的数值存入数组
values(1) = Format(Range("C6").Value, "0.000")
values(2) = Format(Range("C7").Value, "0.000")
values(3) = Format(Range("C8").Value, "0.000")
values(4) = Format(Range("C9").Value, "0.000")
values(5) = Format(Range("B6").Value, "0.000")
values(6) = Format(Range("B7").Value, "0.000")
values(7) = Format(Range("B8").Value, "0.000")
values(8) = Format(Range("B9").Value, "0.000")
values(9) = Format(Range("F6").Value, "0.000")
values(10) = Format(Range("F7").Value, "0.000")
values(11) = Format(Range("F8").Value, "0.000")
values(12) = Format(Range("F9").Value, "0.000")
values(13) = Format(Range("D6").Value, "0.000")
values(14) = Format(Range("D7").Value, "0.000")
values(15) = Format(Range("D8").Value, "0.000")
values(16) = Format(Range("D9").Value, "0.000")
values(17) = Format(Range("G6").Value, "0.000")
values(18) = Format(Range("G7").Value, "0.000")
values(19) = Format(Range("G8").Value, "0.000")
values(20) = Format(Range("G9").Value, "0.000")
values(21) = Format(Range("E6").Value, "0.000")
values(22) = Format(Range("E7").Value, "0.000")
values(23) = Format(Range("E8").Value, "0.000")
values(24) = Format(Range("E9").Value, "0.000")
values(25) = Format(Range("I6").Value, "0.0000")
values(26) = Format(Range("I7").Value, "0.0000")
values(27) = Format(Range("I8").Value, "0.0000")
values(28) = Format(Range("I9").Value, "0.0000")
values(29) = Format(Range("H6").Value, "0.00000")
values(30) = Format(Range("H7").Value, "0.00000")
values(31) = Format(Range("H8").Value, "0.00000")
values(32) = Format(Range("H9").Value, "0.00000")
values(33) = Format(Range("N4").Value, "0.00000")

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\导热系数测定仪\drxs\ZWH.mdb"

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "insert into 测试报告(序号,试验编号,检验单位,产品名称,试件规格,试件面积,试件厚度,试件形式,状态调节,材料名称,检验依据,采样日期,采样时间,采样时间1,采样时间2,采样时间3,采样时间4,热流1,热流2,热流3,热流4,计量板温度1,计量板温度2,计量板温度3,计量板温度4,计量板边缘温度1,计量板边缘温度2,计量板边缘温度3,计量板