Sub 拉取电阻信息()
t = Timer  ''记录开始运行的时间,方便后续输出运行的时长

Application.ScreenUpdating = False  ''关闭屏幕更新,加速运行
Application.Calculation = xlCalculationManual  ''设置成手动计算,加速运行

''从数据库中拉取电阻档位的SQL语句
Sql = "SELECT order_no,resistivity, "
Sql = Sql + "case when resistivity LIKE '>%' then SUBSTRING(resistivity,5,7) "
Sql = Sql + "    when resistivity LIKE '%~%' then SUBSTRING_INDEX(resistivity,'~',1) "
Sql = Sql + "    when resistivity LIKE '%-%' then SUBSTRING_INDEX(resistivity,'-',1) "
Sql = Sql + "    when resistivity LIKE '<%' then SUBSTRING(resistivity,5,7) "
Sql = Sql + "    when resistivity LIKE '>%' then SUBSTRING(resistivity,2,7) "
Sql = Sql + "    when resistivity LIKE '<%' then SUBSTRING(resistivity,2,7) "
Sql = Sql + "    when resistivity = '未分档' OR resistivity IS null then '未分档' end "
Sql = Sql + " from mes_sync.mes_disposable_qc_task "
Sql = Sql + " Union "
Sql = Sql + " SELECT order_no,resistivity, "
Sql = Sql + " case when resistivity LIKE '&gt;%' then SUBSTRING(resistivity,5,7) "
Sql = Sql + "     when resistivity LIKE '%~%' then SUBSTRING_INDEX(resistivity,'~',1) "
Sql = Sql + "     when resistivity LIKE '%-%' then SUBSTRING_INDEX(resistivity,'-',1) "
Sql = Sql + "     when resistivity LIKE '&lt;%' then SUBSTRING(resistivity,5,7) "
Sql = Sql + "     when resistivity LIKE '>%' then SUBSTRING(resistivity,2,7) "
Sql = Sql + "     when resistivity LIKE '<%' then SUBSTRING(resistivity,2,7) "
Sql = Sql + "     when resistivity = '未分档' OR resistivity IS null then '未分档' end "
Sql = Sql + "  from mes_sync.mes_recycle_material_storage; "

Call AutoRun '------获取数据库连接

Application.StatusBar = "正在拉取批次信息"
RES.Open Sql, conn  '-----执行strSql 获得结果集

Application.StatusBar = "正在复制批次信息到表格"
Sheets("电阻信息").Cells(2, 1).CopyFromRecordset RES  ''将RES结果集中的内容复制到Sheets("电阻信息")的A2单元格

RES.Close   '-------关闭结果集 必须要做的

Call closeConn  ''关闭链接,释放资源

尾行 = Cells(Rows.Count, "A").End(xlUp).row   ''获取尾行行数

Application.StatusBar = "正在判断高低阻信息"
''下面是判断高低阻的内容,已在sql语句中实现相应功能

For i = 2 To 尾行
    电阻 = Sheets("电阻信息").Cells(i, 3).Value
    On Error Resume Next
    
    If 电阻 = "未分档" Then
        Sheets("电阻信息").Cells(i, 4).Value = "低阻"
    Else
    If 电阻 >= 1.9 Then
        Sheets("电阻信息").Cells(i, 4).Value = "高阻"
    Else: Sheets("电阻信息").Cells(i, 4).Value = "低阻"
    End If
    End If
Next

Application.ScreenUpdating = True ''运行结束,打开屏幕更新
Application.Calculation = xlCalculationAutomatic  ''运行结束,打开自动计算

Application.StatusBar = "拉取完成"

MsgBox ("本次更新共花费:" & Format(Timer - t, "0.00") & "s!")   ''弹窗提示运行时间
Application.StatusBar = False   ''恢复状态栏初始状态

End Sub