Как запустить программу на выполнение vba

Так, программный код:

A = Range(«H5»).Value, позволит присвоить переменной А значение целого числа, расположенного в ячейке Н5 рабочего листа. Это удобно использовать при передаче исходных данных, которые предварительно помещены в ячейки рабочего листа, в процедуру. Выражение Range(«C13″).Value = A, даст возможность поместить значение переменной А в ячейку С13, а если еще необходимо выдать текст “A=” в ячейку В13, следует применить программный код Range(«В13»).Value=“A=”. При необходимости заполнить группу ячеек, например В5-Е5, одинаковыми данными, это удобно реализовать с помощью выражения Range(«В5:Е5»).Value = A. Это позволит занести в ячейки с В5 по Е5 одинаковые значения переменной А.

11.3. Запуск программы на выполнение

Запуск программы на выполнение можно производить:

Из редактора Visual Basic;

Из Microsoft Excel.

11.3.1. Запуск из редактора Visual Basic

Запуск программы на выполнения из редактора Visual Basic можно осуществлять, как из диалогового окна «Макрос», так и непосредственно с активного окна программного кода.

Чтобы запустить программу из диалогового окна «Макрос» необходимо выполнить следующие действия:

Вызвать, одним из способов, диалоговое окно «Макрос»:

щелкнуть на кнопке «Run» (Выполнить) в панели инструментов «Standard» или «Debug» редактора VBA;

нажать клавишу «F5»;

выбрать команду меню RunRun Macro;

В появившемся окне «Макрос», вид которого представлен на рис. 4, выбрать необходимый макрос (например, Perimetr) и нажать клавишу «Enter» или кнопку с именем «Run», или двойным щелчком левой кнопкой мыши на имени макроса.

Запуск программы при активном окне программного кода осуществляется следующим образом:

В активном окне программного кода установить курсор в любой строке запускаемой программы;

Запустить программу одним из способов описанных выше (запуск окна «макроса»).

Рис. 4. Диалоговое окно «Макрос»

11.3.2. Запуск из Microsoft Excel

Запуск программы из Microsoft Excel можно осуществить как из, знакомого уже окна «Макрос», так и с использованием управляющей кнопки.

Запуск программы из диалогового окна «Макрос» выполняется таким же самым образом, как и в редакторе Visual Basic. Однако рассмотрим способы вызова диалогового окна «Макрос» средствами Microsoft Excel:

щелкнуть на кнопке «Run» (Выполнить) в панели инструментов «Visual Basic»;

выбрать команду меню СервисМакросМакросы…;

нажать сочетание клавиш «Alt+F8».

Для запуска программы по управляющей кнопке, в первую очередь, необходимо выполнить настройку кнопки и действия по «связыванию» кнопки с конкретной программой, для этого выполняются следующие действия:

нажать на кнопке , которая находится на панели инструментов «Формы»;

щелкнуть левой кнопкой мыши на месте, где будет размещаться кнопка;

в появившемся диалоговом окне «Назначить макрос объекту» из списка доступных макросов выбрать необходимый и нажать кнопку «OK».

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

Как запустить макрос в Excel разными способами

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

В данной статье для Вас буде приведет пошаговый пример с картинками и фрагментом простейшего готового кода VBA.

Как выполнить макрос VBA в Excel

Например, самый простой способ запустить макрос для понимания, но сложный для реализации:

1. Выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы».
2. В появившемся окне «Макрос» из списка всех в первую очередь доступных макросов для данной рабочей книги Excel выберите любой понравившийся вам и нажмите на кнопку «Выполнить».

Программа макроса выполнить свои функции.

Теперь мы можем двигаться от простого к еще простейшему) Ведь запускать макросы таким способом весьма неудобно. Далее рассмотрим более простые варианты.

Полезный совет! Если вы хотите отредактировать макрос тогда выберите его в списке выше описанного инструмента и нажмите на кнопку «Войти», а не используйте кнопку «Изменить». С помощью кнопки войти вы всегда сможете перейти к исходному коду выбранного макроса. Автоматически откроется редактор Visual Basic именно в том месте где написан код данного макроса. Кнопка «Изменить» к сожалению, не для всех макросов работает одинаково.

Внимание! Макросы, созданные в надстройках Excel, могут быть по умолчанию не доступны в списке диалогового окна «Макрос» в целях политики безопасности. Ведь имена макросов в надстройках Excel обычно скрыты от сторонних пользователей. Но если ввести правильно соответственное значение в поле «Имя макроса:» то все кнопки в диалоговом окне будут активными. А значит готовы к работе с данным макросом из надстройки и пользователь является автором надстройки или доверительным лицом.

Запуск макроса с помощью горячих клавиш

Для каждого макроса в Excel можно присвоить свою комбинацию горячих клавиш. Благодаря этому вы можете вызывать свою макропрограмму при нажатии определенной комбинации клавиш на клавиатуре. Что может быть ее проще?

Чтобы присвоить свою комбинацию клавиш для определенного макроса следует сделать так:

1. Снова выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы».
2. В появившемся диалоговом окне «Макрос» выберите желаемую макропрограмму из списка и нажмите на кнопку «Параметры».
3. В появившемся диалоговом окне «Параметры макроса» в поле ввода «Сочетание клавиш: CTRL+» введите маленькую или большую латинскую букву. И нажмите на кнопку ОК.

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

Обратите внимание! В диалоговом окне «Параметры макроса» доступно поле для ввода его описания. Данное описание будет доступно внизу при выборе макроса из списка. Рекомендуем всегда подписывать свои макросы. Такой пользовательский тон этики работы с Excel будет высоко оценен, когда список пополниться десятками макросов.

Полезный совет! Старайтесь не использовать популярные комбинации горячих клавиш для работы с Excel: CTRL+S; CTRL+A; CTRL+T; CTRL+C; CTRL+V; CTRL+SHIFT+L и т.п. Ведь тогда их предназначение будет изменено. В окне «Параметры макроса» так же присутствует возможность использовать в комбинациях клавиш клавишу SHIFT. Как только вы придадите фокус клавиатуры для поля ввода «Сочетание клавиш: CTRL+» и попытаетесь ввести большую букву для комбинации, естественно с использованием клавиши SHIFT на клавиатуре, сразу название поля ввода поменяется на «Сочетание клавиш: CTRL+ SHIFT+».

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

Как запустить макрос на панели быстрого доступа

Excel позволяет пользователям запускать макросы с помощью панели быстрого доступа к инструментам. Данная панель по умолчанию находиться в самом верху окна программы.

Чтобы запустить макрос с помощью панели быстрого доступа, требуется сделать так:

1. Щелкните на самую последнюю кнопку на панели быстрого доступа (стрелка вниз), чтобы получить доступ к меню «Настроить панель», в котором необходимо выбрать опцию «Другие команды». В результате чего откроется окно «Параметры Excel», к которому можно было получить доступ и другим путем: «ФАЙЛ»-«Параметры»-«Панель быстрого доступа». Или щелкнув правой кнопкой мышки по любой панели Excel на любой закладке и выбрать опцию «Настройка панели быстрого доступа».
2. В левом выпадающем списке «Выбрать команду из:» выберите опцию «Макросы».
3. В левом списке элементов ниже выберите необходимый макрос и нажмите на кнопку «Добавить». В результате чего в правом списке элементов появиться кнопка для нового инструмента быстрого запуска вашего макроса. Справа от правого списка элементов можно использовать стрелки для настройки положения и порядка расположения кнопок инструментов на панели быстрого доступа. И нажмите ОК.

Теперь на панели быстрого доступа появилась еще одна кнопка для. Достаточно нажать на нее и сразу же запуститься макрос.

Полезный совет! Чтобы изменить внешний вид кнопки для макроса в окне «Параметры Excel»-«Панель быстрого доступа», из правого списка элементов «Настройка панели быстрого доступа» следует выделить макрос и нажать на кнопку «Изменить». Будет предложена небольшая галерея иконок для нового оформления внешнего вида кнопки запуска макроса с панели инструментов.

Главным недостатком размещения кнопки с макросом на панели инструментов является то, что кнопка будет всегда доступна для других файлов, даже когда файл с этим макросом будет закрыт. И если в такие случаи нажать на кнопку запуска макроса, тогда откроется файл где он находиться и только потом выполниться VBA код.

Запуск макроса с помощью кнопки на рабочем листе Excel

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

1. Выберите инструмент: «РАЗРАБОТЧИК»-«Элементы управления»-«Вставить»-«Кнопка (элемент управления формы».
2. Выделите курсором мышки место где и как будет вставлена кнопка для запуска макроса.
3. В появившемся окне «Назначить макрос объекту» из списка доступным макросов выберите желаемый и нажмите на кнопку ОК.
4. Теперь нужно назначить кнопку макросу. Правой кнопкой мышки щелкните по созданной кнопке и в появившемся контекстном меню выберите опцию «Изменить текст». Удалите старый и введите новый текст «Мой макрос».

После создания кнопки можно ее настроить, изменив ее размеры и положение на листе. Для этого снова щелкните правой кнопкой мышки по кнопке, а потом нажмите клавишу Esc на клавиатуре, чтобы скрыть контекстное меню. У кнопки появляться маркеры, с помощью которых можно изменять ее размеры. Наведите курсор мышки на любой маркер на гранях или углах кнопки и удерживая левую клавишу мышки перетягивайте, изменяя таким образом ее размеры. Теперь нажмите на кнопку левой кнопкой мышки и удерживая ее перемещайте кнопку по листу документа Excel в любое другое место. Чтобы затвердить все изменения кнопки сделайте щелчок левой кнопкой мышки в любую область листа (например, по любой ячейке) вне области кнопки.

Теперь если мы нажмем на кнопку левой кнопкой мышки сразу же выполниться назначенный ей код VBA.

VBA учебник
Начало работы с VBA

В этом разделе представлен обзор того, что такое vba, и почему разработчик может захотеть его использовать.

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

Версии

Доступ к редактору Visual Basic в Microsoft Office

Вы можете открыть редактор VB в любом из приложений Microsoft Office, нажав Alt + F11 или перейдите на вкладку «Разработчик» и нажав кнопку «Visual Basic». Если вы не видите вкладку «Разработчик» в ленте, проверьте, включено ли это.

По умолчанию вкладка «Разработчик» отключена. Чтобы включить вкладку «Разработчик», перейдите в «Файл -> Параметры», выберите «Настроить ленту» в списке слева. В правой части дерева «Настроить ленту» найдите элемент «Дерево разработчика» и установите флажок «Проверить флажок разработчика». Нажмите «ОК», чтобы закрыть диалоговое окно «Параметры».

Вкладка «Разработчик» теперь отображается в ленте, на которой вы можете щелкнуть «Visual Basic», чтобы открыть редактор Visual Basic. В качестве альтернативы вы можете нажать «Просмотреть код», чтобы непосредственно просмотреть панель кода активного элемента, например WorkSheet, Chart, Shape.

Вы можете использовать VBA для автоматизации практически любых действий, которые могут выполняться в интерактивном режиме (вручную), а также предоставлять функциональные возможности, недоступные в Microsoft Office. VBA может создавать документ, добавлять в него текст, форматировать его, редактировать и сохранять, без вмешательства человека.

Первый модуль и Hello World

Чтобы начать кодирование в первую очередь, вы должны щелкнуть правой кнопкой мыши свой проект VBA в левом списке и добавить новый модуль. Ваш первый код Hello-World может выглядеть так:

Чтобы протестировать его, нажмите Play -Button на панели инструментов или просто нажмите клавишу F5 . Поздравляем! Вы создали свой собственный VBA-модуль.

отладка

Отладка — очень мощный способ более пристального взгляда и исправления некорректно работающего (или не работающего) кода.

Выполнить код шаг за шагом

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

• Точка останова ( F9 , Debug — Toggle breakpoint): вы можете добавить точку останова в любую выполненную строку (например, не к объявлениям), когда выполнение достигает этой точки и останавливается и дает управление пользователю.
• Вы также можете добавить ключевое слово Stop в пустую строку, чтобы остановить код в этом месте во время выполнения. Это полезно, если, например, перед линиями объявлений, к которым вы не можете добавить точку останова с F9
• Шаг в ( F8 , Debug — Step in): выполняется только одна строка кода, если это вызов определенной пользователем функции / функции, то это выполняется по строкам.
• Step over ( Shift + F8 , Debug — Step over): выполняет одну строку кода, не вводит пользовательские подмножества / функции.
• Выйти ( Ctrl + Shift + F8 , Debug — выйти): выйти из текущего суб / функции (запустить код до конца).
• Запустите курсор ( Ctrl + F8 , Debug — Run to cursor): запустите код, пока не дойдете до строки с помощью курсора.
• Вы можете использовать Debug.Print для печати строк в окне Immediate во время выполнения. Вы также можете использовать Debug.? как ярлык для Debug.Print

Окно часов

Запуск кода за строкой — это только первый шаг, нам нужно знать больше деталей, и один инструмент для этого — это окно часов (View — Watch), здесь вы можете увидеть значения определенных выражений. Чтобы добавить переменную в окно просмотра, выполните следующие действия:

• Щелкните его правой кнопкой мыши и выберите «Добавить часы».
• Щелкните правой кнопкой мыши в окне просмотра, выберите «Добавить часы».
• Перейдите в Debug — добавьте часы.

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

Немедленное окно

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

• ? ActiveSheet.Name — возвращает имя активного листа
• Print ActiveSheet.Name — возвращает имя активного листа
• ? foo — возвращает значение foo *
• x = 10 наборов x до 10 *

* Получение / установка значений для переменных через окно Immediate может выполняться только во время выполнения

Отладка лучших практик

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

Если это не поможет, начните отладку; для коротких процедур может быть достаточно просто выполнить его по строкам, для более длинных вам, вероятно, необходимо установить точки останова или разрывы на наблюдаемые выражения, целью здесь является поиск строки, которая не работает должным образом.

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

Как в excel открыть vba

Как в Excel 2010 или 2013 вставить и запустить код VBA – руководство для начинающих

​Смотрите также​ _ «C:\Users\C\Desktop\FOLDER» Workbooks.Open​IvanOK​Юрий М​Хоть Жераром Депардье​ все твои сообщения​ этом. Как только​ файл с несовпадающим​зы. кстати, везде,​’ Returns collection​ Ned_Poriv() exl =​а это читали:​

​ по его использованию​Окно​(Sheet);​ Basic, как показано​Application.ScreenUpdating = False​Это краткое пошаговое руководство​ Filename:= _ «C:\Users\Í\Desktop\FOLDER\FILENew.xls»​:​: Кирилл, а рекордер​ или психом в​ выискивая в них​ Михаилу потребуется изменить​ именем — нужный​ где возможно, я​ files of folder​

​ CreateObject(«excel.application») exl.Workbooks.Open(Filename:=»C:\Documents and​’111 это пароль​ (в приложении) :​Watches​Код более общего характера​ на картинке ниже.​Application.Calculation = xlCalculationManual​ предназначено для начинающих​ on error goto​IvanOK​ упорно пишет ChDir​ белой рубашке с​ «перлы» а ля​ что-то в коде,​

• ​повторюсь: моя функция​ тоже предпочитаю однострочный​
• ​’​ Settings\Сем\Рабочий стол\Excel.xls») exl.Sheets(«Період2»).Select()​

Вставляем код VBA в книгу Excel

​ на открытие файла,​[ссылка заблокирована по​также очень помогает​ должен быть введён​ Имейте ввиду, что​В самый конец кода,​

1. 1. ​ пользователей и рассказывает​ 0 дальше код​
   2. ​, На горе программист:​​ ))​​ пеной у рта​ nerv? Хочешь быть​
   3. ​ ему придется ковырять​​ абстрагируется от (свой,​​ If.​’ @param ​ exl.visible = True​ 11 это пароль​ решению администрации проекта]​ при отладке кода​ в​​ окно Excel остается​​ перед​​ о том, как​​ работы с открытым​
   4. ​ThisWorkbook.Windows.Application.Visible = False​KL​ (в ваших глазах).​ нарциссом — ради​ всю логику, в​ чужой и т.п.).​​Vitalts​​ Path The path​​ exl.Sheets(«71010000»).Select() exl.Cells.Select() exl.Selection.Delete(Shift:=xlUp)​​ на изменеие​S_e_m​

   ​ VBA, так как​Module​ открытым и находится​

   ​End Sub​
   ​ вставлять код VBA​

   ​ файломно очевидно, что,​ UserForm1.Show​: Юр, ну мало​ Моя точка зрения​ Бога. Растеряешь друзей.​ т.ч. логику получения​

   ​ Она просто возвращает​:​ to folder​​ exl.Sheets(«Період1»).Select() exl.Cells.Select() exl.Selection.Copy()​​Вы что тоже​: Ребята, подскажите как​​ в нём можно​​;​ позади окна редактора.​​:​​ (Visual Basic for​

   ​ если ошибки при​
   ​eagl69​

   ​ список файлов папки.​
   ​Michael_S​

   ​’ @param ​ exl.Sheets(«71010000»).Select() exl.Cells.Select() exl.ActiveSheet.Paste()​ создали файл с​ открывается книга Excel​ увидеть значение, тип​Код для нового объекта​В процессе работы в​Application.ScreenUpdating = True​ Applications) в книгу​ обращении по 1​:​ заборах пишут. Рекордер​Цитата​: Саш, это, конечно​ папки. В моем​ При желании может​, что значит не​ [Filter] The file​

   

   1. ​но вся проблема​​ требуется, т.к. вынесено​​Функцию можно подключить​ я не могу​’ @return ​ exl.Selection.Sort(Key1:=Range(«E1»), Order1:=xlAscending, Header:=xlGuess,​

   Запускаем макрос VBA в Excel

   ​ пароля. ))​Наперед СПАСИБО. ​​ задаст пользователь. Чтобы​​Class Module​​ быть открыты различные​​ понять из их​​ для выполнения различных​​ ко второму пути?​inv.DS​Юрий М​​ на свои коды.​​ в том -​

   

   ​ в функцию. Если​ и не вносить​
   ​ сказать где у​
   ​ FileList​

   ​ _ OrderCustom:=1, MatchCase:=False,​

   Редактор Visual Basic в Excel

   ​S_e_m​Ципихович Эндрю​ открыть окно​;​ окна. Управление окнами​ содержания, отключают обновление​ задач на этом​спасибо за советы.​, неа ефекто тот​: ))​И переменные из​ что она одна,​

   Запуск редактора Visual Basic

   ​ ему потребуется проверять​ существенных изменений в​ вас ошибка, ибо​’ —————————————-​​ Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal)​​: Так открывается с​: в ВБА так:​​Watches​​Если нужно создать диалоговое​ осуществляется в меню​​ экрана и пересчёт​​ листе.​МатросНаЗебре​ же. ​Assassinys​ одной буквы, и​ но для всех​ вложенные каталоги, ему​ основную программу (добавляется​

   

   Окна редактора Visual Basic

   ​ код замечательно работает.​Private Function GetFileList(ByVal​ ‘oExcel.Workbooks.Add() ‘oExcel.Sheets.Add.Name =​ этими паролями и​Set oExcel =​, нажмите​ окно для взаимодействия​ View, которое находится​ формул рабочей книги​Большинство пользователей не являются​:​

   Окно проекта (Project)

   ​нужно сделать до​​: Собственно меня интересует​​ Iif сплошь и​ разная!​ придется писать новый​ одна строка вызова​ Ни один год​ Path As String,​ ComboBox1.Text End Sub​ без них. Загвоздка​ CreateObject(«Excel.Application») ‘создать объект​Watch Window​ с пользователем, то​ в верхней части​ перед выполнением макроса.​ гуру Microsoft Office.​

   • ​If Err <> 0​​ sub workbook_open() иначе​​ как возможно открыть​ рядом, и еще​
   • ​Ты откатись чуть​​ алгоритм (перебирать всю​​ функции).​ пользуюсь подобными методами.​ _​

   ​ End ModuleПосле запуска​ в том, что​​ Microsoft Excel oExcel.Workbooks.Open​​в меню​​ можно использовать​​ окна редактора VBA.​​ После выполнения кода​​ Они могут не​ Then​ ефект полюбому останется. ​ форму в документе​ куча всего, что​​ назад, и взгляни​​ логику, вносить изменения,​​Цитата​​Попробуйте вывести название​​Optional ByVal Filter​​ в конце строки​

   ​ я дальше хочу​ «D:\Рабочая папка\» &​​View​​Userform​​ Ниже дано описание​​ эти параметры снова​​ знать всех тонкостей​​all L​

   • ​ потому что сначала​​ эксель но так​​ ты сейчас критикуешь!​ на свои коды.​ отлаживать и т.п.​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Я уж не​ файла, который пытаетесь​
   • ​ As String =​​ 27 выдаёт ошибку​​ выделить какой-то диапазон​ Имя_файла, , ,​​редактора Visual Basic.​​.​​ отдельных окон.​​ включаются. Данный приём​​ работы той или​​: Попробуем. спасибо!​

   ​ открываеться ексель а​ что бы была​в том то​И переменные из​ всю программу, а​ говорю о размере​ открыть, возможно, лимит​

   • ​ «*») As Collection​ —-​ ячеек и копировать​ , «111», «11»​​ Также окно​​Двойной щелчок мышью по​
   • ​Окно​ приводит к ускорению​ иной функции, и​Sanja​​ потом он выполняет​​ видна только форма​
   • ​ и дело. Я​ одной буквы, и​ не отдельную функцию).​​ кода.​​ исчерпан, и идет​
   • ​Static List As​Object variable or With​ их, а мне​​ ‘111 это пароль​​Watches​
   • ​ любому объекту в​Project​ выполнения макроса от​ не смогут ответить​​: . ​​ макрос​

   Окно кода (Code)

   ​ при открытии документа​ сам делал так​ Iif сплошь и​​Если вы предпочитаете​​Качество кода не​​ попытка открыть файл​​ New Collection​ block variable not​ выдает ошибку на:​ на открытие файла,​будет открыто автоматически,​ окне​​открывается в левой​​ 10% до 500%​

   ​ на вопрос, как​If Err <>​​IvanOK​​ а сам документ​ (писал ужасный, говеный​ рядом, и еще​ закладывать фундамент дома​ измеряется его размером.​ с пустым названием.​

   Окно свойств (Properties)

   ​Static FSO As​​ set.​​Range​ 11 это пароль​ если задать отслеживаемое​Project​ части редактора VBA​ (да, макрос может​ отличается скорость выполнения​ 0 Then PathName​, Вы бредите! Все​ был скрыт или​ код) и не​

   

   Окно отладчика (Immediate)

   ​ куча всего, что​​ из спичек, я​​ Вообще, не понимаю,​ Не совершенство кода,​ Object​​—​​(«A8:C7»).Select Ощущение, что​​ на изменеие ‘oExcel.Workbooks.Open​​ выражение.​открывает соответствующее окно​​ (показано на картинке​​ работать в 5​ макроса VBA в​ = ChDir(«Y:\Public\Folder1») Else​ работает у меня​ свернут?​ хочу, чтобы кто-нибудь​ ты сейчас критикуешь!​ не против, но​ почему форумчан беспокоит​

   ​ написанного на скорую​​Static Deep As​​Также в 29​​ книга «AIC_SIP» активна​​ «D:\Рабочая папка\» &​Чтобы задать отслеживаемое выражение,​Code​​ выше). В этом​​ раз быстрее, если​

   

   Окно переменных (Locals)

   ​ Excel 2010 и​​ PathName = ChDir(«C:\Users\C\Desktop\FOLDER»)​​ остается только 1​​аналитика​​ еще наступал на​​Мне Вася уронил​​ сам стараюсь этого​ размер (не только​ руку :(​ Integer​ строке​ (потому что окрыта),​ Имя_файла, , ,​ нужно:​, предназначенное для ввода​ окне для каждой​ манипуляции над ячейками​ 2013. Многие просто​​ End If Workbooks.Open​​ форма активная, сам​: в модуль «ЭтаКнига»:​

   

   Окно отслеживания (Watches)

   ​ эти грабли. Это​​ молоток на голову!​​ не делать​ этого) кода, если​Судя по скрину,​Dim SubFolder As​Range​ а Лист1 не​ ,111, 11 ‘111​Выделить выражение в редактируемом​ кода VBA с​​ открытой рабочей книги​​ происходят без лишних​​ используют Excel, как​​ Filename:=PathName & «\FILENew.xls»​​ Excel прячется.​​sub workbook_open() application.visible=false​ ж очевидно )​​И что вы​​Цитата​ код написан должным​ так и есть.​

   

   ​ Object​Ошибка 1 «System.Data.Range»​

   1. ​ активный и не​ это пароль на​
   2. ​ коде VBA.​​ клавиатуры. На одном​​ создаётся проект VBA​​ остановок).​​ инструмент для обработки​
   3. ​Kuzmich​​inv.DS​​ yourform.show end sub​

   ​deathogre​ ему сказали?​(Serge_007)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Кстати и скорость​ образом? Подключили, забыли.​ Приведите код​Dim Folder As​ в этом контексте​ хочет с ним​

   ​ открытие файла, 11​В меню​
   ​ из приведённых выше​
   ​ (VBA Project). Проект​

   ​Сохраняем рабочую книгу, как​

   Как открыть visual basic через excel в office 2007?

   ​ данных.​​: Используйте диалоговое окно​

   ​, ето вы просто​​Assassinys​
   ​: Здрасьте. Как программно​Ты. Вася. неправ. ​ тоже от длинны​

   ​ Если хотите по​​Michael_S​ Object​
   ​ недоступен, так как​ контачить.​
   ​ это пароль на​Debug​ рисунков показано окно​
   ​ VBA – это​ книгу Excel с​Предположим, нужно изменить данные​ выбора файла​
   ​ не замечаете не​: не работает(​ открыть книгу эксель​nerv​
   ​ не всегда зависит​ прежнему заниматься ручной​: Vitalts, Все, разобрался.​

   ​Dim File As​​ является «Friend».​Спасибо что отозвались​ изменеие oExcel.Visible =​редактора VBA нажать​

   Как в excel открыть visual basic.

   ​ кода для​​ набор всех объектов​ поддержкой макросов. Для​ на листе Excel​
   ​Set FD = Application.FileDialog(msoFileDialogFilePicker)​ мощном ПК, а​

   ​Assassinys​​ и сохранить эту​: об единственной опечатке​зависит от алгоритма,​ обсфукацией, экономить на​ Не туда​ Object​dzug​ (ещё раз)​ True ‘FalseНеужели в​Quick Watch​Module1​ и модулей VBA,​ этого нажмите​
   ​ определённым образом. Мы​all L​ я говорю делоВ​

   ​:​​ книгу (объект) в​ я предупредил сразу.​ а не от​
   ​ каждой букве, пожалуйста.​Set wb = Workbooks.Open(ActiveWorkbook.Path​

   Открытие Excel и активация нужного листа

   ​If FSO Is​​: Посмотрите это:​Ципихович Эндрю​ ВБ не так??​.​
   ​.​

   ​ привязанных к текущей​​Ctrl+S​
   ​ немало погуглили и​: Kuzmich, Sanja, спасибо​ продолжение темы:​Assassinys​ глобальной переменной?​ Это раз. Два,​ кол-ва букв )​Я пишу универсальные​ & «\» &​ Nothing Then​Обработка активной книги​: Это решено. и​ проверьте, отпишитесь, ОК??​Нажать​По мере ввода кода​ книге. Изначально в​и в окне​ нашли макрос VBA,​ за советы. Начну​Private Sub CommandButton8_Click()​

   ​, работает.​​Юрий М​ кто-то не знает,​Цитата​ функции, кот. таскаю​ fn)​Set FSO =​ Excel​ ладно . ​S_e_m​Add​ VBA в окно​ него входят:​ с предупреждением​ который решает эту​ с предложения Sanja​ Application.Visible = False​Код надо поместить​
   ​: 1. Открытие нужной​ что от него​(Serge_007)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Мы все тут​
   ​ (использую) из проекта​впихивал.​ CreateObject(«Scripting.FileSystemObject»)​S_e_m​здесь​: Всё так. Только​.​Code​Объект​Следующие компоненты невозможно сохранить​ задачу. Однако, наше​ (для сохранения «молчаливой»​ End Sub Private​ куда и сказано​ книги запишите макрорекордером​ хочет компилятор при​ хотим размер покороче​ в проект. Мне​Еще раз спасибо.​End If​: Ничего не помогает.​Windows(«AIC_SIP.xls»).Activate ‘активация моего​ я, пока, чайник​Кроме рассмотренных, в меню​, редактор Visual Basic​ЭтаКнига​ в книге без​ знание VBA оставляет​ работы процедуры), если​ Sub CommandButton9_Click() Application.Visible​ -​ — получите готовый​

   ​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Option Expicit​​ и даже соревнуемся​ это не мешает​nerv​If FSO.FolderExists(Path) Then​ Не получается у​ файла Range(«A1:C3»).Select ‘выбираю​ и совсем недавно​ редактора Visual Basic​ следит за правильностью​(ThisWorkbook), привязанный к​
   ​ поддержки макросов​ желать лучшего. Вот​

   ​ не подойдет, то​​ = True End​
   ​в модуль «Эта книга»​ код.​
   ​я тут не​
   ​ в этом постоянно​
   ​ ) Если вам​: просто вы не​Set Folder =​ меня сортировка. Уже​
   ​ диапазон ячеек Selection.Copy​ начал изучать язык​ в Excel существует​ ввода, ищет ошибки​ книге Excel;​

   ​(The following features​​ тут-то и придёт​ окно выбора файла​ SubЛист скрывается а​yourform​2. Dim Wb​ при чем )​ в специально созданном​ нравиться каждый раз​ писали МНОГО кода​​ FSO.GetFolder(Path)​​ кучу сайтов перелазил​ ‘копируюв переди пробуйте​ программирования, а тут​ ещё множество параметров​ в коде и​Объекты​ cannot be saved​
   ​ на помощь пошаговая​ уж точно поможет.​

   ​ вот при открытии​​заменить на свое,​ As Workbook Set​
   ​Цитата​
   ​ для этого разделе​ переписывать весь код,​Когда перед тобой​For Each File​ — не могу​
   ​ добавлять oExcel.​ ещё по работе​
   ​ и команд, используемых​ выделяет код, который​

   ​Лист​​ in macro-free workbook)​ инструкция, с помощью​
   ​ вопрос, думаю, закрыт.​ появляется еще какой​
   ​ например, у меня​ Wb = ActiveWorkbook​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Ты упорно пытаешься​за рекламу 5​ я не против​ 1000+ строк в​ In Folder.Files​ разобраться.​то есть как​ нужно было. Короче​ при создании, выполнении​ требует исправления.​(Sheet), привязанные к​ нажмите​ которой мы сможем​ Спасибо.​ то лист пустой​Userform1​Hugo​
   ​ доказать всем участникам​Michael_S​Serge_007​ одном только модуле,​If File.Name Like​Michael_S​ Вы здесь обращались:​
   ​ получилось, но открывает​
   ​ и отладке кода​В окне​ каждому листу текущей​Нет​ использовать найденный код.​

   ​Александр Моторин​​all L​Aleksey1404​: Set wb =​ темы​

   ​: У каждого свои​​: Точно так же​ нет желания разбирать​ Filter Then​: Все, что об​oExcel.Visible = True​ не из всех​
   ​ VBA.​Properties​ рабочей книги Excel.​(No).​Вставляем код VBA в​: А где находится​: Добрый день,​: Да заработало ,​ Workbooks.Open(filename)​я отстаиваю свою​ понятия «правильности»​ как и формул.​ и додумывать. Хочется​List.Add File​ этом файле известно​ ‘False​ папок. С некоторых​Урок подготовлен для Вас​перечислены свойства объекта,​Самостоятельно в проект можно​Откроется диалоговое окно​ книгу Excel​ сам файл?​Подскажите, можно ли​ я просто имя​deathogre​ точку зрения​Саш, мы уже​ Кстати и скорость​​ просто читать. Максимально​End If​ — он находится​​S_e_m​
   ​ папок выдаёт ошибку,​ командой сайта office-guru.ru​​ который в момент​​ добавить объекты​Сохранение документа​Запускаем макрос VBA в​Если рядом с​

   ​ решить такую задачу:​​ формы некорректное выбирал​
   ​: Мне нужно открыть​Цитата​

   ​ как-то говорили на​​ тоже от длинны​ быстро читать понятный​Next​ в той же​: Я уже на​ что нету доступа.​

   Открыть файл excel. (VBA) (Задача вроде простая, но. )

   ​Источник: http://www.excelfunctions.net/Visual-Basic-Editor.html​​ создания (не в​Userform​(Save as). В​ Excel​ нужным файлом, то​Работаю с файлом,​Апострофф​ книгу из другой​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>и правда думаешь,​ эту тему; твои​ не всегда зависит​ не двусмысленный код.​For Each SubFolder​ папке, где и​
   ​ пике восторга​ Если знаете в​

   ​Перевел: Антон Андронов​​ процессе выполнения программы)​,​

   ​ выпадающем списке​​В этом примере мы​ ActiveWorkbook.Path поможет​ в котором прописана​: А как обратно​
   ​ книги​
   ​ что кому-то интересно​ доводы отчасти верны,​
   ​Однако ты прав,​
   ​ «С недавних пор»​ In Folder.SubFolders​
   ​ основной, и других​Получилось, как Вы​
   ​ чем проблема, отпишите​Автор: Антон Андронов​
   ​ выделен в окне​
   ​Module​
   ​Тип файла​
   ​ будем использовать VBA​

   ​all L​ VBA-процедура, на работе​ открыть файл для​Юрий М​
   ​ искать все твои​ но не для​ форумчан это очень​
   ​ однострочный If я​
   ​Deep = Deep​ файлов в этой​ сказали. Вот так​ пожалуйста. А пока,​

   ​Виталик александровский​​ проекта. Эти свойства​и​(Save as type)​
   ​ макрос, который удаляет​: Нет, Александр, не​ и дома.​
   ​ редактирования (((​
   ​: И что?​ сообщения выискивая в​
   ​ всех случаев.​
   ​ беспокоит​
   ​ не использую вообще​ + 1​
   ​ папке нет. И​
   ​Set oExcel =​ очень благодарен за​: Alt плюс F11​
   ​ могут быть различными​Class Module​ выбираем​
   ​ переносы строк из​ с нужным. Спасибо.​
   ​Процедура эта в​
   ​Aleksey1404​deathogre​ них «перлы» а​
   ​Michael_S​Мы все тут​ )​
   ​GetFileList SubFolder.Path, Mask​ что он -​
   ​ CreateObject(«Excel.Application») ‘создать объект​ помощь. ​
   ​Gkp090​ в зависимости от​
   ​. Если Вы посмотрите​Книга Excel с поддержкой​
   ​ ячеек текущего листа​RAN​
   ​ процессе работы обращается​: Разве не очевидно?​
   ​: Объявил глобальную переменную​ ля nerv?​
   ​: То же не​ хотим размер покороче​
   ​Цитата​
   ​Next​
   ​ эксель. Ни имя​ Microsoft Excel oExcel.Workbooks.Open​
   ​В принципе разобрался​: VBA​
   ​ типа выделенного объекта​ на картинку выше,​
   ​ макросов​
   ​ Excel.​
   ​: Не тестировал, но​
   ​ к еще одному​ Application.Visible = True​
   ​ в модуле ЭтаКнига​если мне говорят,​
   ​ работает​
   ​ и даже соревнуемся​
   ​(Michael_S)200?’200px’:»+(this.scrollHeight+5)+’px’);»>жалуется на Mask​Deep = Deep​
   ​ и расширение файла,​
   ​ «C:\Documents and Settings\S_e_m\Рабочий​ с открытием, но​
   ​в настройках выставить​ (лист, книга, модуль​
   ​ то увидите, что​(Excel macro-enabled workbook)​
   ​Открываем рабочую книгу в​ на правду похоже​
   ​ файлу (открывает его,​
   ​Апострофф​
   ​ Public Главнейшая As​
   ​ что я не​nerv​​ в этом постоянно​Это та самая​

   ​ — 1​​ а также имя​​ стол\AC_SIP\222″ & xls​​ тут проблема дальше​ «Показывать вкладку Разработчик​ и другие).​​ в проект VBA​ и нажимаем кнопку​
   ​ Excel.​Sub Мяу() Dim​ производит определенные действия),​: Может есть какое-то​ Workbookоткрыл книгу в​ прав, я спрашиваю​: Захотелось кнопку «Ok»​ в специально созданном​
   ​ ошибка, о кот.​End If​ и расположение папки​ ‘открываю книгу 222​

   ​Private Sub Command1_Click()​​ на ленте»​Окно​ для книги​
   ​Сохранить​Нажатием​ wb As Workbook​​ который на работе​​ сочетание клавиш, позволяющее​ модуле АктивХ формы​ в чем, а​ нажать​ для этого разделе​
   ​ я говорил. Замените​
   ​If Deep =​ не известны.​ oExcel.Visible = True​ Set oExcel =​

   ​Александр к​​Immediate​​Book1.xlsm​​(Save).​Alt+F11​ Dim pName(), fName$,​ лежит на диске​ открыть файл без​ChDir «\\Margo\123\Тест» Workbooks.Open​ не заведомо соглашаюсь​Там же написано​
   ​KuklP​ Mask на Filter.​ -1 Then​Возможно? Если возможно​ ‘False oExcel.Range(«B5:E13»).Select ‘выбираю​ CreateObject(«Excel.Application») ‘ñîçäГ*ГІГј îáúåêò​: На вкладке Разработчик​можно отобразить в​добавлен объект​
   ​Нажимаем​вызываем окно редактора​ i& pName =​

   ​ Y, дома на​​ отработки макроса(shift не​ Filename:=»\\Margo\123\Тест\06.02.2016.xlsm» Set ЭтаКнига.Главнейшая​​Цитата​ «Переменная не определена»​: Еще как измеряется.​​Цитата​
   ​Set GetFileList =​

   ​ — как?​​ диапазон ячеек oExcel.Selection.Copy​ Microsoft Excel oExcel.Workbooks.Open​​ щелкните Visual Basic.​ редакторе Visual Basic​Module​Alt+Q​ Visual Basic​ Array(«Y:\Public\Folder1\», «C:\Users\C\Desktop\FOLDER\» fName​ диске С. Имя​ помогает), т.к. у​ = Workbooks(«\\Margo\123\Тест\06.02.2016.xlsm»)выдает ошибку​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Растеряешь друзей.​ и даже выделено​ Можно написать на​
   ​(Vitalts)200?’200px’:»+(this.scrollHeight+5)+’px’);»>В данном случае,​​ List​
   ​nerv​ ‘копирую oExcel.Workbooks.Open «C:\Documents​ «C:\111\AIC_SIP» & AIC_SIP,​Если Вкладка Разработчик​
   ​ через меню​​с названием​, чтобы закрыть окно​На панели​ = «хи-хи.xls» On​ файла одинаковое, пути​ меня отображается форма,​
   ​ на 3 строке,​т.е. если наши​ какая. Что мешает​
   ​ 10 страниц «правильного»​​ мне караз таки​Set List =​: Получить список файлов​ and Settings\S_e_m\Рабочий стол\AC_SIP\111″​
   ​ , , ,​ не отображена:​View​Module1​ редактора VBA и​Project-VBAProject​ Error Resume Next​ к нему разные.​ но я не​

   ​ Run-time error 9​​ мнения не совпадают,​ объявить? Это же​ кода, а можно​
   ​ было удобнее воспользоваться​ Nothing​ папки​ & xls ‘открываю​ 111, 11 ‘111​Нажмите кнопку Microsoft​>​.​ вернуться к книге​кликаем правой кнопкой​

   ​ Do While wb​​Сейчас обращение к​ могу добавить код​ Subscript out of​​ то я уже​ пример )​ то же действие​
   ​ однострочным if, дабы​​Set FSO =​Vitalts​ другую книгу 111​
   ​ ГЅГІГ® ГЇГ*ðîëü Г*Г*​ Office, а затем​Immediate Window​Вот как можно создать​ Excel.​ мыши по имени​ = Nothing Set​
   ​ этому файлу выглядит​ по причине отсутствия​ range​ автоматически не друг,​Цитата​ описать одной строкой.​
   ​ не закрывать, а​​ Nothing​: Все названия Excel​ oExcel.Visible = True​
   ​ îòêðûòèå ГґГ*éëГ*, 11​ — Параметры Excel.​или нажатием комбинации​ новый объект​Чтобы запустить только что​ рабочей книги (в​ wb = Workbooks.Open(Filename:=pName(i)​ следующим образом:​ окна екселя. код​Юрий М​ потому, что «мнения​(Michael_S)200?’200px’:»+(this.scrollHeight+5)+’px’);»>У каждого свои​
   ​ Что легче можно​ перенос для наглядности.​Deep = 0​ файлов в папке​ ‘False oExcel.Range(«A1»).Select ‘Выделил​ ГЅГІГ® ГЇГ*ðîëü Г*Г*​Щелкните Популярное и​ клавиш​Userform​

   ​ добавленный макрос, нажмите​​ левой верхней части​ & fName) i​1ый путь:​ не большой написан,​: Глобальную переменную в​
   ​ друзей должны совпадать​ понятия «правильности»​ будет понять и​
   ​для наглядности многострочный​End If​ активной книги, исключая​ стартовую ячейку oExcel.ActiveSheet.Paste​ èçìåГ*ГҐГЁГҐ oExcel.Visible =​ затем установите флажок​

   ​Ctrl+G​​,​Alt+F8​ окна редактора) и​ = i +​Sub MyCode ()​ просто стало интересно)​ стандартный модуль -​ всегда»? (это следует​вообще-то нет​ отредактировать? Ведро картошки​ If. В вашем​End Function​ ее:​ ‘ВставилЭто для примера,​​ True ‘False Windows(«AIC_SIP.xls»).Activate​​ Показывать вкладку «Разработчик»​. Это окно помогает​

   ​Module​​. Откроется диалоговое окно​ в контекстном меню​
   ​ 1 Loop End​​ ChDir _ «C:\Users\C\Desktop\FOLDER»​Aleksey1404​ будет доступна всюду.​ из твоих слов)​Правильность она «одна​
   ​ можно отвезти на​ случае это неочевидность.​впрочем, уже вижу​
   ​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​​ может комуто и​ ‘Г*ГЄГІГЁГўГ*öèÿ ìîåãî ГґГ*éëГ*​ на ленте.​
   ​ при отладке кода.​или​Макрос​ выбираем​ Sub​
   ​ Workbooks.Open Filename:= _​​:​ И модуль не​Цитата​ на всех мы​
   ​ мопеде, не нужен​Цитата​ косяк​Dim fn As​ понадобится.​ Range(«A1:C3»).Select ‘âûáèðГ*Гѕ äèГ*ГЇГ*çîГ*​Примечание. Лента является​ Оно выполняет роль​Class Module​(Macro). В списке​Insert​Doober​ «C:\Users\Í\Desktop\FOLDER\FILENew.xls» дальше код​Aleksey1404​ нужно указывать.​(RAN)200?’200px’:»+(this.scrollHeight+5)+’px’);»>но вся проблема​ за ценой не​ для этого БелАз.​(Vitalts)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Кстати, проверки названий​но не критичный​ String​Но всегда есть​ ГїГ·ГҐГҐГЄ Selection.Copy ‘êîïèðóþ​
   ​ частью интерфейса «Пользовательский​ области вывода для​:​Имя макроса​>​: Проверил,работает​
   ​ работы с открытым​​, Вы наверно не​Если книга уже​ в том -​
   ​ постоим», только это​ Но если тебе​ файлов на самого​
   ​ )​​With ActiveWorkbook​ но. Дальше у​ End SubВыдаёт ошибку​ интерфейс Microsoft Office​ отладки выражений и​В окне​
   ​(Macro name) выберите​

   ​Module​​Sub Гав_Гав() PathForFile$​ файломДальше работа с​
   ​ с того конца​ открыта — зачем​ что она одна,​ не все понимают​ так​ себя у вас​

   ​Vitalts​​fn = Dir(.Path​ меня куча строк​

   ​ и что хочешь​​ Fluent».​ позволяет вычислять отдельные​​Project​ нужный макрос и​.​ = Get_Folder &​ открытым файлом.​ начали программу писать​
   ​ указывать путь?​​ но для всех​ )​
   ​нравитЬся​​ нет.​:​ & «\*.xls*»)​ с заданием (макрос​ делай. Подскажите пожалуйста​В меню Справка​
   ​ выражения или выполнять​​выберите рабочую книгу,​ нажмите кнопку​Копируем код VBA (с​ «FILENew.xls» End Sub​И когда мне​Сначала следовало забить​
   ​deathogre​ разная!​Цитата​

   ​, я тоже не​​функция, представленная мной​nerv​Do Until fn​ короче написан). Мне​ как активизировать тот​ выберите пункт Справка:​ строки кода по​ в которую нужно​Выполнить​
   ​ веб-страницы или из​ Public Function Get_Folder()​ надо поменять путь​ в форму код,​: Мне нужно в​Не поверишь, есть​​(Michael_S)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Саш, мы уже​​ против​ возвращает список файлов​, эээ, и вы​ = «»​ что, перед каждой​ лист и работать​ Microsoft Visual Basic.​ одной.​ добавить объект, и​(Run).​ другого источника) и​

   ​ As String Set​​ к этому файлу,​а потом в​
   ​ открытую книгу писать​ нюансы, но в​ как-то говорили на​nerv​ заданной папки. Понятия​
   ​ утверждаете что у​If fn <>​ командой ставить oExcel?​
   ​ в нём (я​Роман царьков​Например, введите выражение «​ кликните по ней​Урок подготовлен для Вас​ вставляем его в​
   ​ FSO = CreateObject(«Scripting.FileSystemObject»)​ я его просто​
   ​ прятки с​ изменения, через глобальную​
   ​ целом правильность одинаковая​

   ​ эту тему; твои​​: чуть меньше неверно,​ «самого себя» здесь​ меня извороты?​ .Name Then: _​Всё. Получилось. Строка​ так понимаю, нужно​
   ​: кнопка Visual Basic​
   ​?j​ правой кнопкой мыши.​
   ​ командой сайта office-guru.ru​​ правую область редактора​ If FSO.FolderExists(«C:\Users\C\Desktop\FOLDER\») Then​ переписываю руками:​
   ​Excel​ переменную хочу обращаться​
   ​Я общаюсь не​​ доводы отчасти верны,​ чем полностью​ нет, т.к. функции​Чем вам Dir​Debug.Print fn​oExcel.Application.Run «‘111.xls’!ГЊГ*êðîñ1″сделала свою​
   ​ WorkSheets сделать активным,​ подсвечена серым и​» и нажмите​В появившемся меню кликните​Источник: https://www.ablebits.com/office-addins-blog/2013/12/06/add-run-vba-macro-excel/​
   ​ VBA (окно​​ Get_Folder = «C:\Users\C\Desktop\FOLDER\»​
   ​2 путь:​`ем играть.​ к этой книге​ только (и уже​ но не для​Цитата​ все равно, откуда​ не угодил?​
   ​fn = Dir​​ работу. А Вам,​ а не всю​ не работает как​Enter​Insert​
   ​Перевел: Антон Андронов​Module1​ Else ‘ Get_Folder​​Sub MyCode ()​Странно, у меня​Юрий М​ не столько) на​ всех случаев​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Можно написать на​ она вызывается. Думаю,​Похоже, изначально не​Loop​ Ципихович Эндрю, очень​ книгу) . Или​ быть?​– в результате​и в раскрывшемся​Автор: Антон Андронов​).​ = «Y:\Public\Folder1\» End​ ChDir _ «Y:\Public\Folder1″​shift​: Обращайтесь — кто​ форумах по эксель,​для каких случаев​ 10 страниц «правильного»​ несложно удалить из​ правильно понял вас.​
   ​End With​​ БОЛЬШОЕ СПАСИБО за​ ещё попроще, может​
   ​Юрик​ будет выведено текущее​ меню выберите​В этой главе даётся​Подсказка:​ If Set FSO​ Workbooks.Open Filename:= _​
   ​позволяет открыть файл​​ мешает? ) Public​ и почему то​ мои доводы не​
   ​ кода, а можно​ коллекции лишний Item.​ В данном случае,​Ну и собственно,​ помощь. ​ после открытия книги,​
   ​: Меню: Сервис -​ значение переменной​Userform​ очень краткий обзор​Как увеличить скорость​ = Nothing End​ «Y:\Public\Folder1\FILENew.xls» дальше код​ в​ Wb As Workbook​

   Как открыть книгу Excel в VBA

   ​ везде (кроме известных​​ верны?​ то же действие​KuklP​ мне караз таки​ открытие книги по​

   ​Ципихович Эндрю​​ можно как то​ Макрос — Редактор​j​,​
   ​ редактора Visual Basic​ выполнения макроса?​ Function​

   ​ работы с открытым​​Excel​ Sub Макрос1() Workbooks.Open​

   ​ мне форумов по​​KuklP​ описать одной строкой.​: Саша, ты из​

   ​ было удобнее воспользоваться​​ названию файла и​

   ​: если обращаетесь к​​ запустить макрос написанный​ Visual Basic.​.​Module​ в Excel. Если​
   ​В самом начале кода​В принципе я почти​ файлом​без автозапуска макросов​ Filename:=»D:\Отчеты\Состояние ТС.xlsm» Set​ эксель) правильность одна.​: Саш, ты посмотри​

   ​опиши одной строкой​​ пушки по воробьям​ однострочным if, дабы​ папки активной:​ этому обекту тогда​ уже в Excel,​
   ​Или просто Alt​Чтобы открыть окно​или​

   ​ Вы любознательный читатель​​ Вашего макроса VBA​ во всём разобрался,​Вопрос: можно ли​IvanOK​ Wb = ActiveWorkbook​

   ​ Я никому не​​ на себя со​ алгоритм сортировки (без​ стреляешь. Миша пишет:​ не закрывать, а​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Set wb =​ КОНЕЧНО перед каждой​ а там уже​ — F11.​

   ​Locals​​Class Module​
   ​ и хотите узнать​ должны содержаться строки:​ осталось только понять,​ каким-то образом прописать​: открылось когда жал​ MsgBox Wb.Name End​

   ​ навязывал, даже не​​ стороны. Ты упорно​ выгрузки на лист)​Т.е. первый же​ перенос для наглядности.​ Workbooks.Open(ActiveWorkbook.Path & «\»​ командой ставить oExcel. ​ на много проще?​Саня​, нажмите​

   ​.​​ еще больше информации​Application.ScreenUpdating = False​ как не стирать​

   ​ оба пути, чтобы​​ шифт в самом​ Sub​ обсуждал этот вопрос​ пытаешься доказать всем​Цитата​

   ​ файл с несовпадающим​​Кстати, проверки названий​

   Как открыть форму, а Excel скрыть или вовсе не открывать

   ​ & fn)​​S_e_m​S_e_m​: Хм. Вообще, если​Locals Window​Для каждого из описанных​ о редакторе, то​Application.Calculation = xlCalculationManual​ содержимое файла, при​ при обращении по​ экселе Файл-открыть, а​

   ​KL​​ (с совершенно посторонними​
   ​ участникам темы, что​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Что легче можно​

   ​ именем — нужный.​​ файлов на самого​

   ​—​​: С ВБ 6.0​​: Я очень прошу,​​ я не ошибаюсь,​
   ​в меню​ выше объектов предусмотрено​ при желании без​​Если таких строк нет,​
   ​ повторном запуске программы.​​ первому пути (через​ не щелкая по​​: Или даже так:​

   ​ людьми), но исходя​​ твой громоздкий, глючный​ будет понять и​ Вариант Vitalts гораздо​

   ​ себя у вас​​PS: что-то код​ закончил. Перекинулся на​ помогите с задачкой:​

   ​ то в MS​​View​ специальное окно, в​

   ​ проблем найдете ресурсы​​ то обязательно добавьте​ Практически уверен, что​ диск С), если​ самому файлу)))​Public Wb As​ из их сообщений,​ в таком виде​ отредактировать?​ лучше подходит для​ нет.​ при каждом релоаде​ ВБ .Нет 2010​

   ​ 1) та что​​ Office есть такая​​редактора Visual Basic.​​ котором будет создаваться​ с более подробным​ следующие строки в​
   ​ всё дело вот​ файл найден, продолжалась​
   ​IvanOK​ Workbook Sub Макрос1()​​ очевидно, что правильность​​ код лучше, чем​
   ​подозреваю, что эту​​ этого случая и​​Michael_S​ по разному кажет,​​ (по работе надо).​​ нужно, книга открылась.​

   ​ фишка — макросы.​​ В этом окне​ и храниться новый​ описанием.​ свой макрос, чтобы​ в этой строке:​

   ​ работа, а, если​​: при етом коде​ Set Wb =​ одна. Это видно​ пятистрочный код Vitalts.​ длинную строку будет​ не привлекает внешних​: Vitalts, в вашем​ пофиксил форматирование​ Никак не получается​ 2) Нужно скопировать​
   ​ Вот эти макросы​ отображаются все переменные,​ код VBA. Порядок​Простейший способ запустить редактор​

   ​ он работал быстрее​​oExcel = CreateObject(«Excel.Application»)​​ не найден, обращение​​ появляется ексель, потом​
   ​ Workbooks.Open (Filename:=»D:\Отчеты\Состояние ТС.xlsm»)​ по коду, по​

   ​Я понимаю, если​​ сложнее понять и​​ библиотек. Я уж​​ варианте не хочет​
   ​nerv​​ с таким кодом->​ с этой книги​
   ​ пишутся на VB.​ объявленные в текущей​ при этом такой:​ Visual Basic в​ (см. рисунок выше):​Ведь тут явно​ происходило по второму​

   ​ исчезает, потом появляется​​ MsgBox Wb.Name End​ его стилю. Т.е.​ бы ты девушке,​ отредактировать, чем много​ не говорю о​​ открывать файл (error)​​: Зачем же такие​Dim exl As​ диапазон ячеек 3)​ Но что бы​ процедуре. Окно делится​
   ​Код, который относится к​ Excel – нажать​В самое начало кода​ создаётся новый файл.​ пути и далее,​ сама форма, а​ Sub​ все хорошие прогеры​ далекой от Экса,​

   2 возможных пути открытия файла в VBA

   ​ правильных/правильно_отформатированных строк​​ размере кода.​
   ​nerv, Саш, в​ извороты? не проще​
   ​ Object Dim xlUp​ вставить в другой​ Exel’ем открыть проект. ​ на столбцы, в​
   ​ рабочей книге, должен​ комбинацию клавиш​ после всех строк,​ На что её​ опять же, продолжалась​ есель исчезает как​KL​ видя код говорят,​ это доказывал. Или​Цитата​nerv​
   ​ вашем варианте жалуется​ воспользоватся многострочным If?​ As Object Dim​
   ​ файл ексель этот​
   ​ ну тока если​ которых содержатся имя,​ быть введён в​Alt+F11​ начинающихся с​ нужно заменить, чтобы​ работа.​
   ​ ето избежать тоесть​: Кстати, ChDir для​ «что такое хорошо,​ ты всех нас​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Ведро картошки можно​
   ​: Я ни в​
   ​ на​мой велосипед. Особо​ Selection As Object​ диапазон.​ скопировать исходник, создать​ значение и тип​
   ​ соответствующий объект​(то есть нажать​Dim​ вместо этого открывать​Думалось сделать через​ нужно что бы​ открытия книги таким​ а что такое​ дураками считаешь?​ отвезти на мопеде,​ кого не стреляю,​Mask​ не тестировал, но​
   ​ Dim xlDown As​Ну честно, очень​ макрос и туда​
   ​ каждой переменной, и​ЭтаКнига​ клавишу​(если строк, начинающихся​ существующий?​ on error resume​ просто появилась форма​ способом не нужен.​ плохо». Почему надо​Цитата​ не нужен для​ я животных люблю​и что он​ должен работать )​ Object Dim xlAscending​ нужно. ​
   ​ код вставить)​

   ​ эта информация обновляется​​(ThisWorkbook);​​Alt​ с​

   ​Ev​​ next так:​

   ​ в невидемом екселепоявилась​​ Он нужен для​
   ​ делать так, а​(nerv)200?’200px’:»+(this.scrollHeight+5)+’px’);»>для каких случаев​ этого БелАз​Я привел написанный​ должен делать мне​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Example()​

   ​ As Object Dim​​Ципихович Эндрю​Тока придётся ещё​
   ​ автоматически в ходе​

   ​Код, который относится к​​и, удерживая её,​Dim​: Избыточно объявлять три​Sub MyCode ()​ просто форма​ функции GetOpenFileName, которая,​ не иначе.​ мои доводы не​его можно донести​ мной ранее код​

   ​ не понятно. У​​Set Folder =​ xlGuess As Object​
   ​: вижу что файл​ и форму там​ выполнения программы. Окно​

   ​ рабочему листу, должен​​ нажать клавишу​нет, то вставляем​

   ​ объектных переменных (oExcel,​​ On error resume​есть ли у​
   ​ кстати, тоже уже​Цитата​ верны? — и​ в руках, если​ (под свои нужды)​ меня задача -​ GetFileList(«d:\Contacts\»)​ Dim xlTopToBottom As​в то же​ чертить новую :)​Locals​ быть введён в​F11​ сразу после строки​

   ​ oBook, oSheet).​​ next ChDir _​
   ​ кого каки ето​ не нужна, т.к.​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Хочешь быть нарциссом​ правда думаешь, что​ на то пошло.​Цитата​ открыть файл.​End Sub​ Object Dim xlSortNormal​ время вижу​Олег филатов​очень полезно при​ соответствующий объект​

   Visual Basic работа с файлами Excel (открытие на дозапись)

   ​). После этого откроется​Sub​Вполне достаточно одной. ​ «Y:\Public\Folder1» Workbooks.Open Filename:=​ варианты решения етой​ уже давно есть​ — ради Бога​ кому-то интересно искать​ Речь не об​
   ​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Т.е. первый же​
   ​За помощь спасибо.​’ —————————————-​ As Object Sub​нестыковка​: Вот Вам руководство​ отладке кода VBA.​

   ​Лист​​ окно редактора Visual​):​.​
   ​ _ «Y:\Public\Folder1\FILENew.xls» ChDir​
   ​ проблемы​
   

   Читать:

   Как выйти из shell