if NOT FileExists ( ls_filename ) then
messagebox("错误","该文件不存在!")
return -1
end if
if right(trim(ls_filename)) <> "xls" then
messagebox("错误","不是Excel文件!")
return -1
end if
//先启动excel文件
long handle_1
handle_1 = OpenChannel("Excel", ls_filename)
//开始读取数据!
string ls_name
integer li_rtn
li_rtn = getremote("r1c1",ls_name,handle_1)//r1表示行1,c1表示列1
//将行1列1的值赋给变量ls_name
if li_rtn = 1 then//判断操作是否成功
messagebox("",ls_name)//成功
else
messagebox(ls_name,string(li_rtn))
end if
//---数据读取结束(这段内容可连续重复也可用循环语句读出数据到数组!)