- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119572)
-- 发布时间：2018/5/27 23:10:00
-- 无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。
此主题相关图片如下：微信截图_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
Next
app.visible = True
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
-- 发布时间：2018/5/27 23:51:00
--
1、
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54396&replyID=360697&skin=1
2、如果1无法修复，就重新安装一下wps。
-- 发布时间：2018/5/28 2:27:00
--
除了最后一招，其他几招全试过，没用
-- 发布时间：2018/5/28 9:37:00
--
以下是引用tingke在2018/5/28 2:27:00的发言：
除了最后一招，其他几招全试过，没用
除了最后一招，其他几招全试过，没用
重装wps，然后卸载wps即可，有可能是你wps卸载不完全造成的。