PB中导入EXCEL数据

PB中导入EXCEL数据

string path,filename

integer value,result

value = GetFileOpenName("Select File",path,filename,"xls","xls Files (*.xls),*.xls,Text Files (*.TXT),*.TXT,DBF Files (*.DBF),*.DBF")

if value<>1 then return

if right(path,3)='xls' or right(path,3)='XLS' then 

        OLEObject ObjExcel

        ObjExcel = CREATE OLEObject

        result = ObjExcel.ConnectToNewObject( "excel.application")

        if result <> 0 then 

          messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!") 

          Return

 
        else

          ObjExcel.Workbooks.Open(path)  //ls_rj是文件的路径

          ObjExcel.ActiveSheet.Cells.Copy

          ObjExcel.Application.Visible = false