string ls_path,ls_name,ls_filter
integer li_ret
long ll_rows,ll_columns
string a[3000,30] //导入数据行数最大1000行,列数最大100列
ls_filter = "Excel文件(*.xls),*.xls"
li_ret = GetFileOpenName("请选择后缀名为XLS的文件",ls_path,ls_name,"xls",ls_filter)
if li_ret <> 1 then return
//dw_list.setfocus()
//建立OLE对象
OLEObject ExcelServer
ExcelServer = create OLEObject
integer li_excel
li_excel = ExcelServer.ConnectToNewObject("excel.application")
if li_excel < 0 then
MessageBox("错误提示","连接excel失败,检查你的系统是否安装了office!")
return
end if
ExcelServer.Workbooks.Open(ls_path,0,False)
ExcelServer.Application.DisplayAlerts = False
ll_rows = ExcelServer.ActiveSheet.UsedRange.Rows.Count //取得总行数
ll_columns= ExcelServer.ActiveSheet.UsedRange.columns.Count //取得总行数
dw_list.reset()
if ll_rows = 0 then
messagebox("提示!","没有Excel数据可导,请检查Excel表格后重来!")
ExcelServer.Workbooks.close()
ExcelServer.DisConnectObject()
Destroy ExcelServer