Error 462 excel

Все доброй ночи!  

  Очень извиняюсь, что касаюсь избитой темы (наверное), но что-то я не смог найти ответа в таком форуме, хотя регулярно пользуюсь подсказками пользователей. До сей поры хватало.  

  Суть вот в чем:  
Я хочу из существующей таблицы Excel выдернуть отсортированные значения и вставить их в Word. Казалось бы, что может быть проще:  

  Sub Import2()  
‘  
‘  

  ‘  
   Mesyats = UserForm1.ComboBox1.Value  
   ‘Mesyats = «Ноябрь»  
   Dim iLastRow As Long  
   Excel.Sheets(«123»).Select  
   iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
   Excel.ActiveSheet.ListObjects(«Таблица 3»).Range.AutoFilter Field:=1, Criteria1:=Mesyats  
   Excel.Range(«B3:D» + Right((Str(iLastRow)), (Len(Str(iLastRow) — 1)))).Select  
   Excel.Selection.Copy  
   Excel.Sheets(«123»).Select  
   On Error GoTo ErrStartWord  
   Dim Wda As Word.Application  
   Set Wda = GetObject(, «Word.Application»)  
   Set Wda = Nothing  
   ‘If Tasks.Exists(«Microsoft Word») Then  
   ‘End If  
   ‘Word.Application.Documents.Item  
   Word.Documents.Open Filename:=»c:OLS ReportsForm 2.docx»  
   Word.Application.Activate  
   Word.Selection.StartOf Unit:=wdStory, Extend:=wdMove  
   Word.Selection.MoveDown Unit:=wdLine, Count:=9  
   Word.Selection.MoveLeft Unit:=wdCharacter, Count:=17  
   Word.Selection.Delete Unit:=wdCharacter, Count:=7  
   Word.Selection.TypeText (Mesyats)  
   Word.Selection.MoveEnd  
   Word.Selection.MoveDown Unit:=wdLine, Count:=6  
   Word.Selection.MoveLeft Unit:=wdCharacter, Count:=1  
   WordBasic.EditPaste2  
   ‘Word.Application.Dialogs(wdDialogFileSaveAs).Show  
   ‘Word.Documents.Close  
ErrStartWord:  
   If Err.Number = 429 Then ‘ Word не запущен  
    Dim appWD As Object  
    Set appWD = CreateObject(«Word.Application»)  
    appWD.Visible = True  
    Resume Next  
   End If  
     If Err.Number = 0 Then  
      ‘MsgBox «Success!»  
     Else: MsgBox Err.Description & » » & Err.Number, vblnformation  
     End If  
End Sub  

  Однако не тут-то было (((    

  При повторном запуске скрипт срубается на строке «Word.Documents.Open Filename:=»c:OLS ReportsForm 2.docx»»  

  с сообщением «The remote server machine does not exist or is unavailable 462», как и положено обработчику ошибок в теле сркипта. Надо полностью закрыть Excel и заново в него зайти. Тогда вновь все заработает, на 1 раз :/ Я так думаю, что скрипт по завершению не очищает какие-то переменные, и нужно выйти из Excel.    

  Очень надо сделать, работа горит. Сижу уже 4-й час, и ничего не могу поделать ((((  

  И да. Использую Word 2007 и Excel 2007. Как думаете, в 2003 офисе такой проблемы не возникнет? А то будет жаль перставлять из-за этого…..    

  Все харанее спасибо.

	Номер ошибки:	Ошибка 462
Название ошибки:	Excel Error 462
Описание ошибки:	Ошибка 462: Возникла ошибка в приложении Microsoft Excel. Приложение будет закрыто. Приносим извинения за неудобства.
Разработчик:	Microsoft Corporation
Программное обеспечение:	Microsoft Excel
Относится к:	Windows XP, Vista, 7, 8, 10, 11

Анализ «Excel Error 462»

«Excel Error 462» — это стандартная ошибка времени выполнения. Разработчики тратят много времени и усилий на написание кода, чтобы убедиться, что Microsoft Excel стабилен до продажи продукта. К сожалению, некоторые критические проблемы, такие как ошибка 462, часто могут быть упущены из виду.

После установки программного обеспечения может появиться сообщение об ошибке «Excel Error 462». В случае обнаруженной ошибки 462 клиенты могут сообщить о наличии проблемы Microsoft Corporation по электронной почте или сообщать об ошибках. Затем Microsoft Corporation нужно будет исправить эти ошибки в главном исходном коде и предоставить модифицированную версию для загрузки. Эта ситуация происходит из-за обновления программного обеспечения Microsoft Excel является одним из решений ошибок 462 ошибок и других проблем.

Почему возникает ошибка времени выполнения 462?

У вас будет сбой во время выполнения Microsoft Excel, если вы столкнетесь с «Excel Error 462» во время выполнения. Причины сбоев обработки можно отличить, классифицируя ошибки 462 следующим образом:.

Ошибка 462 Crash — это типичная ошибка 462 во время выполнения, которая полностью аварийно завершает работу компьютера. Эти ошибки обычно возникают, когда входы Microsoft Excel не могут быть правильно обработаны, или они смущены тем, что должно быть выведено.

«Excel Error 462» Утечка памяти — Ошибка 462 утечка памяти происходит и предоставляет Microsoft Excel в качестве виновника, перетаскивая производительность вашего ПК. Возможные искры включают сбой освобождения, который произошел в программе, отличной от C ++, когда поврежденный код сборки неправильно выполняет бесконечный цикл.

Ошибка 462 Logic Error — Логическая ошибка вызывает неправильный вывод, даже если пользователь дал действительные входные данные. Когда точность исходного кода Microsoft Corporation низкая, он обычно становится источником ошибок.

Excel Error 462 проблемы часто являются результатом отсутствия, удаления или случайного перемещения файла из исходного места установки Microsoft Excel. Как правило, самый лучший и простой способ устранения ошибок, связанных с файлами Microsoft Corporation, является замена файлов. Если ошибка Excel Error 462 возникла в результате его удаления по причине заражения вредоносным ПО, мы рекомендуем запустить сканирование реестра, чтобы очистить все недействительные ссылки на пути к файлам, созданные вредоносной программой.

Распространенные проблемы Excel Error 462

Типичные ошибки Excel Error 462, возникающие в Microsoft Excel для Windows:

• «Ошибка программы Excel Error 462. «
• «Excel Error 462 не является приложением Win32.»
• «Возникла ошибка в приложении Excel Error 462. Приложение будет закрыто. Приносим извинения за неудобства.»
• «К сожалению, мы не можем найти Excel Error 462. «
• «Excel Error 462 не может быть найден. «
• «Ошибка запуска программы: Excel Error 462.»
• «Excel Error 462 не выполняется. «
• «Excel Error 462 остановлен. «
• «Excel Error 462: путь приложения является ошибкой. «

Проблемы Excel Error 462 с участием Microsoft Excels возникают во время установки, при запуске или завершении работы программного обеспечения, связанного с Excel Error 462, или во время процесса установки Windows. При появлении ошибки Excel Error 462 запишите вхождения для устранения неполадок Microsoft Excel и чтобы HelpMicrosoft Corporation найти причину.

Excel Error 462 Истоки проблем

Проблемы Excel Error 462 могут быть отнесены к поврежденным или отсутствующим файлам, содержащим ошибки записям реестра, связанным с Excel Error 462, или к вирусам / вредоносному ПО.

Особенно ошибки Excel Error 462 проистекают из:

• Поврежденная или недопустимая запись реестра Excel Error 462.
• Загрязненный вирусом и поврежденный Excel Error 462.
• Другая программа злонамеренно или по ошибке удалила файлы, связанные с Excel Error 462.
• Другая программа находится в конфликте с Microsoft Excel и его общими файлами ссылок.
• Microsoft Excel/Excel Error 462 поврежден от неполной загрузки или установки.

Продукт Solvusoft

Загрузка
WinThruster 2022 — Проверьте свой компьютер на наличие ошибок.

Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11

Установить необязательные продукты — WinThruster (Solvusoft) | Лицензия | Политика защиты личных сведений | Условия | Удаление

First problem : Run-time error ‘462’ : The remote server machine does not exist or is unavailable.

The issue here is the use of :

1. Late Biding : Dim Smthg As Object or
2. Implicit references : Dim Smthg As Range instead of
   Dim Smthg As Excel.Range or Dim Smthg As Word.Range

So you need to fully qualified all the variables that you set (I’ve done that in your code)

Second problem

You work with multiple instances of Word and you only need one to handle multiple documents.

So instead of creating a new one each time with :

Set WordApp = CreateObject("Word.Application")

You can get an open instance (if there is one) or create one with that code :

On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number > 0 Then Set WordApp = CreateObject("Word.Application")
On Error GoTo 0

And once you’ve put this at the start of your proc, you can use this instance until the end of the proc and before the end, quit it to avoid having multiple instances running.

Here is your code reviewed and cleaned, take a look :

Sub Docs()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

' Control if folder exists, if not create folder
If Len(Dir("F:documents" & Year(Date), vbDirectory)) = 0 Then MkDir "F:documents" & Year(Date)

' Get or Create a Word Instance
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number > 0 Then Set WordApp = CreateObject("Word.Application")
On Error GoTo 0

Workbooks("exampleworkbook.xlsm").Sheets("examplesheet").Range("A1:C33").Copy

With WordApp
    .Visible = True
    .Activate
    Set WordDoc = .Documents.Add
    .Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
                Placement:=wdInLine, DisplayAsIcon:=False
End With

With Application
    .Wait (Now + TimeValue("0:00:02"))
    .CutCopyMode = False
End With

With WordDoc
    .PageSetup.TopMargin = WordApp.CentimetersToPoints(1.4)
    .PageSetup.LeftMargin = WordApp.CentimetersToPoints(1.5)
    .PageSetup.BottomMargin = WordApp.CentimetersToPoints(1.5)
    .SaveAs "F:documents" & Year(Date) & "examplename " & Format(Now, "YYYYMMDD") & ".docx"
    .Close
End With

' export sheet 2 to Word
Workbooks("exampleworkbook.xlsm").Sheets("examplesheet2").Range("A1:C33").Copy

Set WordDoc = WordApp.Documents.Add
WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
                        Placement:=wdInLine, DisplayAsIcon:=False
Application.Wait (Now + TimeValue("0:00:02"))

With WordDoc
    .PageSetup.LeftMargin = WordApp.CentimetersToPoints(1.5)
    .PageSetup.TopMargin = WordApp.CentimetersToPoints(1.4)
    .PageSetup.BottomMargin = WordApp.CentimetersToPoints(1.5)
    .SaveAs "F:files" & Year(Date) & "name" & Format(Now, "YYYYMMDD") & ".docx"
    .Close
End With

Application.CutCopyMode = False
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing

' Variables Outlook
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim rngTo As Excel.Range
Dim rngCc As Excel.Range
Dim rngSubject As Excel.Range
Dim rngBody As Excel.Range
Dim rngAttach1 As Excel.Range
Dim rngAttach2 As Excel.Range
Dim numSend As Integer


On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
If Err.Number > 0 Then Set objOutlook = CreateObject("Outlook.Application")
On Error GoTo 0


Set objMail = objOutlook.CreateItem(0)

' Outlook
On Error GoTo handleError

With Sheets("Mail")
    Set rngTo = .Range("B11")
    Set rngCc = .Range("B12")
    Set rngSubject = .Range("B13")
    Set rngBody = .Range("B14")
    Set rngAttach1 = .Range("B15")
    Set rngAttach2 = .Range("B16")
End With

With objMail
    .To = rngTo.Value
    .Subject = rngSubject.Value
    .CC = rngCc.Value
    '.Body = rngBody.Value
    .Body = "Hi," & _
            vbNewLine & vbNewLine & _
            rngBody.Value & _
            vbNewLine & vbNewLine & _
            "Kind regards,"
    .Attachments.Add rngAttach1.Value
    .Attachments.Add rngAttach2.Value
    .Display
     Application.Wait (Now + TimeValue("0:00:01"))
     Application.SendKeys "%s"
  ' .Send       ' Instead of .Display, you can use .Send to send the email _
                or .Save to save a copy in the drafts folder
End With

numSend = numSend + 1

GoTo skipError

handleError:
numErr = numErr + 1
oFile.WriteLine "*** ERROR *** Email for account" & broker & " not sent. Error: " & Err.Number & " " & Err.Description
skipError:

On Error GoTo 0

MsgBox "Sent emails: " & numSend & vbNewLine & "Number of errors: " & numErr, vbOKOnly + vbInformation, "Operation finished"

GoTo endProgram

cancelProgram:
MsgBox "No mails were sent.", vbOKOnly + vbExclamation, "Operation cancelled"

endProgram:
Set objOutlook = Nothing
Set objMail = Nothing
Set rngTo = Nothing
Set rngSubject = Nothing
Set rngBody = Nothing
Set rngAttach1 = Nothing
Set rngAttach2 = Nothing

End Sub

Симптомы Ошибка 462 — Ошибка Excel 462

Ошибки времени выполнения происходят без предупреждения. Сообщение об ошибке может появиться на экране при любом запуске %программы%. Фактически, сообщение об ошибке или другое диалоговое окно может появляться снова и снова, если не принять меры на ранней стадии.

Возможны случаи удаления файлов или появления новых файлов. Хотя этот симптом в основном связан с заражением вирусом, его можно отнести к симптомам ошибки времени выполнения, поскольку заражение вирусом является одной из причин ошибки времени выполнения. Пользователь также может столкнуться с внезапным падением скорости интернет-соединения, но, опять же, это не всегда так.

(Только для примера)

Причины Ошибка Excel 462 — Ошибка 462

При разработке программного обеспечения программисты составляют код, предвидя возникновение ошибок. Однако идеальных проектов не бывает, поскольку ошибки можно ожидать даже при самом лучшем дизайне программы. Глюки могут произойти во время выполнения программы, если определенная ошибка не была обнаружена и устранена во время проектирования и тестирования.

Ошибки во время выполнения обычно вызваны несовместимостью программ, запущенных в одно и то же время. Они также могут возникать из-за проблем с памятью, плохого графического драйвера или заражения вирусом. Каким бы ни был случай, проблему необходимо решить немедленно, чтобы избежать дальнейших проблем. Ниже приведены способы устранения ошибки.

Методы исправления

Ошибки времени выполнения могут быть раздражающими и постоянными, но это не совсем безнадежно, существует возможность ремонта. Вот способы сделать это.

Если метод ремонта вам подошел, пожалуйста, нажмите кнопку upvote слева от ответа, это позволит другим пользователям узнать, какой метод ремонта на данный момент работает лучше всего.

Обратите внимание: ни ErrorVault.com, ни его авторы не несут ответственности за результаты действий, предпринятых при использовании любого из методов ремонта, перечисленных на этой странице — вы выполняете эти шаги на свой страх и риск.

Excel automation fails second time code runs

Symptoms

While running code that uses Automation to control Microsoft Excel, one of the following errors may occur:

In Microsoft Excel 97 and in later versions of Excel, you receive one of the following error message:

Error message 1

Run-time error ‘1004’:
Method ‘ ‘ of object ‘_Global’ failed

Error message 2

Application-defined or object-defined error

In Microsoft Excel 95, you receive one of the following error messages:

Error message 1

Run-time error ‘-2147023174’
OLE Automation error

Error message 2

Run-time error ‘462’:
The remote server machine does not exist or is unavailable.

Cause

Visual Basic has established a reference to Excel because of a line of code that calls an Excel object, method, or property without qualifying the element with an Excel object variable. Visual Basic does not release this reference until you end the program. This errant reference interferes with automation code when the code is run more than one time.

Resolution

To resolve this problem, modify the code so each call to an Excel object, method, or property is qualified with the appropriate object variable.

Status

This behavior is by design.

More Information

To automate Microsoft Excel, you establish an object variable that usually refers to the Excel Application object or the Excel Workbook object. Other object variables can then be set to refer to a Worksheet, a Range, or other objects in the Microsoft Excel object model. When you write code to use an Excel object, method, or property, you should always precede the call with the appropriate object variable. If you do not, Visual Basic establishes its own reference to Excel. This reference might cause problems when you try to run the automation code multiple times. Note that even if the line of code begins with the object variable, a call may be made to an Excel object, method, or property in the middle of the line of code that is not preceded with an object variable.

The following steps illustrate how to reproduce this issue and how to correct the issue.

Steps to reproduce the behavior

Start a new Standard EXE project in Visual Basic. Form1 is created by default.

On the Project menu, click References, and then check the Object Library for the version of Excel that you intend to automate.

Place a CommandButton control on Form1.

Copy the following code example to the Code Window of Form1.

On the Run menu, click Start, or press F5 to start the program.

Click the CommandButton control. No error occurs. However, a reference to Excel has been created and has not been released.

Click the CommandButton control again. Notice that you receive one of the error messages that are discussed in the «Symptoms» section.

Note The error message occurs because the code refers to the method of the cell without preceding the call with the
xlSheet object variable.

Stop the project and change the following line of code:

Change the line of code to resemble the following line of code.

Run the program again. Notice that you can run the code multiple times without receiving an error message.

References

For more information, click the following article numbers to view the articles in the Microsoft Knowledge Base:

167223 Microsoft Office 97 Automation Help file available

189618 You may receive the «Run-time error ‘-2147023174’ (800706ba)» error message or the «Run-time error ‘462’» when you run Visual Basic code that uses Automation to control Word

Источник

Excel automation fails second time code runs

Symptoms

While running code that uses Automation to control Microsoft Excel, one of the following errors may occur:

In Microsoft Excel 97 and in later versions of Excel, you receive one of the following error message:

Error message 1

Run-time error ‘1004’:
Method ‘ ‘ of object ‘_Global’ failed

Error message 2

Application-defined or object-defined error

In Microsoft Excel 95, you receive one of the following error messages:

Error message 1

Run-time error ‘-2147023174’
OLE Automation error

Error message 2

Run-time error ‘462’:
The remote server machine does not exist or is unavailable.

Cause

Visual Basic has established a reference to Excel because of a line of code that calls an Excel object, method, or property without qualifying the element with an Excel object variable. Visual Basic does not release this reference until you end the program. This errant reference interferes with automation code when the code is run more than one time.

Resolution

To resolve this problem, modify the code so each call to an Excel object, method, or property is qualified with the appropriate object variable.

Status

This behavior is by design.

More Information

To automate Microsoft Excel, you establish an object variable that usually refers to the Excel Application object or the Excel Workbook object. Other object variables can then be set to refer to a Worksheet, a Range, or other objects in the Microsoft Excel object model. When you write code to use an Excel object, method, or property, you should always precede the call with the appropriate object variable. If you do not, Visual Basic establishes its own reference to Excel. This reference might cause problems when you try to run the automation code multiple times. Note that even if the line of code begins with the object variable, a call may be made to an Excel object, method, or property in the middle of the line of code that is not preceded with an object variable.

The following steps illustrate how to reproduce this issue and how to correct the issue.

Steps to reproduce the behavior

Start a new Standard EXE project in Visual Basic. Form1 is created by default.

On the Project menu, click References, and then check the Object Library for the version of Excel that you intend to automate.

Place a CommandButton control on Form1.

Copy the following code example to the Code Window of Form1.

On the Run menu, click Start, or press F5 to start the program.

Click the CommandButton control. No error occurs. However, a reference to Excel has been created and has not been released.

Click the CommandButton control again. Notice that you receive one of the error messages that are discussed in the «Symptoms» section.

Note The error message occurs because the code refers to the method of the cell without preceding the call with the
xlSheet object variable.

Stop the project and change the following line of code:

Change the line of code to resemble the following line of code.

Run the program again. Notice that you can run the code multiple times without receiving an error message.

References

For more information, click the following article numbers to view the articles in the Microsoft Knowledge Base:

167223 Microsoft Office 97 Automation Help file available

189618 You may receive the «Run-time error ‘-2147023174’ (800706ba)» error message or the «Run-time error ‘462’» when you run Visual Basic code that uses Automation to control Word

Источник

Thread: RESOLVED: [VBA Word/Excel] Error 462 when running the code twice

Thread Tools

Display

RESOLVED: [VBA Word/Excel] Error 462 when running the code twice

Hi, this is my first post, so if I’ve done something wrong like forgotten code tags or posted in the wrong section, please don’t yell at me

Before I explain the problem, I want to say that I am aware other people have posted this same problem, even on this website, but the solutions that seem to be working for everyone else have not worked for me. I have researched this problem for some 5 hours now and spent days trying to resolve it. Some examples of other threads that I have read with the same issue:

The issue is that I am writing code in VBA Word which calls an instance of Excel, does some stuff, and then closes Excel. Running the code again a second time usually results in the infamous error 462: «The remote server machine does not exist or is unavailable».

The Microsoft knowledge base (link above) advises to «Modify the code so that each call to a Word object, method, or property is qualified with the appropriate object variable.» I have gone through with a fine tooth comb and made sure that everything is qualified and referenced correctly and explicitly.

Furthermore, after reading the second article (link above) I have used late-binding on their suggestion to remove the issue of the Excel application continuing to run in the background after its supposed to be closed. I have found the [first instance of] offending line which causes the Excel app to continue to run, which, if omitted, makes the problem go away.

The code is quite lengthy so I will only post the relevant parts:

The code in red is where the error message appears when it is run a second time. However, it seems that Excel is reference properly here, so no idea why this is occurring. I have tried the following variations with no success:

Note that the above code is not resolving the original error of having the Excel app continuing to run in the background. I am in the middle of trying to fix this when I started getting the Error 462. To isolate the latter, add an early exit like:

Hope this makes sense, and hope someone can help, because I am at the end of my tether.

Last edited by Earlien; Jan 3rd, 2012 at 07:22 PM . Reason: Problem resolved

Источник

Vba excel run time error 462

Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по созданию файла MS WORD. run-time error 462 (Макросы/Sub)

Макрос по созданию файла MS WORD. run-time error 462

rvshestakov

Дата: Четверг, 19.03.2015, 16:35 | Сообщение № 1

Добрый день всем! Заметил странную особенность, если не сказать больше. Если при выполнении макроса по созданию файла MS WORD в диспетчере задач WINDOWS нет процесса WINWORD.EXE — выполнение макроса прерывается ошибкой run-time error 462. Причём при нажатии кнопки debug подсвечивается строка с форматированием листа создаваемого файла — ParagraphFormat.LeftIndent = CentimetersToPoints(0). Если процесс WINWORD.EXE активен — код работает исправно. Код макроса прикладывать пока не буду. Если потребуется, приложу. Заранее спасибо! Добрый день всем! Заметил странную особенность, если не сказать больше. Если при выполнении макроса по созданию файла MS WORD в диспетчере задач WINDOWS нет процесса WINWORD.EXE — выполнение макроса прерывается ошибкой run-time error 462. Причём при нажатии кнопки debug подсвечивается строка с форматированием листа создаваемого файла — ParagraphFormat.LeftIndent = CentimetersToPoints(0). Если процесс WINWORD.EXE активен — код работает исправно. Код макроса прикладывать пока не буду. Если потребуется, приложу. Заранее спасибо! rvshestakov Сообщение Добрый день всем! Заметил странную особенность, если не сказать больше. Если при выполнении макроса по созданию файла MS WORD в диспетчере задач WINDOWS нет процесса WINWORD.EXE — выполнение макроса прерывается ошибкой run-time error 462. Причём при нажатии кнопки debug подсвечивается строка с форматированием листа создаваемого файла — ParagraphFormat.LeftIndent = CentimetersToPoints(0). Если процесс WINWORD.EXE активен — код работает исправно. Код макроса прикладывать пока не буду. Если потребуется, приложу. Заранее спасибо! Автор — rvshestakov Дата добавления — 19.03.2015 в 16:35 doober Дата: Четверг, 19.03.2015, 17:22 | Сообщение № 2 rvshestakov Дата: Пятница, 20.03.2015, 06:36 | Сообщение № 3 doober, просто в моём случае ошибка может быть очевидной, поэтому я подумал, что возможно и не в коде дело и моя ошибка лежит на поверхности 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Dim PathForFile As String Dim NameWRD As String Set AppWord = CreateObject(«Word.Application») NameWRD = Sheets(1).Range(«НомерЗакупки»).Value & «. Проект решения » & Sheets(1).Range(«ТипПрезентации»).Value & «.docx» PathForFile$ = ThisWorkbook.Path Set FSO = CreateObject(«Scripting.FileSystemObject») If Not FSO.FolderExists(PathForFile$) Then FSO.CreateFolder (PathForFile$) ‘ End If Set FSO = Nothing AppWord.Documents.Add AppWord.Selection.Paste AppWord.Selection.WholeStory If AppWord.Selection.PageSetup.Orientation = wdOrientPortrait Then AppWord.Selection.PageSetup.Orientation = wdOrientLandscape Else AppWord.Selection.PageSetup.Orientation = wdOrientPortrait End If With AppWord.Selection.ParagraphFormat .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineUnitBefore = 0 .LineUnitAfter = 0 .LeftIndent = CentimetersToPoints(0) .SpaceBeforeAuto = False .SpaceAfterAuto = False .SpaceBeforeAuto = False .SpaceAfterAuto = False .FirstLineIndent = CentimetersToPoints(0) End With With AppWord.Selection .Font.Name = «Times New Roman» ‘ .Font.Size = 14 .PageSetup.Orientation = wdOrientLandscape .PageSetup.PageWidth = CentimetersToPoints(42) .PageSetup.PageHeight = CentimetersToPoints(29.7) .PageSetup.TopMargin = CentimetersToPoints(1) .PageSetup.BottomMargin = CentimetersToPoints(1) .PageSetup.LeftMargin = CentimetersToPoints(1.5) .PageSetup.RightMargin = CentimetersToPoints(1) End With AppWord.Visible = True ‘AppWord.Documents.Add.Range.PasteExcelTable False, False, False AppWord.ActiveDocument.SaveAs2 PathForFile$ & «» & NameWRD, _ 12, False, «», True, «», False, False, False, False, False, 14 AppWord.ActiveDocument.Close Application.CutCopyMode = False Set AppWord = Nothing doober, просто в моём случае ошибка может быть очевидной, поэтому я подумал, что возможно и не в коде дело и моя ошибка лежит на поверхности 200?’200px’:»+(this.scrollHeight+5)+’px’);»> Dim PathForFile As String Dim NameWRD As String Set AppWord = CreateObject(«Word.Application») NameWRD = Sheets(1).Range(«НомерЗакупки»).Value & «. Проект решения » & Sheets(1).Range(«ТипПрезентации»).Value & «.docx» PathForFile$ = ThisWorkbook.Path Set FSO = CreateObject(«Scripting.FileSystemObject») If Not FSO.FolderExists(PathForFile$) Then FSO.CreateFolder (PathForFile$) ‘ End If Set FSO = Nothing AppWord.Documents.Add AppWord.Selection.Paste AppWord.Selection.WholeStory If AppWord.Selection.PageSetup.Orientation = wdOrientPortrait Then AppWord.Selection.PageSetup.Orientation = wdOrientLandscape Else AppWord.Selection.PageSetup.Orientation = wdOrientPortrait End If With AppWord.Selection.ParagraphFormat .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineUnitBefore = 0 .LineUnitAfter = 0 .LeftIndent = CentimetersToPoints(0) .SpaceBeforeAuto = False .SpaceAfterAuto = False .SpaceBeforeAuto = False .SpaceAfterAuto = False .FirstLineIndent = CentimetersToPoints(0) End With With AppWord.Selection .Font.Name = «Times New Roman» ‘ .Font.Size = 14 .PageSetup.Orientation = wdOrientLandscape .PageSetup.PageWidth = CentimetersToPoints(42) .PageSetup.PageHeight = CentimetersToPoints(29.7) .PageSetup.TopMargin = CentimetersToPoints(1) .PageSetup.BottomMargin = CentimetersToPoints(1) .PageSetup.LeftMargin = CentimetersToPoints(1.5) .PageSetup.RightMargin = CentimetersToPoints(1) End With AppWord.Visible = True ‘AppWord.Documents.Add.Range.PasteExcelTable False, False, False AppWord.ActiveDocument.SaveAs2 PathForFile$ & «» & NameWRD, _ 12, False, «», True, «», False, False, False, False, False, 14 AppWord.ActiveDocument.Close Application.CutCopyMode = False Set AppWord = Nothing Сообщение doober, просто в моём случае ошибка может быть очевидной, поэтому я подумал, что возможно и не в коде дело и моя ошибка лежит на поверхности Источник Adblock detector

Модератор:Naeel Maqsudov

objXL.Sheets(Array("Nakl", "Rees")).Copy After:=Sheets(intListovN)

objXL.Sheets(Array("Nakl", "Rees")).Copy After:=objXL.Sheets(intListovN)