Question

按键精灵界面输入框问题请教谢谢

Call Plugin.Office.OpenXls(Form1.BrowseBox1.Path)
页数 = Form1.InputBox1.Text
行数 = Form1.InputBox2.Text
列数 = Form1.InputBox3.Text
Call Plugin.Office.WriteXls(页数, 行数, 列数, "内容")
输出 = Plugin.Office.ReadXls(页数, 行数, 列数)
MessageBox 输出
这段代码输入框里的变量怎么传送到EXCEL里。

Answer 1

While 1
Rem kaishi
Randomize
a = Int((Rnd * 4)+1)
If a=b then
Goto kaishi
Else
Goto shuru
End If
Rem shuru
Select case a
Case 1
Call 一()
Case 2
Call 二()
Case 3
Call 三()
Case 4
Call 四()
case Else
End Select
Delay 500
b=a
Wend
Sub 一()
SayString ;20;
End Sub
Sub 二()
SayString ;25;
End Sub
Sub 三()
SayString ;30;
End Sub
Sub 四()
SayString ;35;
End Sub
楼主，接着。