主题：用foxtable打开带启动命令的excel表出现的“被呼叫方拒绝接收呼叫”错误

ActiveWorkbook.RefreshAll

 Call 计算
End Sub

Private Sub 计算()
Dim rg As Range
Set rg = Sheets("sheet1").Columns("B")
x0 = rg.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row '取得A列末行行号
Sheets("sheet1").Cells(1, 1).Value = x0
End Sub

button1代码：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "项目报表fp.xls")
app.run("recalcu")
app.visible=True

button2代码： 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "项目报表fp.xls")
MessageBox.show("执行计算")      '与botton1代码的差别
app.run("recalcu")
app.visible=True

运行“button1代码”就出现“被呼叫方拒绝接收呼叫”错误

此主题相关图片如下：截图00.png

运行“button2代码”就可以执行，这是怎么回事，要怎么解决这问题？

附件：

'Sheets("sheet1").Cells(3, 2).Select
ActiveWorkbook.RefreshAll