PB 11.5做的获取Excel的内容实例,主要代码: for lRow=1 to lColumnCount for i=1 to lCount sData = string(OLEobjectExcel.application.activeworkbook.worksheets(1).cells(i,lRow).value) sTemp += sData+"__" next next
PB11.5写的往Excel写操作Demo,主要代码: long ll_rc string sFilePath oleobject lo_excelapp lo_excelapp = create oleobject ll_rc = lo_excelapp.connecttonewobject("Excel.Application") if ll_rc 0 then destroy(lo_excelapp) return end if lo_excelapp.WorkBoo ks.Open(