环境：win10 家庭版64位，Office 2013 专业版32位
代码如下：
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlapp = New Excel.Application
Set xlbook = xlapp.Workbooks.Open("D:\VBAPP\MWS Application\报表\采购申请表.xlsx")
Set xlsheet = xlbook.Worksheets("Sheet1")
xlapp.Visible = True
xlsheet.Cells(5, 1) = 1
Set xlapp = Nothing

提示如下：


查了一下论坛，也有人出现一样的提示，但他的原因是64位office造成的。

是这个贴子：https://bbs.bccn.net/thread-506862-1-1.html

我的office 是32位的也出现这样的提示，请各位帮忙看看，谢谢了！

[此贴子已经被作者于2021-12-4 11:05编辑过]

是不是之前有操作过该文件而未正常关闭退出挂死了
试试都关闭重试运行

谢谢版主关注。
我已确认windows的任务管理器已EXCEL的没有进程，但都是会提示。

同样的功能，我在ACCESS 2013的窗体里操作EXCEL也正常。

现在在VB6新建一个新的EXCEL工作簿与工作表都是一样的提示。

回家对VB6又试了2台电脑的：
使用环境1： win7 32位专业版 + office 2013 32位 专业版   功能运行正常
使用环境2： win10 64位 企业版LTSC  + office 2013 32位 专业版  功能运行不正常（一样是提示部件要求挂起）

看来是win10的问题。

可能是系统问题