vfp操作Excel(读各工作簿标题及相关字段名)

local lcFileName,lnSheetCount,lcCellValue,lcString

lcString = ''

lcFileName = getfile('xls','Excel工作簿','导入')

lcString = lcString + chr[13] + chr[10] ;

              + '======================================================' + chr[13] + chr[10]  ;

             + '　　　　' + juststem(lcFileName) + chr[13] + chr[10]  ;

             + '======================================================' + chr[13] + chr[10]  ;

             + chr[13] + chr[10]

oExcel=CreateObject("Excel.Application")

oExcel.WorkBooks.Open('&lcFileName')

lnSheetCount = oExcel.WorkSheets.count

for x = 1 to lnSheetCount

     oExcel.WorkSheets(x).Activate

     lcString = lcString + chr[13] + chr[10] ;

                   + '------------------------------------------------------' + chr[13] + chr[10]  ;

                  + oExcel.WorkSheets(x).name+ chr[13] + chr[10] ;

                  + '------------------------------------------------------' + chr[13] + chr[10]  ;

                  + chr[13] + chr[10]

     for y = 1 to 256

         lcCellValue = oExcel.ActiveSheet.cells(1,y).value

         if vartype(lcCellValue) = 'C'

              lcString = lcString + lcCellValue + chr[13] + chr[10]

         else

              exit

         endif

     endfor

endfor

oExcel.quit

release oExcel

_cliptext = lcString