pb从EXCEL的数据导入数据窗口

//导入EXCEL，内容存在IDS_EXCEL , D_DW_IMPORT字段名从F001 - F108
//0 没有导入, 返回导入的行数
//al_start, 从哪一行开始导，通常从第2行

STRING LS_PATH,LS_FILE,ls_file_tmp
oleobject ole_1
int li_rtn
long ll_count

if GetFileOpenName("查找EXCEL文件",ls_path,ls_file,"XLSX","*.XLSX,*.XLSX,*.XLS,*.XLS,*.*,*")=0 THEN
 RETURN 0
END IF

//
ole_1=create oleobject
li_rtn=ole_1.connecttoNEWobject("Excel.Application")
if li_rtn<>0 then
 messagebox("提示","不能连接EXCEL")
 return 0
end if

ole_1.application.displayalerts=false //关闭警告消息
ole_1.workbooks.open(ls_path)

ls_file_tmp=sqlca.of_gettemppath()+trim(sqlca.is_username)+".csv"

//ls_file_tmp="c:\1111111111.csv"

ole_1.ACTIVEworkbook.saveas(ls_file_tmp,6)  //3txt, 6csv

OLE_1.QUIT()
ole_1.disconnectobject()
destroy ole_1