Dim filepath
Event Form1.Button3.Click
filepath = Plugin.File.SelectFile() '打开文件选择对话框
If Right(filepath,4) = ".xls" Then '检查是不是选中 .xls 可执行文件
Form1.游戏路径.Text = filepath
Else
If filepath <> "" Then
MsgBox "请选择“.xls”可执行程序文件!"
End If
End If
End Event
Event Form1.游戏路径.Change
End Event
Dim hang
hang=InputBox("请输入开始学生的行号", "学生行号", "2")
Delay 500
Rem 填信息
Call Plugin.Office.OpenXls(filepath)
学生账号 = Plugin.Office.ReadXls(3, hang, 3)
为什么总是没有用呢?为什么总是显示object variable or with bloce variable not set 呢