主题：移动端有没有saveEXCEL的方法

我就是在本地测试的。电脑浏览器里面、手机（局域网）都可以下载文件。

单独做一个项目，单独测试下面代码

Select Case e.Path
    Case "test.htm", ""
        msgbox(123)
        Dim dt = CurrentTable.DataTable
        Dim nms() As String = {"第一列", "第二列"}
        Dim Book As New XLS.Book
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        For c As Integer = 0 To nms.Length - 1
            Sheet(0, c).Value = nms(c)
        Next
        For r As Integer = 0 To dt.DataRows.Count - 1
            For c As Integer = 0 To nms.Length - 1
                Sheet(r + 1, c).Value = dt.DataRows(r)(nms(c))
            Next
        Next
        Book.PreBuild = False '非报表模请将PreBuild 属性设置为False
        e.WriteBook(Book, "现场咨询.xls", False)
End Select

参考测试代码

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddButtonGroup("form1","btg1",True)  '垂直排列
            .Add("btn1", "按钮").Attribute = "onclick=""document.getElementById('ifile').src='/download.htm'; alert(3)"""
        End With
        wb.InsertHTML("<iframe id='ifile' style='display:none'></iframe>")
        e.WriteString(wb.Build) '生成网页
    Case "download.htm"
        Dim dt = CurrentTable.DataTable
        Dim nms() As String = {"第一列", "第二列"}
        Dim Book As New XLS.Book
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        For c As Integer = 0 To nms.Length - 1
            Sheet(0, c).Value = nms(c)
        Next
        For r As Integer = 0 To dt.DataRows.Count - 1
            For c As Integer = 0 To nms.Length - 1
                Sheet(r + 1, c).Value = dt.DataRows(r)(nms(c))
            Next
        Next
        Book.PreBuild = False '非报表模请将PreBuild 属性设置为False
        e.WriteBook(Book, "现场咨询.xls", False)
End Select

请测试17楼代码。

.Add("btn1", "按钮").Attribute = "onclick=""document.getElementById('ifile').src='/download.htm?key=abc';"""