Ошибка предполагается наличие окончания инструкции код 800а0401

Устраняем ошибку Windows Script Host

Исправляем ошибку Windows Script Host

Сразу стоит сказать о том, что если вы писали свой скрипт и при его запуске получили ошибку, то необходимо искать проблемы в коде, а не в системном компоненте. Например, вот такое диалоговое окно говорит именно об этом:

Такая же ситуация может возникнуть и в том случае, когда в коде имеется ссылка на другой скрипт, путь к которому прописан неверно либо данный файл вовсе отсутствует на компьютере.

Далее мы поговорим о тех моментах, когда при старте Windows или запуске программ, например, Блокнота или Калькулятора, а также других приложений, использующих системные ресурсы, появляется стандартная ошибка Windows Script Host. Иногда подобных окон может появиться сразу несколько. Случается такое после обновления операционной системы, которое может пройти как в штатном режиме, так и со сбоями.

Причины такого поведения ОС следующие:

• Неверно выставленное системное время.
• Сбой в работе службы обновлений.
• Некорректная установка очередного апдейта.
• Нелицензионная сборка «винды».

Вариант 1: Системное время

Многие пользователи думают, что системное время, которое показывается в области уведомлений, существует только для удобства. Это не совсем так. Некоторые программы, обращающиеся к серверам разработчиков или к иным ресурсам, могут работать некорректно или вовсе отказаться функционировать по причине расхождений в дате и времени. Это же касается и Windows с ее серверами обновления. В том случае, если будет расхождение в вашем системном времени и времени сервера, то могут наблюдаться неполадки с апдейтами, поэтому на это стоит обратить внимание в первую очередь.

Нажимаем на часы в правом нижнем углу экрана и переходим по ссылке, указанной на скриншоте.

Далее идем на вкладку «Время по интернету» и жмем на кнопку изменения параметров. Обратите внимание, что ваша учетная запись должна обладать правами администратора.

В окне настроек устанавливаем галку в указанный на изображении чекбокс, затем в выпадающем списке «Сервер» выбираем time.windows.com и нажимаем «Обновить сейчас».

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

Теперь ваше системное время будет регулярно синхронизироваться с сервером времени Майкрософт и расхождения не будет.

Вариант 2: Служба обновлений

Windows – это очень сложная система, с множеством одновременно протекающих процессов, и некоторые из них могут повлиять на работу службы, отвечающей за обновление. Высокое потребление ресурсов, различные сбои и занятость компонентов, помогающих апдейту, «заставляют» службу совершать бесконечные попытки выполнить свою работу. Сам сервис также может сбоить. Выход здесь один: отключить его, а затем перезагрузить компьютер.

Вызываем строку «Выполнить» сочетанием клавиш Win+R и в поле с названием «Открыть» пишем команду, которая позволит получить доступ к соответствующей оснастке.

В списке находим «Центр обновления», кликаем ПКМ и выбираем пункт «Свойства».

В открывшемся окне жмем кнопку «Остановить», а затем ОК.

После перезагрузки служба должна запуститься автоматически. Стоит проверить, так ли это и, если она все еще остановлена, включить ее тем же способом.

Если после выполненных действий ошибки продолжают появляться, то необходимо поработать с уже установленными обновлениями.

Вариант 3: Некорректно установленные обновления

Данный вариант подразумевает удаление тех обновлений, после установки которых начались сбои в Windows Script Host. Сделать это можно как вручную, так и с помощью утилиты восстановления системы. В обоих случаях необходимо вспомнить, когда «посыпались» ошибки, то есть после какой даты.

Идем в «Панель управления» и находим апплет с названием «Программы и компоненты».

Далее переходим по ссылке, отвечающей за просмотр обновлений.

Сортируем список по дате установки, кликнув по шапке последней колонки с надписью «Установлено».

Выбираем нужное обновление, кликаем ПКМ и выбираем «Удалить». Также поступаем с остальными позициями, помня про дату.

Перезагружаем компьютер.

Для перехода к данной утилите кликаем правой кнопкой мыши по значку компьютера на рабочем столе и выбираем пункт «Свойства».

Далее переходим к «Защите системы».

Нажимаем кнопку «Восстановление».

В открывшемся окне утилиты жмем «Далее».

Ставим галку, отвечающую за показ дополнительных точек восстановления. Необходимые нам поинты будут называться «Автоматически созданная точка», тип – «Система». Из них необходимо выбрать ту, которая соответствует дате последнего обновления (или того, после которого начались сбои).

Жмем «Далее», ждем, пока система предложит перезагрузиться и выполнит действия по «откату» к предыдущему состоянию.

Обратите внимание, что в этом случае могут быть удалены и те программы и драйвера, которые были установлены вами после этой даты. Узнать, произойдет ли это, можно нажав кнопку «Поиск затрагиваемых программ».

Читайте также: Как восстановить систему Windows XP, Windows 8, Windows 10

Вариант 4: Нелицензионная Windows

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

Заключение

Решения проблемы с Windows Script Host довольно просты, и с ними справится даже начинающий пользователь. Причина здесь ровно одна: некорректная работа инструмента обновления системы. В случае с пиратскими дистрибутивами можно дать следующий совет: пользуйтесь только лицензионными продуктами. И да, правильно пишите ваши скрипты.

Источник

Dadaviz

Ошибка Windows Script Host — как исправить

Системная ошибка «Windows Script Host» очень знакома пользователям Windows 7/8/10. Ее возникновение чаще всего сопровождается разными официальными обновлениями от компании Microsoft. Еще недавно все работало как надо, а тут вдруг при запуске приложений может происходить сбой или при загрузке Windows выскакивает черный экран и уведомлением об ошибке — «Не удается найти файл сценария» (run.vbs, launchall.js). Иногда с такой проблемой сталкиваются при установке Windows, что характерно она проявляется на официальных версиях от Microsoft тоже.

Ошибка 80070002 — Не удается найти указанный файл

Что это за ошибка?

К счастью для пользователей, данный конфликт сценариев вполне объясним, и связывается он с неправильными интегрированными установочными файлами. По разным причинам весь софт не смог полностью выгрузится в операционную систему. Тут виной являются обновления и установочный диск Windows, пиратская сборка. К дополнительным источникам проблемы нужно отнести: антивирусы, любые сторонние утилиты по оптимизации системы, пользовательские действия на системном диске и другие.

По не официальным данным Windows Script Host может создавать до нескольких сотен подобных ошибок, самые распространенные из которых: 80070002, 80070003 или 80070483. Решения у них бывают практически одинаковые, во многих случаях понадобится не более 5 минут для их реализации и исправления конфликтной ситуации.

Исправляем Windows Script Host (Код 80070002)

Далее мы приведем несколько методов, которые избавят вас от данного сбоя. Эти методы проверенны и одобрены многими юзерами, а также предлагаются как оптимальные на официальном форуме поддержки Microsoft.

Остановка служб обновления

Иногда процесс обновления ОС происходит не совсем корректно. Это бывает связанно с загруженностью системы, сбоях интернета и т.д. Решениями становятся не сложные манипуляции, которые сможет сделать абсолютно любой пользователь. Выполним остановку центра обновлений.

1. Перейдите в меню «Пункт» и посетите «Панель управления».
2. Найдите подменю «Администрирование».
3. Увидите список операций, кликните по «Службы».
4. В новом окне отсортируйте все службы ОС по имени, это поможет в поиске «Центр обновления Windows».
5. Кликните правой кнопкой мышки. Выберите «Остановить».

Остановка Центра обновлений Windows

Перезагрузите систему.

Это способ помогает прервать постоянные попытки компьютера получить новые обновления, которые могут вызывать ошибку 80070002.

Настройте время

Ошибка «Windows Script Host сценария» проявляется вследствие неправильно установленной даты на вашем ПК. Расхождения с главным сервером Microsoft во времени очень часто создает конфликты. Устанавливаемый софт строго соблюдает авторские права и поддержку разного рода DirectX , а они, как известно, не вечные.

1. Перейдите в правом углу в меню часов, для этого нажмите на них.
2. В самом низу будет одно единственное действие «Изменение настроек даты и времени».

Проверяем правильность настроек времени на ПК

Далее вводите правильное число и выбираете свой часовой пояс. А вообще лучше выставить автоматическое определение.

Самый простой способ решения, но не менее действенный от этого.

Удаление последних обновлений

Это вариант поможет в ручную решить данную ситуацию. Нужно будет посетить центр обновления и удалить все внесенные изменения за последнее время.

1. Через «Пуск» найдите уже знакомую «Панель управления».
2. Щелкните по службе «Программы и компоненты».
3. В левом меню из трех вариантов выберите «Просмотр установленных обновлений».
4. Отсортируйте все по дате добавления софта. Это можно сделать при помощи «Установлено».

Удалите обновления за последние пять дней

Начинайте с самой первой даты удалять все подряд. Примените это ко всем пунктам, которые были внесены в систему за пять последних дней.

А вот наглядная и подробная видео инструкция по исправлению подобной ошибки.

А вот хороший обзор о проблеме несколько иного сбоя службы Windows Script Host: «Не удается найти файл сценария run.vbs», который вызывает черный экран при загрузке и соответствующее уведомление.

Заключение

Данные советы помогут вам исправить системную ошибку Windows Script Host самым простым способом. Многие советуют залезть в реестр и менять значения и настройку некоторых служб — в большинстве случаев это не работает. Если манипуляции с обновлениями системы вам не помогли, тогда просто переустановите систему, тем более если у вас пиратская сборка Виндовс.

Источник

  

kodblack

12.02.15 — 09:43

  

Andrewww123

1 — 12.02.15 — 09:46

(0) Видимо, сейчас намекнут на текст ошибки.

  

kodblack

2 — 12.02.15 — 09:50

(1) хотелось бы

  

rsv

3 — 12.02.15 — 09:50

(0) Мутно как то все .   Настройте для начала в скуле линкованный сервер на источник данных Exel. Через него будете читать через OpenQuery например. Постестите все в MS Manag Studio, а опосля уже ADO.

  

bolobol

4 — 12.02.15 — 09:56

(2) что такое? Ошибка есть, а текста ошибки нет, что ли?

  

Andrewww123

5 — 12.02.15 — 10:02

(2) Раз хотелось, намекаю Напиши текст ошибки.

  

dk

6 — 12.02.15 — 10:04

  

kodblack

7 — 12.02.15 — 10:10

  

rsv

8 — 12.02.15 — 10:26

Тренеруетесь ?

  

kodblack

9 — 12.02.15 — 10:33

  

rsv

10 — 12.02.15 — 10:36

(9) Правой кнопкой мыши на БД в Скуле . Все задачи .  Импорт Данных . Откроется мастер импорта  данных .

  

kodblack

11 — 12.02.15 — 10:39

  

Andrewww123

12 — 12.02.15 — 10:39

Как я понимаю, это синтаксис не vbs, но могу ошибаться.

  

rsv

13 — 12.02.15 — 10:41

(11) MS Скуль . Объекты сервера . Связанные серверы. Правой кнопокой мыши . Создать свзанный сервер. т.е. (3)

  

kodblack

14 — 12.02.15 — 10:47

(13) — а какой драйвер выбирать??? что то excel не нашел.

  

rsv

15 — 12.02.15 — 10:49

(14) Что нить с Jet  там есть ?

  

kodblack

16 — 12.02.15 — 10:50

(15) нет

  

rsv

17 — 12.02.15 — 10:57

  

kodblack

18 — 12.02.15 — 11:09

  

N1kMZ

19 — 12.02.15 — 11:10

На стороне MS SQL проще делать. Через SSIS.

  

kodblack

20 — 12.02.15 — 11:12

(19) SSIS пакет не нашел

  

Jaap Vduul

21 — 12.02.15 — 11:36

  

kodblack

22 — 12.02.15 — 11:59

(21) спасибо — буду делать через ssis

  

kodblack

23 — 12.02.15 — 12:13

(21) т.е что бы добавить SSIS нужен VS?

  

N1kMZ

24 — 12.02.15 — 12:48

(23) Со стороны сервера лучше запускать, JOBом

  

kodblack

25 — 12.02.15 — 12:49

(24) а можно ссылку?

  

kodblack

26 — 12.02.15 — 12:50

нашел SSDTBI-VS2012 — написано что есть ssis

  

N1kMZ

27 — 12.02.15 — 12:50

(25) А на что ссылку? Создаётся job на SQL, в нём в качестве шага созданный ранее SSIS пакет. Ну а так документацию читать надо, в пост не влезет всё

  

Господин ПЖ

28 — 12.02.15 — 12:50

  

N1kMZ

29 — 12.02.15 — 12:55

  

rsv

30 — 12.02.15 — 13:06

Так что с линком то не копали ?  Там буков и телодвижений меньше .

  

rsv

31 — 12.02.15 — 13:07

+(30) и скорее скуль в (0) 64 разряда и не видит 32 разрядный Jet

  

N1kMZ

32 — 12.02.15 — 14:05

(31) SSIS пакет можно запускать в 32-разрядной среде принудительно (в свойствах пакета).

  

kodblack

33 — 13.02.15 — 07:46

(30) с линк сервером — не до понял что делать после добавления модуля.

  

kodblack

34 — 13.02.15 — 10:39

  

kodblack

35 — 13.02.15 — 10:40

И провайдер — выставился другой — OLE DB

  

kodblack

36 — 13.02.15 — 11:08

  

Jaap Vduul

37 — 13.02.15 — 11:24

  

kodblack

38 — 13.02.15 — 11:40

(37) Связь сделал. Но теперь сори за туп…ой вопрос — а как вогнать данные с таблицы в БД?

  

Jaap Vduul

39 — 13.02.15 — 11:44

  

kodblack

40 — 13.02.15 — 11:49

(39) — т.е что по ACE.OLEDB или по SSIS — путь один?

  

Jaap Vduul

41 — 13.02.15 — 11:54

  

kodblack

42 — 13.02.15 — 12:22

  

Jaap Vduul

43 — 13.02.15 — 12:38

  

kodblack

44 — 13.02.15 — 13:09

  

kodblack

45 — 13.02.15 — 13:11

(44) удалил PRIMARY KEY IDENTITY(1,1), и все заработало

  

Jaap Vduul

46 — 13.02.15 — 13:15

(46) он должен быть указан в таблице или sql сама задаст этой строкой? если сама то конечно надо.

This error is because you cannot dim variables as something in particular in VBS. Said more explicitly the «Dim» statement is used without defining the variable type in VBScript because all variables in VBScript are automatically of type Variant. If you attempt to Dim a variable as anything, it will throw an error.

Instead, you want:

Dim myNameSpace
Dim myFolder
Dim myNewFolder

Additionally, you seem to have just copied some VBA from Outlook and tried to run it as VBS.

VBscript does not know how to interpret Application.GetNameSpace("MAPI").

You will need to also create an Outlook Application.

dim myOutlook
set myOUtlook = CreateObject("Outlook.Application")

Also, since you cannot provide references in VBS, you have to use late binding for any objects (which is why I used CreateObject.) So re-written your code is as follows:

Option Explicit
Dim myOutlook
Dim myNameSpace
Dim myFolder
Dim myNewFolder

set myOUtlook = CreateObject("Outlook.Application")
Set myNameSpace = myOutlook.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6) '6 is the value of olFolderInbox
Set myNewFolder = myFolder.Folders.Add("Postini")  
Wscript.Echo "Folder created"
Wscript.Quit

Troubleshooting Code 800A0401 – Expected End of Statement

Good news, here is another example of a WSH error message with a helpful Char: number.  Count along the line until you get to the offending character.  With Error 800A0401 start by looking for missing ampersands (&).

Introduction to Code 800A0401

Error code, 800A0401 occurs when you execute a VBScript.  This is a compilation error, therefore check your punctuation.  A wild guess, you have left out an ampersand (&), or possibly a comma.

The Symptoms You Get

The script does not execute as you had hoped. Instead, Windows Scripting host generates a message box like this picture:  Good news, I have three examples of code: 800A0401.

The Cause of Code 800A0401 VBScript Error

Your VBScript contains a punctuation error.   Note: The clue from Source: Microsoft VBScript compilation error, this means a syntax error in your script.  In this case the Char: number (33) is particularly valuable in troubleshooting.

The Solution to Error: Expected end of statement

Check the syntax of your script, in particular double-check punctuation marks (&, comma, speech marks or full stop.).  In this instance, Windows Scripting Host has detected a mix-up between a comma and a full stop.  As ever, a line number is helpful when troubleshooting, moreover, any Char : number other than 1, will pin-point the problem.

  ‡

Example 1 of Script for Code 800A0401

Note: The error is at Line 3, Character 33 – wbemServices, Instances

It should be wbemServices.Instances  (Full stop, and not a comma)

‘ VBScript Error 800A0401
strComputer = «Alan»
set wbemservices = GetObject(«Winmgmts:\» & strComputer)
set wbemObjectSet = wbemServices, InstancesOf («win32_LogicalMemoryConfiguration»)
For each wbemobject in wbemobjectset
WScript.echo «Tot Physical Memory » & wbemobject.totalPhysicalMemory
Next

Guy Recommends:  A Free Trial of the Network Performance Monitor (NPM) v11.5

SolarWinds’ Orion performance monitor will help you discover what’s happening on your network.  This utility will also guide you through troubleshooting; the dashboard will indicate whether the root cause is a broken link, faulty equipment or resource overload.

What I like best is the way NPM suggests solutions to network problems.  Its also has the ability to monitor the health of individual VMware virtual machines.  If you are interested in troubleshooting, and creating network maps, then I recommend that you try NPM now.

Download a free trial of Solarwinds’ Network Performance Monitor

Example 2 of Script for Error 800A0401

Problem

Wscript.Echo objNetwork.UserName » at » & objNetwork.ComputerName

An & (ampersand) is missing it should be:

Correction

Wscript.Echo objNetwork.UserName & » at » & objNetwork.ComputerName

‘ VBScript 800A0401 Error
Set ObjNetwork = CreateObject(«Wscript.Network»)
Wscript.Echo objNetwork.UserName » at » & objNetwork.ComputerName

[ThemesGuy/google_leader728htm]

Example 3 – Missing Comma

The error is on line 10 char 33, it needs a comma between the drive letter and the UNC path

objNetwork.MapNetworkDrive «R:» «\alanbackup»
objNetwork.MapNetworkDrive «R:» ,  «\alanbackup»

Summary of Error Code 800A0401

As usual with 0800 error codes, check the line number and the char number.  Pay careful attention to any punctuation.  Is there a comma, missing?  Could there be a comma, where the script needs a full stop?

See More Windows Update Error Codes 8004 Series

• Error 800A101A8 Object Required   •Error 800A0046   •Error 800A10AD   •Error 800A000D

• Error 80048820   •Error 800A0401   •Review of SolarWinds Permissions Monitor

• Error 80040E14   • Error 800A03EA   • Error 800A0408   • Error 800A03EE

v11.5

SolarWinds’ Orion performance monitor will help you discover what’s happening on your network.  This utility will also guide you through troubleshooting; the dashboard will indicate whether the root cause is a broken link, faulty equipment or resource overload.

What I like best is the way NPM suggests solutions to network problems.  Its also has the ability to monitor the health of individual VMware virtual machines.  If you are interested in troubleshooting, and creating network maps, then I recommend that you try NPM now.

Download a free trial of Solarwinds’ Network Performance Monitor

Example 2 of Script for Error 800A0401

Problem

Wscript.Echo objNetwork.UserName » at » & objNetwork.ComputerName

An & (ampersand) is missing it should be:

Correction

Wscript.Echo objNetwork.UserName & » at » & objNetwork.ComputerName

‘ VBScript 800A0401 Error
Set ObjNetwork = CreateObject(«Wscript.Network»)
Wscript.Echo objNetwork.UserName » at » & objNetwork.ComputerName

[ThemesGuy/google_leader728htm]

Example 3 – Missing Comma

The error is on line 10 char 33, it needs a comma between the drive letter and the UNC path

objNetwork.MapNetworkDrive «R:» «\alanbackup»
objNetwork.MapNetworkDrive «R:» ,  «\alanbackup»

Summary of Error Code 800A0401

As usual with 0800 error codes, check the line number and the char number.  Pay careful attention to any punctuation.  Is there a comma, missing?  Could there be a comma, where the script needs a full stop?

See More Windows Update Error Codes 8004 Series

• Error 800A101A8 Object Required   •Error 800A0046   •Error 800A10AD   •Error 800A000D

• Error 80048820   •Error 800A0401   •Review of SolarWinds Permissions Monitor

• Error 80040E14   • Error 800A03EA   • Error 800A0408   • Error 800A03EE

Guy Recommends: WMI Monitor and It’s Free!

Windows Management Instrumentation (WMI) is one of the hidden treasures of Microsoft operating systems.  Fortunately, SolarWinds have created the WMI Monitor so that you can examine these gems of performance information for free.  Take the guess work out of which WMI counters to use for applications like Microsoft Active Directory, SQL or Exchange Server.

Download your free copy of WMI Monitor

---

Do you need additional help?

• For interpreting the WSH messages check Diagnose 800 errors.
• For general advice try my 7 Troubleshooting techniques.
• See master list of 0800 errors.
• Codes beginning 08004…
• Codes beginning 08005…
• Codes beginning 08007…
• Codes beginning 0800A…

Give something back?

Would you like to help others?  If you have a good example of this error, then please email me, I will publish it with a credit to you:

If you like this page then please share it with your friends

---

eremeev23rus Пользователь Сообщений: 24 Регистрация: 07.09.2015

#1 15.09.2015 11:10:40 Добрый день. Возникла потребность создать VBS файл. Данныйц фал должен открывать одну книгу, затирить в ней данные в диапазоне [A2:Hn], затем открывать другой файл копировать данные в таком же диапазоне и заливать в первую книгу. Затем выполнить 2 макроса. Из VBS знаю только как открыть файл игнорируя ошибок и сохранить его. Подскажите каким способом это можно реализовать. Код Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Visible = false ExcelApp.displayalerts = false ExcelApp.Workbooks.Open "Путь к файлу" ExcelApp.ActiveWorkbook.refreshall ExcelApp.ActiveWorkbook.Save ExcelApp.Workbooks.Close Set ExcelAp = Nothing

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64	eremeev23rus, здравия. Можно в ВБА написать этот макрос, отладить и после перенести в ВБС. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

	JayBhagavan, Спасибо, а данный макрос необходимо преобразовывать?

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64	eremeev23rus, а Вы попробуйте его так в ВБА запустить и узнаете. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

eremeev23rus Пользователь Сообщений: 24 Регистрация: 07.09.2015

#5 15.09.2015 11:29:20 JayBhagavan, Код Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Visible = false ExcelApp.displayalerts = false ExcelApp.Workbooks.Open "K:Исходник.xls" iLastRow = Sheets("Консолидации общий").Cells(Rows.Count, 8).End(xlUp).Row For i = 2 To iLastRow - 1     a = LCase(Sheets("Консолидации общий").Cells(i, 1).Value)     b = LCase(Sheets("Консолидации общий").Cells(i, 2).Value)     c = LCase(Sheets("Консолидации общий").Cells(i, 3).Value)     d = LCase(Sheets("Консолидации общий").Cells(i, 4).Value)     e = LCase(Sheets("Консолидации общий").Cells(i, 5).Value)     f = LCase(Sheets("Консолидации общий").Cells(i, 6).Value)     g = LCase(Sheets("Консолидации общий").Cells(i, 7).Value)     h = LCase(Sheets("Консолидации общий").Cells(i, 8).Value)     For j = i + 1 To iLastRow         a1 = LCase(Sheets("Консолидации общий").Cells(j, 1).Value)         b1 = LCase(Sheets("Консолидации общий").Cells(j, 2).Value)         c1 = LCase(Sheets("Консолидации общий").Cells(j, 3).Value)         d1 = LCase(Sheets("Консолидации общий").Cells(j, 4).Value)         e1 = LCase(Sheets("Консолидации общий").Cells(j, 5).Value)         f1 = LCase(Sheets("Консолидации общий").Cells(j, 6).Value)         g1 = LCase(Sheets("Консолидации общий").Cells(j, 7).Value)         h1 = LCase(Sheets("Консолидации общий").Cells(j, 8).Value)     If a = e1 And b = f1 And c = g1 And d = h1 And e = a1 And f = b1 And g = c1 And h = d1 Then     Cells(j, 1) = a     Cells(j, 2) = b     Cells(j, 3) = c     Cells(j, 4) = d     Cells(j, 5) = e     Cells(j, 6) = f     Cells(j, 7) = g     Cells(j, 8) = h     End If     Next j Next i ExcelApp.ActiveWorkbook.Save ExcelApp.Workbooks.Close Set ExcelAp = Nothing Подскажите, пожалуйста, что не так я сформировал?

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

eremeev23rus, что не так я сходу не скажу. (у меня нет Вашего файла, с которым работает макрос) А что Вас не устраивает или на чём ошибка возникает, если она есть? ПС Чтобы сократить текст кода используйте конструкцию With … End With для Sheets(«Консолидации общий»). И сравнение можно упростить, например: 1) через массивы, чтобы не создавать для каждой яч. переменную (это же брррррррр) 2) или формировать две строки с разделителем через Join и их сравнивать Всё вышесказанное — имхо, которое может быть ошибочным, но это я бы попытался реализовать будь у меня такая потребность. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

	JayBhagavan, при выполнении отображается ошибка: Предполагается наличие окончания инструкции, Код: 800A0401, ошибка компиляции. Я предполагаю, что VBA код я неверно перенес.

Влад Пользователь Сообщений: 1189 Регистрация: 24.12.2012	Нет в ВБС такие понятий как «Sheets» и «Cells» — это объекты книги/листа, поэтому должна быть указана полная ссылка на них.

	Влад, а можно пример? Для лучшего понимания.

Влад Пользователь Сообщений: 1189 Регистрация: 24.12.2012	#10 15.09.2015 12:04:12 Пример: Код .... Set wb = ExcelApp.Workbooks.Open("K:Исходник.xls") .... iLastRow = wb.Sheets("Консолидации общий").Cells(Rows.Count, 8).End(xlUp).Row

	Не удается сделать описаным методом. Может можно сделать, чтобы нажималась кнопка на листе в Excel?

Hugo Пользователь Сообщений: 23374 Регистрация: 22.12.2012	Rows.Count возможно тоже непонятно для vbs. Я всегда указывал чьи это rows. Изменено: Hugo — 15.09.2015 13:38:29

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64	#13 15.09.2015 13:43:25 Скрытый текст Изменено: JayBhagavan — 15.09.2015 14:09:42 Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

Hugo Пользователь Сообщений: 23374 Регистрация: 22.12.2012	Ну и для vbs первой строкой нужно написать jjj_vbs

Hugo Пользователь Сообщений: 23374 Регистрация: 22.12.2012	Нашёл ещё нестыковку — в vbs нельзя писать next переменная

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64	#16 15.09.2015 13:55:51 Цитата Hugo написал: в vbs нельзя писать next переменная Исправил. Цитата Hugo написал: Ну и для vbs первой строкой нужно написать jjj_vbs То есть нужно убрать Sub, () и End Sub? Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

Hugo Пользователь Сообщений: 23374 Регистрация: 22.12.2012	Ещё — xlUp нужно заменить на -4162

Hugo Пользователь Сообщений: 23374 Регистрация: 22.12.2012	#18 15.09.2015 14:00:43 Цитата JayBhagavan написал: То есть нужно убрать Sub, () и End Sub? Да, или первой строкой вызывать этот sub

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64	#19 15.09.2015 14:10:23 Hugo, благодарю за Ваши замечая. Вроде все учёл. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori