Foxtable(狐表)用户栏目专家坐堂 → 请教:在手机上如何保存程序生产的Excel文件?


  共有2063人关注过本帖树形打印复制链接

主题:请教:在手机上如何保存程序生产的Excel文件?

帅哥哟,离线,有人找我吗?
lanbor
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:433 积分:4351 威望:0 精华:0 注册:2017/3/20 21:08:00
请教:在手机上如何保存程序生产的Excel文件?  发帖心情 Post By:2017/12/10 22:01:00 [显示全部帖子]

请教:在手机上如何保存程序生产的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文件通过微信发给供应商,
目前我不能这样操作,只能在手机上查阅这份文件,但在电脑里面就能看到这份文件所在位置。

请专家指教一下,我应该如何修改?
先谢谢您!



 回到顶部
帅哥哟,离线,有人找我吗?
lanbor
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:433 积分:4351 威望:0 精华:0 注册:2017/3/20 21:08:00
谢谢专家及时指点!  发帖心情 Post By:2017/12/11 8:57:00 [显示全部帖子]

谢谢专家及时指点!

 回到顶部