按键精灵循环读取Excel问题

Question

按键精灵循环读取Excel问题

读取Excel路径 = Form1.BrowseBox1.Path '设置路径
写入Excel路径 = Form1.BrowseBox2.Path '设置路径
y = Form1.InputBox1.Text + 0
h = Form1.InputBox2.Text + 0
s = Form1.InputBox3.Text + 0
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 第一次循环有信息， 结束循环到下一步输出的时候为空。 请教一下如何改一下，才能让Shul输出获取的内容

Answer 1

在第一次读取 Shul 的时候将其保存在一个变量中，然后在第二个循环中使用这个变量输出
你试一下这段行不行

Dim 内容(), shulArr()
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
ReDim Preserve shulArr(i)
shulArr(i) = Shul
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 shulArr(i)
Next
Call Plugin.Office.CloseXls()