«Ошибка выполнения 1004 Microsoft opentext объектных книг не удалось»

311
swarish

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

0 ответов на вопрос

Похожие вопросы