按键精灵循环语句提示第13行第1个字符,第23行第9个字符缺少符号...
发布网友
发布时间：3小时前
共2个回答
热心网友
时间：3小时前
b=1
a=1
Call Plugin.Office.OpenXls("C:\Documents and Settings\Administrator\桌面\自动排序\自动排序.xls")
Do
a=a+1
Text = Plugin.Office.ReadXls(2, a, 1)
//Do
b=b+1
word = Plugin.Office.ReadXls(3, b, 1)
While Tex=wor or b>T
Exit Do
Wend
If b>T Then
aaa = "缺抄"
Else
aaa = Plugin.Office.ReadXls(3, b, 2)
End If
Call Plugin.Office.WriteXls(1, 1, 1, Text)
Call Plugin.Office.WriteXls(1, 1, 2, aaa)
While a>T
Exit Do
Wend
Loop
Sub OnScriptExit()
Call Plugin.Office.CloseXls()
MessageBox "数据已排好"
End Sub
热心网友
时间：3小时前
UserVar T=500 "数据长度"
b=1
a=1
Call Plugin.Office.OpenXls("C:\Documents and Settings\Administrator\桌面\自动排序\自动排序.xls")
Do
a=a+1
Text = Plugin.Office.ReadXls(2, a, 1)
Do
b=b+1
word = Plugin.Office.ReadXls(3, b, 1)
Do While Tex=wor or b>T
Exit Do
Loop
If b>T Then
aaa = "缺抄"
Else
aaa = Plugin.Office.ReadXls(3, b, 2)
End If
Call Plugin.Office.WriteXls(1, 1, 1, Text)
Call Plugin.Office.WriteXls(1, 1, 2, aaa)
DO While a>T
Exit Do
Loop
Sub OnScriptExit()
Call Plugin.Office.CloseXls()
MessageBox "数据已排好"
End Sub
