程序代码：

IF USED(导"入表")            &&打开清空导入表
  SELECT 导入表
     USE 导入表
     ZAP 
ELSE
     USE 导入表 IN 0 
     SELECT 导入表 
     ZAP
ENDIF  
oexcel=createobject([excel.application])                                           &&创建一个对象
WITH oexcel
    FOR  Lni_wj=1 TO ADIR(axls,"*.xls")                                            &&通过ADRr函将当前文件夹下所有xls文件名导入axls数组  
        bookexcel=oexcel.workbooks.open(SYS(5)+SYS(2003)+"\"+ax1s[Ini_wj,1])       &&逐个打开将当前文件夹下所有xls文件
        o_sheetname=oexcel.application.Activesheet.name                             &&获取当前工资表名
        o_usedrang=bookexcel.worksheets(o_sheetname).usedrange                     &&返回当前工作表中可使用的区域
        o_rows=o_usedrang.Rows.Count                                               &&返回行汇
        o_cols=o_usedrang.columns.Count                                            &&返回列汇总数
        LOCAL axy[o_rows*o_cols]   
      FOR lni_h=1 T0 o_rows-1
          axy[(lin_h-1)*6+1]=oexcel.cells(lni_h+1,1).Text                          &&lb    第lni_h行第一列 共六列
          axy[(lin_h-1)*6+2]=oexcel.cells(lni_h+1,2).Text                          &&bh    第lni_h行第二列
          axy[(lin_h-1)*6+3]=oexcel.cells(lni_h+1,3).Text                          &&部门  第lni_h行第三列
          axy[(lin_h-1)*6+4]=oexcel.cells(lni_h+1,4).Text                          &&姓名  第lni_h行第四列
          axy[(lin_h-1)*6+5]=oexcel.cells(lni_h+1,5).Text                          &&SFZ   第lni_h行第五列
          axy[(lin_h-1)*6+6]=oexcel.cells(lni_h+1,6).VALUE                         &&金额  第lni_h行第六列   
          APPEND BLANK
          REPLACE Lb WITH  axy[(lin_h-1)*6+1],bh WITH axy[(lin_h-1)*6+2],部门 WITH axy[(lin_h-1)*6+3],;
                  姓名 WITH axy[(lin_h-1)*6+4],sfz WITH axy[(lin_h-1)*6+5],金额 WITH axy[(lin_h-1)*6+6]
       ENDFOR
     ENDFOR
     .QUIT
ENDWITH
RELEASE oexcel
BROWSE 
USE IN 导入表

[此贴子已经被作者于2018-2-5 10:15编辑过]