模块执行中止（未实现功能目标）相关文档被关闭后被恢复，请问是什么原因，如何解决

大公臻信

各位老师：

我想用VBA 集并文件夹中文档数据，代码如下：


Sub CABI集并结算书数据B()
'用户指定源文件夹路径
MsgBox ("请选择确定需汇总处理源数据文件夹")
Set Fld = Application.FileDialog(msoFileDialogFolderPicker) '选取并指定文件夹路径
With Fld
    .Show
    opath = .SelectedItems(1) ' 提取文件夹路径
End With

'获取文件夹中的文件个数
Dim arr()      '数组变量名后需加半角括号
'创建文件夹中工作簿列表，将所有工作簿名导入数组arr中
wbk = Dir(opath & "\*.xl*")
'通过循环将文件名放入数组变量中
wbkcount = 0
'当工作簿文件名不为空时
While wbk <> ""
    '文件夹文件序号加1（从1开始0+1）
    wbkcount = wbkcount + 1
    ReDim Preserve arr(1 To wbkcount)
    arr(wbkcount) = wbk
    wbk = Dir
Wend

For xmxhxh = 1 To UBound(arr)
    Workbooks.Open opath & "\" & arr(xmxhxh), UpdateLinks:=0
    owbkname = ActiveWorkbook.Name
    Workbooks(owbkname).Activate
    '此处为集并数据处理代码，为测试查找问题方便，删除了
    Workbooks(arr(xmxhxh)).Close False
Next
stop      ‘当执行到此句，等2-3秒后，模块执行被中止，模块所在excel文档被关闭
End Sub


请老师帮看看，是什么原因，如何解决
测试.zip (82.15 KB, 下载次数: 2)

2024-5-24 10:26 上传

点击文件名下载附件

大公臻信

打开模块所在文档时，提示“正在加载加载项（加载了3个加载项）”，好像是officeplus，请问如何消除这种默认加载