如何使用JQuery在客户端将表导出到Excel文件？

发布于 2024-11-01 17:53:24 字数 305 浏览 6 评论 0原文

我在我的 Web 应用程序中使用 java、jQuery 和 jsp。我想了解如何使用客户端的 JQuery 将表中的值导入 Excel 文件。即使在 stackoverflow.com 上也有很多示例和建议，但我看到了服务器端的解决方案，例如 Apache POI 或类似的东西。

有一个数据插件： http://www.datatables.net/ 该插件我认为可以在客户端将表数据导出到 Excel 文件中，所以我正在寻找类似的解决方案。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

锦上情书 2024-11-08 17:53:24

为什么不轻松导出 CSV 和 MS Excel 或任何可以解析 .csv 文件的电子表格应用程序？

这是一个名为 HTML Table to CSV 的 jQuery 插件的链接

，这是该插件的示例：< a href="http://www.kunalbabre.com/projects/table2CSV.php" rel="nofollow">http://www.kunalbabre.com/projects/table2CSV.php

回复收藏 0 原文

如梦 2024-11-08 17:53:24

使用此 VBScript 进行客户端导出。请记住，您需要在浏览器设置中允许运行 activex 控件。

<script language="vbscript">

Function Export(objToExport) 

    ON ERROR RESUME NEXT 
    DIM sHTML, oExcel, fso, filePath 

    sHTML = document.all(objToExport).outerHTML 

    SET fso = CreateObject("Scripting.FileSystemObject") 
    filePath = fso.GetSpecialFolder(2) & "\MyExportedExcel.xls" 
    fso.CreateTextFile(filePath).Write(sHTML) 

    DIM i 
    SET i = 0 

    DO WHILE err.number > 0 
        err.Clear() 
        filePath = fso.GetSpecialFolder(2) & "\MyExportedExcel" & i & ".xls" 

        i = i + 1 
    LOOP 

    SET oExcel = CreateObject("Excel.Application") 
    IF err.number>0 OR oExcel = NULL THEN 
        msgbox("You need to have Excel Installed and Active-X Components Enabled on your System.") 
        Exit Function 
    END IF 

    oExcel.Workbooks.open(filePath) 
    oExcel.Workbooks(1).WorkSheets(1).Name = "My Excel Data" 
    oExcel.Visible = true 
    Set fso = Nothing 

End Function

Use this VBScript for the client side export. Remember that you need to allow to run activex controls in the browser settings.

<script language="vbscript">

Function Export(objToExport) 

    ON ERROR RESUME NEXT 
    DIM sHTML, oExcel, fso, filePath 

    sHTML = document.all(objToExport).outerHTML 

    SET fso = CreateObject("Scripting.FileSystemObject") 
    filePath = fso.GetSpecialFolder(2) & "\MyExportedExcel.xls" 
    fso.CreateTextFile(filePath).Write(sHTML) 

    DIM i 
    SET i = 0 

    DO WHILE err.number > 0 
        err.Clear() 
        filePath = fso.GetSpecialFolder(2) & "\MyExportedExcel" & i & ".xls" 

        i = i + 1 
    LOOP 

    SET oExcel = CreateObject("Excel.Application") 
    IF err.number>0 OR oExcel = NULL THEN 
        msgbox("You need to have Excel Installed and Active-X Components Enabled on your System.") 
        Exit Function 
    END IF 

    oExcel.Workbooks.open(filePath) 
    oExcel.Workbooks(1).WorkSheets(1).Name = "My Excel Data" 
    oExcel.Visible = true 
    Set fso = Nothing 

End Function

回复收藏 0 原文

~没有更多了~