我正在将代码中的这两个错误交替使用近一年没有问题的代码。据我所知，我的机器上没有任何重大变化。 Windows 7，Office 2013.该代码用于首字母缩略词定义器，它基于输入Excel的词典在Word中工作。我在宏的开头附近得到了错误：
Sub Acronym_Definer()
'Defines Workbook and Worksheet, Opens Excel
Dim xlApp As Object: Set xlApp = CreateObject("Excel.Application")
Dim FN As String: FN = "C:\Users\" & Environ$("Username") & "\AppData\Roaming\Gartner\AcronymDefiner\AcronymDefiner.xlsx"
Dim xlWbk As Object: Set xlWbk = xlApp.Workbooks.Open(FileName:=FN, ReadOnly:=True)
它发生在Set xlWbk = xlApp.Workbooks.Open(FileName:=FN, ReadOnly:=True)。
任何帮助将不胜感激。我很高兴回到这里的手动过程。 ：（