Я использую код макроса Excel, который долгое время работал в моей системе Windows 7 и Excel 2013. Я обновил свою систему до Windows 10 и Excel 2013.
Теперь я получаю сообщение об ошибке "Ошибка времени выполнения 1004 Microsoft Opentext объектных рабочих книг не удалось" во время выполнения кода.
Dim strDestination As String
Dim strSource As String
strDestination = ActiveWorkbook.Name
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
Workbooks.OpenText Filename:= _
fileToOpen _
, Origin:=1251, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
strSource = ActiveWorkbook.Name
Любая помощь будет оценена.