Foxtable(狐表)用户栏目专家坐堂 → 导出卡住了


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

主题:导出卡住了

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


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
导出卡住了  发帖心情 Post By:2021/11/26 16:14:00 [只看该作者]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Attachments\111.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
system.Threading.Thread.Sleep(1000)
Book.Build() '生成细节区
Book.Save( dlg.FileName) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If
老师我不知道为什么每次导出都会下载图片的时候卡住了

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


加好友 发短信
等级:超级版主 帖子:106816 积分:543281 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/26 16:27:00 [只看该作者]

去掉下面2句,没啥用

Dim Sheet As XLS.Sheet = Book.Sheets(0)
system.Threading.Thread.Sleep(1000)

生成了多少数据?有多少图片?有没有大图?网络带宽怎么样?

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


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/11/26 16:35:00 [只看该作者]

300条数据,200张图片,他下载突然就卡住然后就闪退

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


加好友 发短信
等级:超级版主 帖子:106816 积分:543281 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/26 16:46:00 [只看该作者]

不要使用大图,减少图片尺寸。可以考虑先把图片都下载到本地使用

减少生成的报表数量,有没有问题?关闭杀毒软件
[此贴子已经被作者于2021/11/26 16:46:57编辑过]

 回到顶部