//下拉框
索引 = Array(2,243,483,1233) //设置按键码
按键码 = 索引(Form1.ComboBox1.ListIndex) //得到按键码
Event Form1.Load //界面初始值设置
Form1.ComboBox1.List = "6:00|12:00|18:00|24:00"
Form1.ComboBox1.ListIndex = 0
End Event
//读取数据
Event Form1.Button1.Click
Call 打开excel()
Form1.Label1.Caption = Plugin.Office.ReadXls(1, 按键码, 1)//日期
Form1.Label2.Caption = Plugin.Office.ReadXls(1, 按键码, 12)//时间
Form1.Label3.Caption = Plugin.Office.ReadXls(1, 按键码, 20)//数量
Delay 100
Call 关闭excel()
End Event