无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：微信截图_20180528000744.png

点击按钮后提示如图，其他模块的正常，是否是代码问题？

Dim Book As New XLS.Book("E:\onedrive\Doosung\补货\补货模板.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

FileSys.CopyFile("E:\onedrive\Doosung\补货\补货模板.xlsx", dlg.FileName, True)

Dim App As New MSExcel.Application

app.DisplayAlerts = False

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

app.visible = True

Dim Proc As New Process

Proc.File = dlg.FileName

Proc.Start()

End If

主题：无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。