主题：excel表单元格如何换行

比如，你excel模板可以这样写

 

<Replace([第一列],"_",vbcrlf)>

 

生成报表后，你要刷新一下，才能正常显示的

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\预计利润表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\预计利润表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook =App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
app.visible = True

 

看3楼红色代码。

 

差不多。

 

我测试没问题，实例发上来。

你有一个隐藏表【date】啊

 

Dim app As new msexcel.application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("sheet1")
Dim rg As msexcel.range=ws.usedrange
rg.Formula=rg.Formula
app.visible=True

模板直接写 [买方信息]

 这种没办法，换成两个单元格呗，单独放在一个单元格里去。