Foxtable(狐表)用户栏目专家坐堂 → 无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。


  共有5182人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
tingke
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:1371 威望:0 精华:0 注册:2017/1/10 20:17:00
无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。  发帖心情 Post By:2018/5/27 23:10:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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。


 回到顶部
帅哥哟,离线,有人找我吗?
tingke
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:1371 威望:0 精华:0 注册:2017/1/10 20:17:00
  发帖心情 Post By:2018/5/28 2:27:00 [只看该作者]

除了最后一招,其他几招全试过,没用图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/28 9:37:00 [只看该作者]

以下是引用tingke在2018/5/28 2:27:00的发言:
除了最后一招,其他几招全试过,没用图片点击可在新窗口打开查看

 

重装wps,然后卸载wps即可,有可能是你wps卸载不完全造成的。


 回到顶部