Set CN = CreateObject("ADODB.Connection") '?VBA读取数据库表写法 Set rs = CreateObject("ADODB.RecordSet") '?????????????????????????????????? Dim strCn As String, strSQL As String '??????????????????? '????????????????????? strCn = "Provider=MSDASQL;Driver={MySQL ODBC 5.2 Unicode Driver};Server=00.00.00.00;DB=xxx;UID=xxx;PWD=123123;OPTION=3;" Dim i, j, m, n As Integer, sht_single As Worksheet, sht_diff As Worksheet 'i,j???????????sht ?excel????????????????????????? i = 1 Set sht_single = ThisWorkbook.Worksheets("?????迹") Set sht_diff = ThisWorkbook.Worksheets("???迹") strSQL = "select * from impedance_eq where gulpn = '" & gulpn & "' AND ic_area='Rigid area' and (original_space='' or original_space='NA')" '????SQL??? CN.Open strCn '?????? rs.Open strSQL, CN '?????????е????? Do While Not rs.EOF sht_single.Cells(Single_End_Rigid_Area_Start_R + i, 10).Value = rs.Fields(3).Value '????????4??ohm?????