简化代码： Select Case i Case 1 cmdCommandText = insert into ReportSecondBodyID1ValueRowCol values cmdParametersAppend cmdCreateParametervalue0 adVarChar adParamInput 255 1

For j = 1 To 15 Select Case j Case 1 To 5 cmd.CommandText = "insert into ReportSecondBody(ID1,[Value],Row,Col) values (?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, j) cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, Range("B" & (8 + j - 1)).Value) cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, 0) cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, j - 1) Case 6 To 10 cmd.CommandText = "insert into ReportSecondBody(ID1,[Value],Row,Col) values (?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, j) cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, Range("C" & (j - 5 + 7)).Value) cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, 1) cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, j - 6) Case 11 To 15 cmd.CommandText = "insert into ReportSecondBody(ID1,[Value],Row,Col) values (?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, j) cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, Range("D" & (j - 10 + 8)).Value) cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, 2) cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, j - 11) End Select Next