win10下 VB6操作EXCEL 2013 被挂起

环境：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编辑过]