Foxtable(狐表)用户栏目专家坐堂 → [求助]execl 报表引出图片列有的没引出来


  共有1487人关注过本帖平板打印复制链接

主题:[求助]execl 报表引出图片列有的没引出来

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


加好友 发短信
等级:童狐 帖子:204 积分:1904 威望:0 精华:0 注册:2016/2/17 12:11:00
[求助]execl 报表引出图片列有的没引出来  发帖心情 Post By:2017/8/2 19:32:00 [只看该作者]

生成excel报表代码:

With Tables("窗口a_table5")
    If .Cols(0).Name <> "第一列" Then
        Dim Book As New XLS.Book(ProjectPath & "Attachments\单据.xls")
        Dim fl As String = ProjectPath & "Reports\单据.xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File = fl
        Proc.Start()
    End If
End With

图片点击可在新窗口打开查看此主题相关图片如下:图片.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:excel模板.png
图片点击可在新窗口打开查看


 回到顶部