Какую вкладку в excel нужно активировать чтобы работать с vba

Первым шагом к работе с VBA в Excel является ознакомление с редактором Visual Basic (также называемым редактором VBA или редактором VB).

В этом руководстве я расскажу все, что нужно знать о редакторе VBA, и некоторые полезные параметры, которые вы должны знать при кодировании в Excel VBA.

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

VB Editor — это место, где вы храните код VB.

Получить код в редакторе VB можно несколькими способами:

1. Когда вы записываете макрос, он автоматически создает новый модуль в редакторе VB и вставляет код в этот модуль.
2. Вы можете вручную ввести код VB в редакторе VB.
3. Вы можете скопировать код из другой книги или из Интернета и вставить его в редактор VB.

Открытие редактора VB

Открыть редактор Visual Basic в Excel можно разными способами:

1. Использование сочетания клавиш (самый простой и быстрый)
2. Используя вкладку разработчика.
3. Использование вкладок рабочего листа.

Давайте быстро пройдемся по каждому из них.

Сочетание клавиш для открытия редактора Visual Basic

Самый простой способ открыть редактор Visual Basic — использовать сочетание клавиш — ALT + F11 (удерживая клавишу ALT, нажмите клавишу F11).

Как только вы это сделаете, откроется отдельное окно для редактора Visual Basic.

Этот ярлык работает как переключатель, поэтому при повторном использовании он вернет вас в приложение Excel (без закрытия редактора VB).

Ярлык для версии Mac: Opt + F11 или Fn + Opt + F11

Использование вкладки разработчика

Чтобы открыть редактор Visual Basic с ленты:

1. Перейдите на вкладку «Разработчик» (если вы не видите вкладку «Разработчик», прочтите, как ее получить).
2. В группе «Код» щелкните Visual Basic.

Использование вкладки рабочего листа

Это менее используемый метод открытия редактора Vb.

Перейдите на любую из вкладок рабочего листа, щелкните правой кнопкой мыши и выберите «Просмотреть код».

Этот метод не просто откроет редактор VB, он также перенесет вас в окно кода для этого объекта рабочего листа.

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

Анатомия редактора Visual Basic в Excel

Когда вы открываете редактор VB в первый раз, это может показаться немного подавляющим.

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

Кроме того, он все еще выглядит как старый Excel 97 дней. Хотя дизайн и удобство использования Excel значительно улучшились за последние годы, редактор VB не претерпел каких-либо изменений в своем внешнем виде.

В этом разделе я познакомлю вас с различными частями приложения Visual Basic Editor.

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

Ниже представлены изображения различных компонентов редактора VB. Затем они подробно описаны в следующих разделах этого руководства.

Теперь давайте быстро рассмотрим каждый из этих компонентов и поймем, что он делает:

Строка меню

Здесь у вас есть все параметры, которые вы можете использовать в редакторе VB. Это похоже на ленту Excel, где у вас есть вкладки и параметры для каждой вкладки.

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

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

Панель инструментов

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

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

В большинстве случаев панель инструментов по умолчанию — это все, что вам нужно при работе с редактором VB.

Вы можете переместить панель инструментов над строкой меню, щелкнув три серые точки (в начале панели инструментов) и перетащив ее над строкой меню.

Примечание. В редакторе VB есть четыре панели инструментов — Стандартная, Отладка, Редактировать и Пользовательская форма. То, что вы видите на изображении выше (которое также используется по умолчанию), является стандартной панелью инструментов. Вы можете получить доступ к другим панелям инструментов, перейдя к параметру «Просмотр» и наведя курсор на параметр «Панели инструментов». Вы можете добавить одну или несколько панелей инструментов в редактор VB, если хотите.

Обозреватель проекта

Обозреватель проекта — это окно слева, в котором отображаются все объекты, открытые в настоящее время в Excel.

Когда вы работаете с Excel, каждая открытая книга или надстройка является проектом. И в каждом из этих проектов может быть набор объектов.

Например, на изображении ниже в Project Explorer показаны две открытые книги (Book1 и Book2) и объекты в каждой книге (рабочие листы, ThisWorkbook и Module в Book1).

Слева от объектов есть значок плюса, который можно использовать, чтобы свернуть список объектов или развернуть и просмотреть полный список объектов.

Следующие объекты могут быть частью Project Explorer:

1. Все открытые книги — в каждой книге (которая также называется проектом) вы можете иметь следующие объекты:
   • Объект рабочего листа для каждого листа в книге
   • ThisWorkbook объект который представляет собой книгу
   • Таблица объект для каждого листа диаграммы (они не так распространены, как рабочие листы)
   • Модули — Здесь идет код, созданный с помощью средства записи макросов. Вы также можете написать или скопировать код VBA сюда.
2. Все открытые надстройки

Рассматривайте Project Explorer как место, где отображаются все объекты, открытые в Excel в данный момент.

Сочетание клавиш для открытия Project Explorer: Ctrl + R (удерживайте контрольную клавишу, а затем нажмите R). Чтобы закрыть его, просто щелкните значок закрытия в правом верхнем углу окна Project Explorer.

Примечание. Для каждого объекта в Project Explorer есть окно кода, в котором вы можете написать код (или скопировать и вставить его откуда-нибудь). Окно кода появляется при двойном щелчке по объекту.

Окно свойств

Окно свойств — это то место, где вы можете увидеть свойства выбранного объекта. Если у вас еще нет окна «Свойства», вы можете получить его с помощью сочетания клавиш F4 (или перейдите на вкладку «Просмотр» и нажмите «Окно свойств»).

Окно свойств — это плавающее окно, которое можно закрепить в редакторе VB. В приведенном ниже примере я закрепил его чуть ниже Project Explorer.

Окно свойств позволяет нам изменять свойства выбранного объекта. Например, если я хочу сделать рабочий лист скрытым (или очень скрытым), я могу сделать это, изменив свойство Visible для выбранного объекта рабочего листа.

Связанный: Скрытие рабочего листа в Excel (который не может быть легко отсканирован)

Окно кода

Для каждого объекта, перечисленного в Project Explorer, есть окно кода. Вы можете открыть окно кода для объекта, дважды щелкнув его в области Project Explorer.

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

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

Связанный: Как запустить макрос (код VBA) в Excel.

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

Окно Immediate в основном используется при отладке кода. Один из способов использования окна Immediate — использование оператора Print.Debug в коде с последующим запуском кода.

Это помогает мне отлаживать код и определять, где мой код застревает. Если я получаю результат Print.Debug в непосредственном окне, я знаю, что код работал, по крайней мере, до этой строки.

Если вы новичок в кодировании VBA, вам может потребоваться некоторое время, чтобы использовать немедленное окно для отладки.

По умолчанию непосредственное окно не отображается в редакторе VB. Вы можете получить его, используя сочетание клавиш Control + G (или можете перейти на вкладку «Просмотр» и нажать «Немедленное окно»).

Куда добавить код в редакторе VB

Я надеюсь, что теперь у вас есть общее представление о том, что такое VB Editor и какие в нем части.

В этом разделе этого руководства я покажу вам, где добавить код VBA в редактор Visual Basic.

Есть два места, где вы можете добавить код VBA в Excel:

1. Окно кода для объекта. Этими объектами могут быть рабочая книга, рабочий лист, пользовательская форма и т. Д.
2. Окно кода модуля.

Окно кода модуля против окна кода объекта

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

Когда вы добавляете код к любому из объектов, он зависит от какого-либо действия этого объекта, которое запускает этот код. Например, если вы хотите отобразить все рабочие листы в книге, как только вы откроете эту книгу, тогда код будет помещен в объект ThisWorkbook (который представляет книгу).

В данном случае триггер открывает книгу.

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

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

Связанный: Узнайте больше о событиях в VBA.

Напротив, код в модуле должен выполняться вручную (или его также можно вызывать из других подпрограмм).

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

Добавление кода VBA в модуль

При записи макроса автоматически создается модуль и вставляется в него код, однако при использовании средства записи макросов существуют некоторые ограничения. Например, он не может использовать циклы или условия If Then Else.

В таких случаях лучше либо скопировать и вставить код вручную, либо написать код самостоятельно.

Модуль может использоваться для хранения следующих типов кодов VBA:

1. Декларации: Вы можете объявлять переменные в модуле. Объявление переменных позволяет указать, какой тип данных может содержать переменная. Вы можете объявить переменную только для подпрограммы или для всех подпрограмм в модуле (или всех модулях)
2. Подпрограммы (процедуры): Это код, в котором есть шаги, которые вы хотите выполнить с помощью VBA.
3. Функциональные процедуры: Это код, который возвращает одно значение, и вы можете использовать его для создания пользовательских функций (также называемых пользовательскими функциями или UDF в VBA).

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

Добавление модуля в редактор VB

Ниже приведены шаги по добавлению модуля:

1. Щелкните правой кнопкой мыши любой объект книги (в котором вы хотите установить модуль).
2. Наведите курсор на опцию Вставить.
3. Щелкните по модулю.

Это мгновенно создаст папку с именем Module и вставит объект с именем Module 1. Если у вас уже есть вставленный модуль, вышеупомянутые шаги будут вставлять другой модуль.

После того, как модуль вставлен, вы можете дважды щелкнуть объект модуля в Project Explorer, и он откроет для него окно кода.

Теперь вы можете скопировать и вставить код или написать его самостоятельно.

Удаление модуля

Ниже приведены шаги по удалению модуля в Excel VBA:

1. Щелкните правой кнопкой мыши модуль, который хотите удалить.
2. Нажмите на опцию «Удалить модуль».
3. В открывшемся диалоговом окне нажмите Нет.

Примечание. Вы можете экспортировать модуль перед его удалением. Он сохраняется как файл .bas, и вы можете импортировать его в другой проект. Чтобы экспортировать модуль, щелкните модуль правой кнопкой мыши и выберите «Экспорт файла».

Добавление кода в окно объектного кода

Чтобы открыть окно кода для объекта, просто дважды щелкните по нему.

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

Обратите внимание, что некоторые объекты позволяют выбрать событие, для которого вы хотите написать код.

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

Примечание: эти события относятся к объекту. Когда вы откроете окно кода для книги, вы увидите события, связанные с объектом книги. Когда вы откроете окно кода для рабочего листа, вы увидите события, связанные с объектом рабочего листа.

Настройка редактора VB

Хотя настройки редактора Visual Basic по умолчанию достаточно хороши для большинства пользователей, они позволяют дополнительно настраивать интерфейс и некоторые функции.

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

Чтобы настроить среду редактора VB, нажмите «Инструменты» в строке меню, а затем нажмите «Параметры».

Это откроет диалоговое окно Параметры, которое предоставит вам все параметры настройки в редакторе VB. В диалоговом окне «Параметры» есть четыре вкладки (как показано ниже), на которых можно настроить различные параметры редактора Visual Basic.

Давайте быстро рассмотрим каждую из этих вкладок и важные параметры на каждой из них.

Вкладка «Редактор»

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

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

Автоматическая проверка синтаксиса

При работе с VBA в Excel, как только вы сделаете синтаксическую ошибку, вас встретит всплывающее диалоговое окно (с некоторым описанием ошибки). Что-то вроде того, что показано ниже:

Если вы отключите эту опцию, это всплывающее окно не появится, даже если вы допустили синтаксическую ошибку. Однако цвет текста кода изменится, что укажет на наличие ошибки.

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

Требовать объявление переменной

Это один из вариантов, который я рекомендую включить.

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

Когда вы включаете этот параметр, он автоматически вставляет оператор «Option Explicit» в верхнюю часть окна кода. Это заставляет вас объявить все переменные, которые вы используете в своем коде. Если вы не объявите переменную и попытаетесь выполнить код, отобразится ошибка (как показано ниже).

В приведенном выше случае я использовал переменную Var, но не объявлял ее. Поэтому, когда я пытаюсь запустить код, он показывает ошибку.

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

Примечание. Когда вы включаете этот параметр, он не влияет на существующие модули.

Автоматический член списка

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

Например, если я хочу удалить лист (Sheet1), мне нужно использовать строку Sheet1.Delete.

Пока я набираю код, как только я набираю точку, он покажет мне все методы и свойства, связанные с объектом Worksheet (как показано ниже).

Функция автоматического списка хороша тем, что позволяет:

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

Эта опция включена по умолчанию, и я рекомендую оставить ее в таком состоянии.

Параметры автоматической быстрой информации

Когда вы вводите функцию на листе Excel, она показывает вам некоторую информацию о функции, например, аргументы, которые она принимает.

Точно так же, когда вы вводите функцию в VBA, она показывает вам некоторую информацию (как показано ниже). Но для этого вам нужно убедиться, что опция Auto Quick Info включена (что по умолчанию).

Параметры советов по автоматическим данным

Когда вы просматриваете свой код построчно и помещаете курсор над именем переменной, он покажет вам значение переменной.

Я считаю это весьма полезным при отладке кода или при просмотре кода построчно, в котором есть циклы.

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

Этот параметр включен по умолчанию, и я рекомендую вам оставить его в таком же состоянии.

Автоматический отступ

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

При написании кода вы можете делать отступ с помощью клавиши табуляции.

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

В приведенном выше примере после того, как я напишу строку Debug.Print и нажму Enter, она начнется прямо под ней (с тем же уровнем отступа).

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

При желании вы можете изменить значение отступа. Я сохраняю значение по умолчанию.

Редактирование текста перетаскиванием

Когда этот параметр включен, он позволяет выбрать блок кода и перетащить его.

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

Этот параметр включен по умолчанию, и я рекомендую вам оставить его в таком же состоянии.

По умолчанию — полный вид модуля

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

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

Этот параметр включен по умолчанию, и я рекомендую оставить его в таком же состоянии.

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

Разделитель процедур

Когда эта опция включена, вы увидите линию (своего рода разделитель) между двумя процедурами.

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

Он включен по умолчанию, и я рекомендую оставить его в таком состоянии.

Вкладка «Формат редактора»

С помощью параметров на вкладке «Формат редактора» вы можете настроить внешний вид кода в окне кода.

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

Чтобы внести изменения, вам нужно сначала выбрать параметр в поле «Цвета кода». После выбора параметра вы можете изменить для него цвет переднего плана, фона и индикатора.

На этой вкладке также можно установить тип и размер шрифта. Рекомендуется использовать шрифт фиксированной ширины, например Courier New, так как он делает код более читабельным.

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

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

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

По умолчанию полоса индикатора маржи включена, и я рекомендую оставить ее в таком состоянии.

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

Вкладка Общие

На вкладке «Общие» есть много параметров, но изменять их не нужно.

Я рекомендую вам оставить все параметры как есть.

Одна из важных опций, о которых следует знать на этой вкладке, — это обработка ошибок.

По умолчанию выбран параметр «Прерывание по необработанным ошибкам», и я рекомендую оставить его таким же.

Этот параметр означает, что если ваш код обнаружит ошибку, и вы еще не обработали эту ошибку в своем коде, он сломается и остановится. Но если вы устранили ошибку (например, с помощью параметров «При ошибке возобновить следующий» или «При ошибке Перейти к»), то она не сломается (поскольку ошибки не обрабатываются).

Вкладка стыковки

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

Закрепление означает, что вы можете зафиксировать положение окна (например, проводника проекта или окна свойств), чтобы оно не перемещалось, и вы могли просматривать все различные окна одновременно.

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

Я рекомендую оставить настройки по умолчанию.

Introduction

This is a tutorial about writing code in Excel spreadsheets using Visual Basic for Applications (VBA).

Excel is one of Microsoft’s most popular products. In 2016, the CEO of Microsoft said  «Think about a world without Excel. That’s just impossible for me.” Well, maybe the world can’t think without Excel.

• In 1996, there were over 30 million users of Microsoft Excel (source).
• Today, there are an estimated 750 million users of Microsoft Excel. That’s a little more than the population of Europe and 25x more users than there were in 1996.

We’re one big happy family!

In this tutorial, you’ll learn about VBA and how to write code in an Excel spreadsheet using Visual Basic.

Prerequisites

You don’t need any prior programming experience to understand this tutorial. However, you will need:

• Basic to intermediate familiarity with Microsoft Excel
• If you want to follow along with the VBA examples in this article, you will need access to Microsoft Excel, preferably the latest version (2019) but Excel 2016 and Excel 2013 will work just fine.
• A willingness to try new things

Learning Objectives

Over the course of this article, you will learn:

1. What VBA is
2. Why you would use VBA
3. How to get set up in Excel to write VBA
4. How to solve some real-world problems with VBA

Important Concepts

Here are some important concepts that you should be familiar with to fully understand this tutorial.

Objects: Excel is object-oriented, which means everything is an object — the Excel window, the workbook, a sheet, a chart, a cell. VBA allows users to manipulate and perform actions with objects in Excel.

If you don’t have any experience with object-oriented programming and this is a brand new concept, take a second to let that sink in!

Procedures: a procedure is a chunk of VBA code, written in the Visual Basic Editor, that accomplishes a task. Sometimes, this is also referred to as a macro (more on macros below). There are two types of procedures:

• Subroutines: a group of VBA statements that performs one or more actions
• Functions: a group of VBA statements that performs one or more actions and returns one or more values

Note: you can have functions operating inside of subroutines. You’ll see later.

Macros: If you’ve spent any time learning more advanced Excel functionality, you’ve probably encountered the concept of a “macro.” Excel users can record macros, consisting of user commands/keystrokes/clicks, and play them back at lightning speed to accomplish repetitive tasks. Recorded macros generate VBA code, which you can then examine. It’s actually quite fun to record a simple macro and then look at the VBA code.

Please keep in mind that sometimes it may be easier and faster to record a macro rather than hand-code a VBA procedure.

For example, maybe you work in project management. Once a week, you have to turn a raw exported report from your project management system into a beautifully formatted, clean report for leadership. You need to format the names of the over-budget projects in bold red text. You could record the formatting changes as a macro and run that whenever you need to make the change.

What is VBA?

Visual Basic for Applications is a programming language developed by Microsoft. Each software program in the Microsoft Office suite is bundled with the VBA language at no extra cost. VBA allows Microsoft Office users to create small programs that operate within Microsoft Office software programs.

Think of VBA like a pizza oven within a restaurant. Excel is the restaurant. The kitchen comes with standard commercial appliances, like large refrigerators, stoves, and regular ole’ ovens — those are all of Excel’s standard features.

But what if you want to make wood-fired pizza? Can’t do that in a standard commercial baking oven. VBA is the pizza oven.

Yum.

Why use VBA in Excel?

Because wood-fired pizza is the best!

But seriously.

A lot of people spend a lot of time in Excel as a part of their jobs. Time in Excel moves differently, too. Depending on the circumstances, 10 minutes in Excel can feel like eternity if you’re not able to do what you need, or 10 hours can go by very quickly if everything is going great. Which is when you should ask yourself, why on earth am I spending 10 hours in Excel?

Sometimes, those days are inevitable. But if you’re spending 8-10 hours everyday in Excel doing repetitive tasks, repeating a lot of the same processes, trying to clean up after other users of the file, or even updating other files after changes are made to the Excel file, a VBA procedure just might be the solution for you.

You should consider using VBA if you need to:

• Automate repetitive tasks
• Create easy ways for users to interact with your spreadsheets
• Manipulate large amounts of data

Getting Set Up to Write VBA in Excel

Developer Tab

To write VBA, you’ll need to add the Developer tab to the ribbon, so you’ll see the ribbon like this.

To add the Developer tab to the ribbon:

1. On the File tab, go to Options > Customize Ribbon.
2. Under Customize the Ribbon and under Main Tabs, select the Developer check box.

After you show the tab, the Developer tab stays visible, unless you clear the check box or have to reinstall Excel. For more information, see Microsoft help documentation.

VBA Editor

Navigate to the Developer Tab, and click the Visual Basic button. A new window will pop up — this is the Visual Basic Editor. For the purposes of this tutorial, you just need to be familiar with the Project Explorer pane and the Property Properties pane.

Excel VBA Examples

First, let’s create a file for us to play around in.

1. Open a new Excel file
2. Save it as a macro-enabled workbook (. xlsm)
3. Select the Developer tab
4. Open the VBA Editor

Let’s rock and roll with some easy examples to get you writing code in a spreadsheet using Visual Basic.

Example #1: Display a Message when Users Open the Excel Workbook

In the VBA Editor, select Insert -> New Module

Write this code in the Module window (don’t paste!):

Sub Auto_Open()
MsgBox («Welcome to the XYZ Workbook.»)
End Sub

Save, close the workbook, and reopen the workbook. This dialog should display.

Ta da!

How is it doing that?

Depending on your familiarity with programming, you may have some guesses. It’s not particularly complex, but there’s quite a lot going on:

• Sub (short for “Subroutine): remember from the beginning, “a group of VBA statements that performs one or more actions.”
• Auto_Open: this is the specific subroutine. It automatically runs your code when the Excel file opens — this is the event that triggers the procedure. Auto_Open will only run when the workbook is opened manually; it will not run if the workbook is opened via code from another workbook (Workbook_Open will do that, learn more about the difference between the two).
• By default, a subroutine’s access is public. This means any other module can use this subroutine. All examples in this tutorial will be public subroutines. If needed, you can declare subroutines as private. This may be needed in some situations. Learn more about subroutine access modifiers.
• msgBox: this is a function — a group of VBA statements that performs one or more actions and returns a value. The returned value is the message “Welcome to the XYZ Workbook.”

In short, this is a simple subroutine that contains a function.

When could I use this?

Maybe you have a very important file that is accessed infrequently (say, once a quarter), but automatically updated daily by another VBA procedure. When it is accessed, it’s by many people in multiple departments, all across the company.

• Problem: Most of the time when users access the file, they are confused about the purpose of this file (why it exists), how it is updated so often, who maintains it, and how they should interact with it. New hires always have tons of questions, and you have to field these questions over and over and over again.
• Solution: create a user message that contains a concise answer to each of these frequently answered questions.

Real World Examples

• Use the MsgBox function to display a message when there is any event: user closes an Excel workbook, user prints, a new sheet is added to the workbook, etc.
• Use the MsgBox function to display a message when a user needs to fulfill a condition before closing an Excel workbook
• Use the InputBox function to get information from the user

Example #2: Allow User to Execute another Procedure

In the VBA Editor, select Insert -> New Module

Write this code in the Module window (don’t paste!):

Sub UserReportQuery()
Dim UserInput As Long
Dim Answer As Integer
UserInput = vbYesNo
Answer = MsgBox(«Process the XYZ Report?», UserInput)
If Answer = vbYes Then ProcessReport
End Sub

Sub ProcessReport()
MsgBox («Thanks for processing the XYZ Report.»)
End Sub

Save and navigate back to the Developer tab of Excel and select the “Button” option. Click on a cell and assign the UserReportQuery macro to the button.

Now click the button. This message should display:

Click “yes” or hit Enter.

Once again, tada!

Please note that the secondary subroutine, ProcessReport, could be anything. I’ll demonstrate more possibilities in example #3. But first…

How is it doing that?

This example builds on the previous example and has quite a few new elements. Let’s go over the new stuff:

• Dim UserInput As Long: Dim is short for “dimension” and allows you to declare variable names. In this case, UserInput is the variable name and Long is the data type. In plain English, this line means “Here’s a variable called “UserInput”, and it’s a Long variable type.”
• Dim Answer As Integer: declares another variable called “Answer,” with a data type of Integer. Learn more about data types here.
• UserInput = vbYesNo: assigns a value to the variable. In this case, vbYesNo, which displays Yes and No buttons. There are many button types, learn more here.
• Answer = MsgBox(“Process the XYZ Report?”, UserInput): assigns the value of the variable Answer to be a MsgBox function and the UserInput variable. Yes, a variable within a variable.
• If Answer = vbYes Then ProcessReport: this is an “If statement,” a conditional statement, which allows us to say if x is true, then do y. In this case, if the user has selected “Yes,” then execute the ProcessReport subroutine.

When could I use this?

This could be used in many, many ways. The value and versatility of this functionality is more so defined by what the secondary subroutine does.

For example, maybe you have a file that is used to generate 3 different weekly reports. These reports are formatted in dramatically different ways.

• Problem: Each time one of these reports needs to be generated, a user opens the file and changes formatting and charts; so on and so forth. This file is being edited extensively at least 3 times per week, and it takes at least 30 minutes each time it’s edited.
• Solution: create 1 button per report type, which automatically reformats the necessary components of the reports and generates the necessary charts.

Real World Examples

• Create a dialog box for user to automatically populate certain information across multiple sheets
• Use the InputBox function to get information from the user, which is then populated across multiple sheets

Example #3: Add Numbers to a Range with a For-Next Loop

For loops are very useful if you need to perform repetitive tasks on a specific range of values — arrays or cell ranges. In plain English, a loop says “for each x, do y.”

In the VBA Editor, select Insert -> New Module

Write this code in the Module window (don’t paste!):

Sub LoopExample()
Dim X As Integer
For X = 1 To 100
Range(«A» & X).Value = X
Next X
End Sub

Save and navigate back to the Developer tab of Excel and select the Macros button. Run the LoopExample macro.

This should happen:

Etc, until the 100th row.

How is it doing that?

• Dim X As Integer: declares the variable X as a data type of Integer.
• For X = 1 To 100: this is the start of the For loop. Simply put, it tells the loop to keep repeating until X = 100. X is the counter. The loop will keep executing until X = 100, execute one last time, and then stop.
• Range(«A» & X).Value = X: this declares the range of the loop and what to put in that range. Since X = 1 initially, the first cell will be A1, at which point the loop will put X into that cell.
• Next X: this tells the loop to run again

When could I use this?

The For-Next loop is one of the most powerful functionalities of VBA; there are numerous potential use cases. This is a more complex example that would require multiple layers of logic, but it communicates the world of possibilities in For-Next loops.

Maybe you have a list of all products sold at your bakery in Column A, the type of product in Column B (cakes, donuts, or muffins), the cost of ingredients in Column C, and the market average cost of each product type in another sheet.

You need to figure out what should be the retail price of each product. You’re thinking it should be the cost of ingredients plus 20%, but also 1.2% under market average if possible. A For-Next loop would allow you to do this type of calculation.

Real World Examples

• Use a loop with a nested if statement to add specific values to a separate array only if they meet certain conditions
• Perform mathematical calculations on each value in a range, e.g. calculate additional charges and add them to the value
• Loop through each character in a string and extract all numbers
• Randomly select a number of values from an array

Conclusion

Now that we’ve talked about pizza and muffins and oh-yeah, how to write VBA code in Excel spreadsheets, let’s do a learning check. See if you can answer these questions.

• What is VBA?
• How do I get set up to start using VBA in Excel?
• Why and when would you use VBA?
• What are some problems I could solve with VBA?

If you have a fair idea of how to you could answer these questions, then this was successful.

Whether you’re an occasional user or a power user, I hope this tutorial provided useful information about what can be accomplished with just a bit of code in your Excel spreadsheets.

Happy coding!

Learning Resources

• Excel VBA Programming for Dummies, John Walkenbach
• Get Started with VBA, Microsoft Documentation
• Learning VBA in Excel, Lynda

A bit about me

I’m Chloe Tucker, an artist and developer in Portland, Oregon. As a former educator, I’m continuously searching for the intersection of learning and teaching, or technology and art. Reach out to me on Twitter @_chloetucker and check out my website at chloe.dev.

---

---

Learn to code for free. freeCodeCamp’s open source curriculum has helped more than 40,000 people get jobs as developers. Get started

В Excel 5 впервые была реализована поддержка нового макроязыка Visual Basic for Applications (VBA). Каждая копия Excel, начиная с 1993 года, содержит копию языка VBA, в явном виде не представленную на рабочих листах. VBA позволяет выполнять действия, которые обычно реализуются в Excel, но делает это намного быстрее и безукоризненно.

Если вам доводилось прежде сталкиваться с VBA-программами, то вы знаете, что очень часто они позволяют с помощью всего одного щелчка получать результаты, на которые в случае применения обычных средств Excel уходит несколько часов, а то и дней. Не стоит пугаться сложностей VBA, это ничуть не сложнее чем эмулятор psp. В 90% случаев программный код генерируется благодаря функции записи макросов, и только самые эффективные VBA-приложения пишутся вручную. В примерах раздела «Использование VBA для создания сводных таблиц» вы познакомитесь с нелегкой работой настоящего VBA-программиста.

По умолчанию VBA в Excel 2010 отключен. Прежде чем начать его использовать, нужно активизировать его в диалоговом окне Центр управления безопасностью (Trust Center). Выполните следующие действия.

1. Выберите вкладку Файл (File) для перехода в окно представления Backstage.
2. В находящейся слева навигационной панели щелкните на кнопке Параметры (Options). На экране появится диалоговое окно Параметры Excel (Excel Options).
3. В диалоговом окне Параметры Excel выберите категорию Настройка ленты (Customize Ribbon).
4. В находящемся справа списке отображается перечень основных вкладок Excel. По умолчанию флажок для вкладки Разработчик (Developer) не установлен. Установите его, после чего вкладка Разработчик отобразится на ленте. Щелкните на кнопке ОК для закрытия окна Параметры Excel.

5. Выберите вкладку ленты Разработчик. Нам понадобится группа команд Код (Code), в состав которой входят кнопки Visual Basic Editor, Макросы (Macros), Запись макроса (Macro Recorder) и Безопасность макросов (Macro Security) (рис. 12.1).



Рис. 12.1. Доступ к инструментам VBA реализуется через вкладку Разработчик

5. Щелкните на кнопке Безопасность макросов. На экране появится диалоговое окно Центр управления безопаность, в котором можно выбрать одну из четырех настроек, задающих уровень безопасности при работе с макросами. Названия этих настроек изменились по сравнению с названиями, применяемыми в версиях Excel 97 — Excel 2003. Соответствующие объяснения можно найти при описании следующего шага.
6. Выберите один из следующих переключателей.
   • Отключить все макросы с уведомлением (Disable all macros with notification). Эта настройка эквивалентна среднему уровню безопасности макросов в Excel 2003. При открытии рабочей книги, содержащей макросы, на экране появится сообщение о том, что в файле имеются макросы. Если вы хотите, чтобы эти макросы выполнялись, щелкните на кнопке Параметры (Options) и установите флажок Включить это содержимое (Enable). Это позволит VBA выполнять макросы, но вам придется явным образом разрешать их запуск при загрузке Excel.
   • Включить все макросы (Enable all macros). Эта настройка эквивалентна низкому уровню защиты макросов в Excel 2003. Поскольку она разрешает выполнение абсолютно всех макросов, содержащихся в рабочей книге (в том числе и зловредных), разработчики из Microsoft настоятельно не рекомендуют ее использовать.

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

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

​ по его использованию​Окно​(Sheet);​ Basic, как показано​Application.ScreenUpdating = False​Это краткое пошаговое руководство​ Filename:= _ «C:UsersÍDesktopFOLDERFILENew.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 {String}​ 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​

      • ​ ли что на​ останется при мне​​RAN​​ имени файла из​

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

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

   5. ​ exl.Rows(«1:1»).Select() exl.Range(Selection, Selection.End(xlDown)).Select()​ такими паролями?? плагиат​ 2003 c указанного​ и контекст любого​​ должен быть введён​​ редакторе Visual Basic​Application.Calculation = xlCalculationAutomatic​​ Excel, и как​ пути нет, то​inv.DS​​ еще и Select​(RAN)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Ты откатись чуть​ правильно​ случае это не​​ делать это рекурсивно.​​ хочет? Без кода​​ filter​​ exl.Application.CutCopyMode = False​​ какой-то, деньги автору​ места.​​ отслеживаемого выражения, которое​​ в​ в Excel могут​​Эти строки, как можно​ запускать вставленный макрос​​ как избежать обращения​,​​ обожает​​ назад, и взгляни​

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

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

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

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

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

office-guru.ru

Редактор 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:PublicFolder1») Else​ работает у меня​ свернут?​ хочу, чтобы кто-нибудь​ ты сейчас критикуешь!​ не против, но​ почему форумчан беспокоит​

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

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

​ Excel 2010 и​​ PathName = ChDir(«C:UsersCDesktopFOLDER»)​​ остается только 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). Проект​

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

office-guru.ru

Как открыть 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​ в той же​: Я уже на​ что нету доступа.​

CyberForum.ru

Открыть файл 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 SettingsS_e_mРабочий​ с открытием, но​
​в настройках выставить​ (лист, книга, модуль​
​ то увидите, что​(Excel macro-enabled workbook)​
​Открываем рабочую книгу в​ на правду похоже​
​ файлу (открывает его,​
​Апострофф​
​ Public Главнейшая As​
​ что я не​nerv​​ в этом постоянно​Это та самая​

​ — 1​​ а также имя​​ столAC_SIP222″ & 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 «\Margo123Тест» Workbooks.Open​ не заведомо соглашаюсь​Там же написано​
​KuklP​ Mask на Filter.​ -1 Then​Возможно? Если возможно​ ‘False oExcel.Range(«B5:E13»).Select ‘выбираю​ CreateObject(«Excel.Application») ‘ñîçäГ*ГІГј îáúåêò​: На вкладке Разработчик​можно отобразить в​добавлен объект​
​Нажимаем​вызываем окно редактора​ i& pName =​

​ Y, дома на​​ отработки макроса(shift не​ Filename:=»\Margo123Тест6.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:PublicFolder1», «C:UsersCDesktopFOLDER» fName​ диске С. Имя​ помогает), т.к. у​ = Workbooks(«\Margo123Тест6.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:111AIC_SIP» & AIC_SIP,​Если Вкладка Разработчик​
​ через меню​​с названием​, чтобы закрыть окно​На панели​ = «хи-хи.xls» On​ файла одинаковое, пути​ меня отображается форма,​
​ на 3 строке,​т.е. если наши​ какая. Что мешает​
​ 10 страниц «правильного»​​ мне караз таки​Set List =​: Получить список файлов​ and SettingsS_e_mРабочий столAC_SIP111″​
​ , , ,​ не отображена:​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:UsersCDesktopFOLDER»​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ÍDesktopFOLDERFILENew.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:UsersCDesktopFOLDER») 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:UsersCDesktopFOLDER»​
​2 путь:​`ем играть.​ к этой книге​ только (и уже​ но не для​Цитата​ все равно, откуда​ не угодил?​
​fn = Dir​​ работу. А Вам,​ а не всю​ не работает как​Enter​Insert​
​Перевел: Антон Андронов​Module1​ Else ‘ Get_Folder​​Sub MyCode ()​Странно, у меня​Юрий М​ не столько) на​ всех случаев​(KuklP)200?’200px’:»+(this.scrollHeight+5)+’px’);»>Можно написать на​ она вызывается. Думаю,​Похоже, изначально не​Loop​ Ципихович Эндрю, очень​ книгу) . Или​ быть?​– в результате​и в раскрывшемся​Автор: Антон Андронов​).​ = «Y:PublicFolder1» End​ ChDir _ «Y:PublicFolder1″​shift​: Обращайтесь — кто​ форумах по эксель,​для каких случаев​ 10 страниц «правильного»​ несложно удалить из​ правильно понял вас.​
​End With​​ БОЛЬШОЕ СПАСИБО за​ ещё попроще, может​
​Юрик​ будет выведено текущее​ меню выберите​В этой главе даётся​Подсказка:​ If Set FSO​ Workbooks.Open Filename:= _​
​позволяет открыть файл​​ мешает? ) Public​ и почему то​ мои доводы не​
​ кода, а можно​ коллекции лишний Item.​ В данном случае,​Ну и собственно,​ помощь!!!​ после открытия книги,​
​: Меню: Сервис -​ значение переменной​Userform​ очень краткий обзор​Как увеличить скорость​ = Nothing End​ «Y:PublicFolder1FILENew.xls» дальше код​ в​ Wb As Workbook​

excelworld.ru

Как открыть книгу 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​ обсуждал этот вопрос​ пытаешься доказать всем​Цитата​

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

planetaexcel.ru

Как открыть форму, а 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​ все хорошие прогеры​ далекой от Экса,​

CyberForum.ru

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​ время вижу​Олег филатов​очень полезно при​ соответствующий объект​

planetaexcel.ru

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

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

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

​ Application.FileDialog(msoFileDialogOpen)​