Dim 内容()
Call Plugin.Office.OpenXls(读取Excel路径)
For i = h To 99999
Text = Plugin.Office.ReadXls(1, i, y)
Shul = Plugin.Office.ReadXls(1, i, s)
TracePrint Text
TracePrint Shul
If Text = "" Then
Exit For
Else
ReDim Preserve 内容(i)
内容(i) = Text
End If
Next
Call Plugin.Office.CloseXls()
数量 = UBound(内容)
TracePrint "数量: " & 数量
Delay 10
Call Plugin.Office.OpenXls(写入Excel路径)
For i = 1 To 数量
Tex = Split(内容(i), ",")
Call Plugin.Office.WriteXls(1, i, 1, Tex(1))
TracePrint Tex(1)
TracePrint Shul
Next
Call Plugin.Office.CloseXls()
Sub OnScriptExit()
MessageBox "成功读取并保存" & 数量 & "个数据"
End Sub
这段代码里 Shul 第一次循环有信息， 结束循环到下一步输出的时候为空。 大佬教一下如何改一下，才能输出获取的内容