excel可以打开一种csv的文本文件。至于csv文件的格式,你可以去google里查一下,我好久前用过,也是一个导出的功能。很简单。

解决方案 »

  1.   

    <?
    $workbook = "C:Program Files\Microsoft office\Office\Samples\SOLVSAMP.XLS"; 
    $sheet = "Quick Tour"; #实例化一个组件的对象 
    $ex = new COM("Excel.sheet") or Die ("Did not connect"); #取程序名称和版本 
    print "Application name:
    " ; 
    print "Loaded version: 
    "; #打开工作本使我们可使用它 
    $wkb = $ex->application->Workbooks->Open($workbook) or Die ("Did not open"); #预保存原来的工作本,创建一个工作本的复本 
    $ex->Application->ActiveWorkbook->SaveAs("Ourtest"); 
    #$ex->Application->Visible = 1; #本句去注释让Excel可见 # 读写一个单元格在一个新的工作表中 
    # 我们可以读到这个单元格 E11 (Advertising in the 4th. Quarter) 
    $sheets = $wkb->Worksheets($sheet); #Select the sheet 
    $sheets->activate; #Activate it 
    $cell = $sheets->Cells(11,5) ; #Select the cell (Row Column number) 
    $cell->activate; #Activate the cell 
    print "Old Value = 
    "; #Print the value of the cell:10000 
    $cell->value = 15000; #Change it to 15000 
    print "New value = 
    ";#Print the new value=15000 #最后,用新值重新计算这个单元格 
    $sheets->Calculate; 
    #必须的如果要计算,手动则是可选的 
    #可看到效果总价值(E13单元格) 
    $cell = $sheets->Cells(13,5) ; #Select the cell (Row Column number) 
    $number = Number_format($cell->value); 
    print "New Total cost =$$number - was ,732 before.
    "; 
    #根据计算公式,广告影响了公司的开销,这里将显示 ,809 #使用Excel内建的函数 
    # PMT(percent/12 months,Number of payments,Loan amount) 
    $pay = $ex->application->pmt(0.08/12,10,10000); 
    $pay = sprintf("%.2f",$pay); 
    print "Monthly payment for ,000 loan @8% interest /10 months: $ $pay
    "; #Should print monthly payment = $ -1,037.03 #可选,保存 
    $ex->Application->ActiveWorkbook->SaveAs("Ourtest"); 
    #关闭,不提问 
    $ex->application->ActiveWorkbook->Close("False"); 
    unset ($ex); ?> 
    http://msdn.microsoft.com/library/officedev/off2000/xltocobjectmodelapplication.htm