- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教:在手机上如何保存程序生产的Excel文件？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110835)
-- 发布时间：2017/12/10 22:01:00
-- 请教:在手机上如何保存程序生产的Excel文件？
请教:在手机上如何保存程序生产的Excel文件？
此主题相关图片如下：img_3256.png
生产Excel文件的代码如下：
Dim e As RequestEventArgs = args(0)
Dim oid As String
If e.GetValues.ContainsKey("oid") Then
oid = e.GetValues("oid")
Else
Return ""
End If
vars("company_name")= e.Cookies("cookcompanyname") \'取出cookies 中的企业名称
Dim Book As New XLS.Book(ProjectPath & "Attachments\\po_purchase.xls")
Dim sheet As XLS.Sheet = Book.Sheets(0)
Dim fl As String = ExcelPath & "ExcelReport\\po_purchase.xls"
book.AddDataTable("采购主档","jyapp","Sel ect * fro m {poOrderMaster} inner join {suppliers} on {poOrderMaster}.po_supp_id={suppliers}.sbh01 where po_id= \'" & oid & "\'") \'添加父表
book.AddDataTable("采购明细","jyapp","Sel ect *,po_isl * po_idj As po_ijr fr om {poOrderLine} where po_id= \'" & oid & "\'") \'添加子表
book.AddRelation("采购主档","po_id","采购明细","po_id") \'建立关联
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = oid
Bar.QuietZoneWidth = 2
Bar.DisplayChecksum = False
Bar.SaveImage(BarPath & "bar\\po_id.wmf",300)
book.save( fl )
e.WriteBook(book, oid & ".xls",False)
以上是生成Excel 文件的代码。如上图，我只能在手机查看这张Excel文件图片。
请教目的：
我希望能手动保存这个Excel文件（不是保留照片), 好将这份Excel文件通过微信发给供应商，
目前我不能这样操作，只能在手机上查阅这份文件，但在电脑里面就能看到这份文件所在位置。
请专家指教一下，我应该如何修改？
先谢谢您！
-- 发布时间：2017/12/10 23:37:00
--
微信内置的浏览器，是不支持下载的。你可以使用【在浏览器打开】这个方式，下载文件。
-- 发布时间：2017/12/11 8:57:00
-- 谢谢专家及时指点！
谢谢专家及时指点！