主题：[求助]点击保存按钮出现未保存

这样行不?

楼上这个代码，马上出现这个对话框。

 

此主题相关图片如下：3.png

明白了,循环出现了问题.我找找我以前写的类似代码给你

Dim App As New MSExcel.Application
For Each  s As String In DataTables("条件").getValues("班级名称")
    
    Dim Book As New XLS.Book(ProjectPath & "Attachments\学籍卡.xls") '打开模板
    Dim fl As String = ProjectPath & "Reports\" & s & ".xls"
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(1,9).Value = "<[班级名称] = '" & s &"'>"
    Book.Build() '生成报表
    Book.Save(fl)
 Next

此主题相关图片如下：5.png

我使用了修改一下的代码：

 

 

Dim App As New MSExcel.Application
For Each  s As String In DataTables("条件").getValues("班级名称")
   
    Dim Book As New XLS.Book(ProjectPath & "Attachments\学籍卡.xls") '打开模板
    Dim fl As String = ProjectPath & "Reports\" & s & ".xls"
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(1,9).Value = "<[班级名称] = '" & s &"'>"
    Book.Build() '生成报表
    Book.Save(fl)
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range = Ws.Cells
    rg.ShrinkToFit = True

 Next

 Dim Proc As New Process    '打开报表输出目录
Proc.File = ProjectPath & "reports"
Proc.Start()

 

 

 

这个代码呢，一打开报表显示是缩小字体填充的。但是无法保存。   不保存的话，就没有缩小字体填充了。 奇怪的很。

在模板里面，都设置为缩小字体填充了。

但是结果却不一样。  其中工作单位 都是完全达到预期效果。  就是奖励这里不行。

此主题相关图片如下：6.png

缩小字体填充， 主表和子表显示不一样。对主表都起作用。 对于子表一开始起作用，只要选择不保存，就自动不起作用。 

   那么为什么一开始生成的时候，就起作用。当我打开报表，查看的时候，就自动跳出保存与否对话框，选择保存，无法保存。选择不保存，那么缩小字体填充就不起作用状态。

   这个问题，真是非常伤脑筋。狐爸能否指点一下。谢谢

我在模板上面用VBA代码shrinktofit。终于解决问题了。 有点莫名其妙。