excel文件的导入

nt li_row,li_rowcount int li_xlsrow,li_xlsrowcount int li_Connect,li_ret string ls_path,ls_filename string ls_class,ls_id,ls_name string ls_xblimit,ls_lxlimit string ls_pym oleobject ExcelServer li_ret = GetFileopenName(‘请选择EXCEL文件’,ls_path,ls_filename,”XLS”,”EXCEL (*.XLS;*.XLSX),*.XLS;*.XLSX”) if li_ret <> 1 then return -1 f_prompt(“连接EXCEL.APPLICATION应用”) ExcelServer = Create OLEObject /*连接EXCEL服务*/ li_Connect = ExcelServer.ConnectToNewObject( “excel.application” ) If li_Connect < 0 Then messagebox(“提示!”,”连接EXCEL.APPLICATION应用失败!”) Return -1 End If f_prompt(“打开Excel文档”) ExcelServer.Workbooks.Open(ls_path) /*关闭该文件时是否需要向用户提出警告。*/ ExcelServer.Application.DisplayAlerts = False ExcelServer.activeworkbook.worksheets(2).select() li_xlsrowcount = ExcelServer.ActiveSheet.UsedRange.Rows.Count if li_xlsrowcount <= 0 then return -1 for li_xlsrow = 1 to li_xlsrowcount yield() f_prompt(“导入” +ls_id +”-”+ls_name) ls_class= string(ExcelServer.ActiveSheet.Cells(li_xlsrow,1).value) ls_id = string(ExcelServer.ActiveSheet.Cells(li_xlsrow,2).value) ls_name = string(ExcelServer.ActiveSheet.Cells(li_xlsrow,3).value) ls_xblimit = string(ExcelServer.ActiveSheet.Cells(li_xlsrow,4).value) ls_lxlimit = string(ExcelServer.ActiveSheet.Cells(li_xlsrow,5).value) ls_pym = f_getpy(ls_name) li_row = dw_import.insertrow(0) dw_import.setitem(li_row, ‘class’,ls_class) dw_import.setitem(li_row, ‘id’,ls_id) dw_import.setitem(li_row, ‘name’,ls_name) dw_import.setitem(li_row, ‘xblimit’,ls_xblimit) dw_import.setitem(li_row, ‘lxlimit’,ls_lxlimit) dw_import.setitem(li_row, ‘pym’,ls_pym) next f_prompt(“关闭Excel文档”) ExcelServer.activeworkbook.Close() ExcelServer.quit() ExcelServer.DisconnectObject() destroy ExcelServer f_prompt(“”) messagebox(“提示”,”导入完成!”) return 1