如何用js来修改已有的excel文件

下面的方法举例说明了在HTML页面里如何调用本机的应用程序MS-Excel，并把它置为编辑状态：<HTML>
<script language=Jscript>
var xlApp, xlSheet;  
xlApp = new ActiveXObject("Excel.Application");
xlApp.Visible = true;  
xlApp.Workbooks.Add(); 
xlApp.Workbooks.Open("C:\\book2.xls");
</script>
</HTML>

解决方案 »

  1.   

    Jscript我不懂……javascript版的有吗？
      

  2.   

    孟子能继续吗？至于编辑状态了，但是如何修改呢或者你干脆教我如何使用ActiveXObject("Excel.Application")，有哪些方法和属性？？？哪里有教程或者相关例子？
      

  3.   

    <script language=vbscript>
    FileName="c:\newbook.xls" Set xlsApp=CreateObject("Excel.Application") xlsApp.WorkBooks.Add Set xlsWBook=xlsApp.ActiveWorkBook Set xlsWSheet=xlsWBook.WorkSheets(1) xlsWSheet.Activatefor i=0 to 10 xlsWSheet.Cells(1,i+1).value=i
    xlsWSheet.Cells(1,i+1).font.Bold=True 
    xlsWSheet.Cells(1,i+1).font.Color = RGB(255, 0, 0)
    xlsWSheet.Cells(1,i+1).Borders(1).Color = RGB(0, 255, 0)
    next xlsWBook.Close True,FileNamexlsApp.Quit Set xlsWSheet=nothing Set xlsWBook=nothing Set xlsApp=nothing MsgBox FileName & "保存成功"
    </script>
      

  4.   

    秋水的代码正常通过我先仔细研究一下为什么你不用js呢，难道只能用vbs实现吗
      

  5.   

    秋水大虾能否用php实现？如果能的话，我另外开一帖请你
      

  6.   

    Php是支持com的，应该没有问题。
      

  7.   

    楼上的，干什么，到处宣传你那破玩艺秋水，你收到我的短信息吗？我知道你用php也可以搞定的。
    不是人怎么没进来领分呀？谢谢你的帮助文档
      

  8.   

    你是要修改服务器上面的excel还是客户端机子上面的excel啊？
      

  9.   

    第一种<? $file_name="d:\\test.xls";
    if (file_exists($file_name)) {unlink($file_name);} $ex = new COM("Excel.sheet") or Die ("Did not connect");

    $wkb = $ex->Application->ActiveWorkbook or Die ("Did not open workbook"); 
    $ex->Application->Visible = 1;

    for ($i=1;$i<20;$i++) {
    $cell = $ex->ActiveSheet->Cells(1,$i) ;
    $cell->value = $i;
    }

    $wkb->SaveAs($file_name);
    die("ok");
    ?>
      

  10.   

    第二种（均测试过了）<? $file_name="d:\\test.xls";
    if (file_exists($file_name)) {unlink($file_name);} $exapp = new COM("Excel.application") or Die ("Did not connect");
    $wkb=$exapp->Workbooks->add();
    $sheets = $wkb->Worksheets(1); for ($i=1;$i<20;$i++) {
    $cell = $sheets->Cells(1,$i) ;
    $cell->value = $i;
    } $wkb->SaveAs($file_name);
    $exapp->quit();
    die("ok");
    ?>
      

  11.   

    秋水，你这都是新建保存。这些php.net上面都有实例，我也知道。关键是打开一个已经存在的excel并修改保存，这个就不知道用什么方法了^_)^继续帮忙吧
      

  12.   

    VB程序，本地通过Private Sub Form_Load()
    Dim exapp As New Excel.Application
    Set wkb = exapp.Workbooks.Open("d:\test.xls")
    Set shs = wkb.Worksheets(1)
            For i = 1 To 20
                shs.Cells(1, i) = shs.Cells(1, i) + 1
            Next
    wkb.Save
    exapp.Quit
    End Sub
      

  13.   

    我用上面vb的方法用在php上面，却怎么也用不成功
    ^(_)^