编写了downexcl.htm，通过浏览器可正常下载excel文件，打包APP后，下载的文件是downexcl.htm，求解，谢谢？....
Dim dt As DataTable = cmd.ExecuteReader
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
Dim td As Date= Date.Today
Dim fn As String = td & "工作单.xls"
e.WriteBook(book,fn ,False)
加好友 
发短信
Post By：2021/3/20 23:10:00 [显示全部帖子]
