主题：求助：增加APP后运行出错

各位老师：

    原来程序正常运行，现在在按钮的命令中增加了一个APP,程序如下：

   ....

      Dim App As New MSExcel.Application
          App.Visible = True
      Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open( status2 )
      Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets(1)
      Dim Rg3 As MSExcel.Range = Ws3.Cells
          'Rg3.EntireRow.AutoFit          '自动调整行高
      With Ws3.PageSetup
        '.PrintArea = Ws3.UsedRange.Address   '打印工作表的使用区域
        .PrintTitleRows = Ws3.Rows("$2:$3").Address             '打印行标题(在每一页的顶部重复出现)
        .PaperSize = MSExcel.XlPaperSize.xlPaperA4       '纸张大小
        .LeftMargin = 2             '页面左边距
        .RightMargin = 2            '页面右边距
        .TopMargin = 5              '页面顶部边距
        .BottomMargin = 25           '页面底部边距
        .RightFooter = "第 &P 页  共 &N 页"                  '右页脚
        .FooterMargin = 3           '页脚到页面底端的距离
        .Orientation = MSExcel.xlPageOrientation.xlLandscape     '横向打印
      End With
      Wb.Save

.....

没有这段命令时运行正常！但加行这段命令后运行错误，提示如下图：

 

此主题相关图片如下：微信图片_20191028174712.jpg

 

我把程序也升级到最新版本了，还是出现如上的提示！

请各位老师大咖们费心！

系统安装的office有问题，卸载重新安装完整版的office，最好是32位的。如果有安装wps，卸载掉

谢谢！

老师费心了！