主题：[求助]Excel报表的页眉中能插入图片吗？

 你在你的excel模板设置好页眉，插入图片。然后执行代码

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\监造周报.xls")
Dim fl As String = ProjectPath & "Reports\监造周报.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
With Sheet.PrintSetting
    '页眉左边为日期,中间为时间,右边为表名
    .Header = "&L&D &C&T&G &R&F"
    ''在页脚右边打印页号和总页数
    .Footer = "&R第&P页,总&N页"
End With
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

 

你做两个模板，根据不同的内容调用不同的模板即可。

 

测试了一下，没问题。

 

无论你是否写2楼的代码，只要你excel模板做了页眉，生成的报表，就是拥有页眉的。

1、测试这段代码没问题

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\123.xls")  '若模板的页眉中有图片,执行到此处就提示打不开文件.单独用Excel打开该临时文件,提示不能读取文件,且不能进行修复.若将页眉中的图片删除,则一切正常.
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
app.quit

 

2、build之后，不需要重新打开的，可以直接引用sheet的

 

Book.Build() '生成报表

 回复9楼，生成前生成后，数据会左移一列。要根据实际情况引用数据。

 

呃，做个具体例子发上来测试吧，不应该有问题的。

 

做个例子发上来测试一下吧。MSExcel打开excel文件，不会那么脆弱的，基本全部excel文件都是能打开的。用实例说明。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (1).zip

回复31楼，这个做不到，显示预览等，都是需要先显示excel编辑页面的。