Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Excel报表的页眉中能插入图片吗？


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

主题：[求助]Excel报表的页眉中能插入图片吗？
帅哥哟，离线，有人找我吗？
lzzhx
 小大  11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/8/12 7:26:00 [只看该作者]

这两处引用都是生成后引用的，要左移应该同时左移

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/8/12 8:21:00 [只看该作者]

问题还是在此处
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)  '若模板的页眉中有图片，执行到此处就提示打不开文件。单独用Excel打开该临时文件，提示不能读取文件，且不能进行修复。若将页眉中的图片删除，则一切正常。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/8/12 9:04:00 [只看该作者]

应该和图片没有关系，是 Book1.Save(fl)之后Excel进程还没有退出，再程序打开就出错了，保存后kill掉Excel的进程试试

Book1.Save(fl) '保存工作簿
kill的代码
Dim App As New MSExcel.Application
 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/8/12 10:27:00 [只看该作者]

Book1.Save(fl) '保存工作簿
ShowAppWindow("$$$临时文件.xls",5)
Dim App As New MSExcel.Application
还是不行。
好像是$$$临时文件.xls  文件本身损坏了，我退出程序，单独打开$$$临时文件.xls，还是提示不能读取文件

若将页眉中的图片删除，则一切正常。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/8/12 10:39:00 [只看该作者]

Excel生成的临时文件你动他干啥，要操作的是正式的文件。删除进程参考：

……
Book1.Save(fl) '保存工作簿

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps

    msgbox(p.MainWindowTitle)
    If p.MainWindowTitle = Nothing Then  p.kill
Next

Dim App As New MSExcel.Application

……
 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/8/14 7:31:00 [只看该作者]

$$$临时文件.xls   就是正式文件，不过为了怕重名，将名称定义为$$$临时文件.xls了

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/14 8:36:00 [只看该作者]

以下是引用lzzhx在2017/8/14 7:31:00的发言：
$$$临时文件.xls   就是正式文件，不过为了怕重名，将名称定义为$$$临时文件.xls了

 

呃，做个具体例子发上来测试吧，不应该有问题的。
 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  18楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/8/14 8:46:00 [只看该作者]

我想办法做了例子再试试

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/8/14 12:59:00 [只看该作者]

问题找到了，我在模板的页眉中插入图片后，将高度和宽度设为25%后就出现这个问题，不设定就正常

 回到顶部
帅哥哟，离线，有人找我吗？
lzzhx
 小大  20楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00 		  发帖心情 Post By：2017/8/14 13:53:00 [只看该作者]

又不行了，我做个例子请老师看看

 回到顶部
总数 44 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询