Я использую код макроса 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

Любая помощь будет оценена.

0