卸载重新安装完整版的office，不要安装绿色版、简易版之类的。
如果有wps，卸载掉，不能使用wps编辑word模板
Dim Book As New XLS.Book(ProjectPath & "Attachments\工作流转单.xls")
Dim fl As String = ProjectPath & "Reports\工作流转单.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
try
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.WrapText = True
Rg.EntireRow.AutoFit '自动调整行高
App.Visible = True
catch ex As Exception
msgbox(ex.message)
finnaly
App.quit
End try
加好友 
发短信
Post By：2018/6/5 22:08:00 [显示全部帖子]
