'''...
Dim Book As New XLS.Book("E:\onedrive\Doosung\EMAIL\????_??.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
dlg.FileName = "????_??" & format(Date.today, "M?d?") & "(??)" & ".xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
Book.Save(dlg.FileName)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim i,N As Integer
N=Wb.WorkSheets.Count
For i=1 To N
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(i)
ws.UsedRange.Formula = ws.UsedRange.Formula
Next
wb.save
wb.close
App.Quit
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
看了论坛前辈帖子,代码不知道出现错误,提示
.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2017.6.12.1
错误所在事件:窗口,email,广州,Click
详细错误信息:
异常来自 HRESULT:0x800A03EC
望前辈帮忙修改,万分感谢!
参考帖子地址
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=42596&skin=0
引用表格模板