本帖最后由 spikedingo 于 2018-11-6 08:37 编辑
#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=C:\WINDOWS\System32\SHELL32.dll|-145
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include
#include
Opt('MouseCoordMode', 2)
AutoItSetOption("SendKeyDelay", 100)
; 链接到已打开的excel工作表
Local $excel = _ExcelBookAttach("444.xlsx" ,"FileName")
; 弹框请求起始循环的行数
$i = InputBox("准备", "请输入起始行数")
; Dim $i = 102
; While语句,当病历号栏有值时,就继续操作,否则退出循环
While _ExcelReadCell($excel,"b"&$i) <> ""
; If语句,读取到完成状态栏(E)数值非1时,继续操作,1代表已完成,可以跳过
if _ExcelReadCell($excel,"e"&$i) <> 1 Then
; 读取病历号