как я могу ссылаться на книгу, не используя ее имя?



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

Большое спасибо

excelvbamacros

ИсточникLeah Wang     23 марта 2016 в 15:58


1 ответ


  • Не могу ссылаться на панель в коде-за ее именем, указанным в xaml

    У меня есть свой VirtualizingWrapPanel, который выводит VirtualizingPanel и IScrollInfo. Вот пример того, как он используется в xaml: <ListBox x:Name=StationsListView DataContext={StaticResource ViewModelKey} ItemsSource={Binding Stations}> <ListBox.ItemsPanel>...

  • Как я могу закодировать, чтобы закрыть открытую книгу, используя ее путь к каталогу, а не ее имя, используя vba в excel?

    Итак, я написал сценарий, который открывает определенную книгу, используя ее путь к каталогу (через текст из userform textbox), и я хочу иметь возможность закрыть ее в конце сценария. Мой сценарий в настоящее время открывает книгу, используя каталог файлов, копирует что-то из этой книги и...


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

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

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

ПРИМЕЧАНИЕ .Если есть другие открытые книги, этот метод может возвращать ложное срабатывание, если несколько книг содержат одно и то же имя листа.

SierraOscar     23 марта 2016 в 16:23




Как ссылаться на открытую неактивную рабочую книгу?

Я хочу ссылаться из кода в активной книге на другую книгу, Я не хочу набирать путь, как это workbooks (path), эта ссылка должна быть гибкой, есть ли что-то вроде массива уже открытых книг ?


Как я могу ссылаться на переменную, используя строку, содержащую ее имя?

Есть ли способ ссылаться на переменную Javascript со строкой, содержащей ее имя? пример: var myText = 'hello world!'; var someString = 'myText'; //how to output myText value using someString?


Как я могу напрямую ссылаться на свою электронную книгу в iBookstore?

Я знаю, что мы можем ссылаться на наши приложения через http://itunes.com/apps/developername или http://itunes.com/apps/appname , но как мы можем ссылаться на нашу электронную книгу в iBooks части...


Не могу ссылаться на панель в коде-за ее именем, указанным в xaml

У меня есть свой VirtualizingWrapPanel, который выводит VirtualizingPanel и IScrollInfo. Вот пример того, как он используется в xaml: <ListBox x:Name=StationsListView DataContext={StaticResource...


Как я могу закодировать, чтобы закрыть открытую книгу, используя ее путь к каталогу, а не ее имя, используя vba в excel?

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


xlwings: могу ли я сделать живую ссылку на уже открытую книгу?

Я пытаюсь использовать xlwings для связи Python с Excel. С хорошим успехом, но я не могу ссылаться на уже открытую (и измененную) книгу excel. Таким образом, рабочая книга уже открыта в Excel, я...


Как я могу ссылаться на hash, используя имя переменной?

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


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

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


как я могу ссылаться на объектную переменную, не передавая ее в качестве параметра в классах python

Я пытаюсь ссылаться на объектную переменную внутри класса, не передавая ее в параметры, но она выдает ошибку class Sample: def __init__(self): v = [] v.append(name) v.append(email) s = Sample()...


Лучший способ ссылаться на книгу в VBA, когда имя книги меняется каждый день?

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

Источник: https://coderoad.ru/36182954/%D0%BA%D0%B0%D0%BA-%D1%8F-%D0%BC%D0%BE%D0%B3%D1%83-%D1%81%D1%81%D1%8B%D0%BB%D0%B0%D1%82%D1%8C%D1%81%D1%8F-%D0%BD%D0%B0-%D0%BA%D0%BD%D0%B8%D0%B3%D1%83-%D0%BD%D0%B5-%D0%B8%D1%81%D0%BF%D0%BE%D0%BB%D1%8C%D0%B7%D1%83%D1%8F-%D0%B5%D0%B5-%D0%B8%D0%BC%D1%8F

VBA: если имя листа в книге равно значению поля со списком, выбранному из формы пользователя, то скопируйте этот лист и вставьте его в другую книгу



Я работаю над пользовательской формой, которая будет копировать определенный лист из книги А и вставлять его в Книгу Б (по сути, архивируя эти данные). Форма пользователя представляет пользователю выпадающий список со списком для выбора имени листа, который будет скопирован. Однако при использовании команды sheets.copy я получаю подстрочный индекс вне диапазона ошибок. Вот мой код с именами, измененными для удобства чтения:

excelvba

ИсточникRob     22 января 2019 в 18:37


2 ответа


  • Раскрытие очень Скрытого Листа Excel VBA

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

  • Отправить данные формы пользователя в другую книгу

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


Корень вашей ошибки-неправильное восстановление книги. Есть и много других проблем.

  • Ненужная ссылка на
  • Ненужный цикл по всем листам
  • Ненужное переименование скопированного листа
  • Ненужные / неправильные ссылки на и
  • Нет Обработки Ошибок
  • Неправильный отступ

Ваш код, переработанный. Это записывается как событие нажатия кнопки в UserForm. Обновление в соответствии с вашими потребностями.

chris neilsen     22 января 2019 в 19:44

Изменить на

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

Chris Meurer     22 января 2019 в 19:45




VBA копирование рабочего листа из нераспечатанной книги в активную книгу Самый быстрый способ

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


Копирование и вставка данных из нескольких книг на рабочий лист в другой книге

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


Excel VBA для поиска имен рабочих листов и копирования диапазона в активный лист

Может ли кто-нибудь помочь мне с этим кодом VBA? Я не могу узнать, как искать и выбирать листы, не зная их имен. Я бы хотел: 1) в моем активном листе найдите значения ячеек в диапазоне(H6:AW6) и; 2)...


Раскрытие очень Скрытого Листа Excel VBA

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


Отправить данные формы пользователя в другую книгу

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


скопируйте лист в другую книгу, но этот лист также будет сохранен в новой книге

Мне нужно скопировать лист из одной рабочей книги в другую (существующую) рабочую книгу. Это работает, но лист также автоматически сохраняется в новой книге. Я понятия не имею, почему это...


Скопируйте рабочий лист из активной книги в другую книгу в другом месте

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


Скопируйте ячейку с одного листа на другой лист, если эта ячейка содержит определенный текст

Я скомпилировал данные колеса, но мне нужен макрос VBA, который копирует любую ячейку из листа 1 (имя: SheetSJ), соответствующую частичному тексту, а затем копирует данные этой ячейки в лист 2. Это...


Извлеките первый символ книги и скопируйте его в другую книгу, используя vba

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


Как скопировать ячейку с листа 1 на лист 2 (в определенной последовательности), если выполняется условие на листе 1

Я начинающий VBA. Я хочу скопировать ячейки из листа 1 в лист 2 в определенной последовательности (в моем случае через каждые 13 строк) с условием следующего: если какой-либо из D2-D32 в листе 1...

Источник: https://coderoad.ru/54314509/VBA-%D0%B5%D1%81%D0%BB%D0%B8-%D0%B8%D0%BC%D1%8F-%D0%BB%D0%B8%D1%81%D1%82%D0%B0-%D0%B2-%D0%BA%D0%BD%D0%B8%D0%B3%D0%B5-%D1%80%D0%B0%D0%B2%D0%BD%D0%BE-%D0%B7%D0%BD%D0%B0%D1%87%D0%B5%D0%BD%D0%B8%D1%8E-%D0%BF%D0%BE%D0%BB%D1%8F-%D1%81%D0%BE-%D1%81%D0%BF%D0%B8%D1%81%D0%BA%D0%BE%D0%BC-%D0%B2%D1%8B%D0%B1%D1%80%D0%B0%D0%BD%D0%BD%D0%BE%D0%BC%D1%83-%D0%B8%D0%B7-%D1%84%D0%BE%D1%80%D0%BC%D1%8B

Excel vba сделать книгу активной

Как сделать книгу активной, зная имя книги?

​Смотрите также​​P. S. На​ стопорится из-за того​ создать Новую книгу​

​Selection.Insert Shift:=xlToRight​​ Подскажите пжл, как​​ l&, r As​​ Dim xlsWb As​ xlsApp As Object​

​ ему имя "Новый​​ тот не сработал​

​ и т.п. При​​ взяли имя активной​ файлов, к которому​

​ момент, когда Вы​​: Обратиться к рабочей​ расширения файлов, то​PuLbKa​ ум пришло только​ что не переключается​ для помещения туда​Set nb =​ исправить.​

​ Range Set xlsApp​​ Excel.Workbook Dim xlsSh​ Dim xlsWb As​

​ лист" Dim oRange​​ правильно...​ этом ввод пользователя​
​ книги и продолжайте​ после этого будет​ точно знаете, что​​ книге можно по​​ так​
​: Как сделать книгу​ создание буферной папки.​​Guest​​ результатов, переключиться на​ Workbooks.Add​Selection.Find(What:="", After:=ActiveCell, LookAt:=xlPart).Select​ = GetObject(, "Excel.Application")​ As Excel.Worksheet Dim​
​ Object Dim xlsSh​
​ As Range 'Находим​Если честно я​ блокируется, а указатель​ свой макрос.​

​ применен макрос. Имена​​ нужная книга активна,​ имени или по​При открытой книге​ активной зная имя​JayBhagavan​: Это были эксперименты​ неё и заполнить​Set ws =​

​RowFind_ll = Selection.Row​ Set xlsWb =​ a&, n&, b&​ As Object Dim​
​ диапазон A1 в​ не знал эту​ мыши приобретает вид​Юрий М​ других открытых файлов​
​ прописать​
​ индексу. В чем​
​Workbooks("Книга1.xls").Activate​ книги?​: Octavian.vs, так сохраните​ запустить макрос :)​ в ней Шапку(действие1).​ nb.Sheets(1)​
​next RowFind_ll​
​ xlsApp.ActiveWorkbook Set xSh​
​ Set xlsApp =​
​ a&, n&, b&​

CyberForum.ru

Активировать нужную книгу без привязки к наименованию книги (Макросы/Sub)

​ Книга1 Set oRange​​ функцию, но как​
​ песочных часов.​: А как Excel​ и где хранятся​200?'200px':''+(this.scrollHeight+5)+'px');">ИмяКниги=Activeworkbook.Name​ проблема, лично мне,​или​Казанский​ в корень диска​А так он​ Далее переключиться в​With ws​//​
​ = xlsWb.ActiveSheet Set​ GetObject(, "Excel.Application") For​ Set xlsApp =​ = oSheet.Range("A1") oRange.Value​ обычно чувствуюешь и​К сожалению. А​ должен догадаться КАКУЮ​ не известно.​. По индексу,​ не понятно. Код​Workbooks("Книга1.xlsx").Activate​:​ или в какую-нибудь​ должно быть:​ книгу "This" и​.Select​Пробовал указывать перед​ r = xSh.ActiveCell​ Each xlsWb In​ CreateObject("Excel.Application") ' xlsApp.Visible​ = "Данные" 'вносим​ пробуешь как будто​ Application.InputBox позволяет осуществлять​ именно из открытых​В какую сторону​

​ есть еще на​ выбор диапазона мышью​

​ книг нужно активировать?​​ смотреть?​Udik​

​ wb.Sheet(a) (наверное)​ действия 2 занести​​.Rows("1:4").Select​

​ - тоже не​​ '.ActiveCelltxt = GetObject(,​ = "Book.xlsx" Then​ xlsWb = ActiveWorkbook​ 'сохраняем файл с​ природе такая функция​ только на той​jfd​iba2004​, тоже можно. Только​ пишет правильно, но​

​ActiveWindow.FreezePanes = True​​ переключается​
​ "Excel.Application").ActiveCell?Созрел ещё один​ MsgBox "Нужная книга!"​
​ n = xlsWb.Sheets.Count​ новым названием в​ ActiveWorkbook.Path помимо ThisWorkbook.Path!​ книге на которой​: Спасибо.​: Мне думается, что​ за индексами придётся​ кривовато)​ но только начал​PuLbKa​: , спасибо, об​ цикл по листам​Russia​End With​Windows("Лист1").Activate - Можно​ вопрос по этой​ End If Next​ Set xlsSh =​ указанное место на​У Вас тоже​ он был запущен.​КАк все далеко​ нужно создать что-то​очень​200?'200px':''+(this.scrollHeight+5)+'px');">Sub tt()​

​Application.ScreenUpdating = False​​ с макросами, подскажите​Казанский​ возможно есть более​ написал это:​ Запиши нужные листы​ In wb.Worksheets​ этой строчки, т.к.​Как из VB6​ xlsApp.ActiveWorkbook n =​ xlsSh.Cells(Rows.Count, 1).End(xlUp).Row Set​ oWbk.SaveAs "D:\Книга1.xls" oWbk.Close​ Как бы чуешь?​ выбрать только если​ я думал ограничится​​МВТ​Workbooks("Книга1").Sheets("Лист1").Range("9:9").Copy Destination:=Workbooks("Книга2").Sheets("Лист1").Range("A9")​​ пожалуйста. Если повторяюсь​​: Я так делаю​ изящные решения?​​For Each sh​​ в переменные -​

​Set sh =​​ надо будет вытаскивать​ записать в активную​ xlsWb.Sheets.Count Set xlsSh​ xlsSh = xlsWb.Sheets(2)​ 'закрываем файл Книга1​Sergey112233​ не установлен запрет​ паузой (например вызовом​

​: Нету. Невозможно отправить​Проверил - лист​ ним.{/post}{/quote}​lastrow = sh.Cells(8,​ т.п. Мне казалось​В VBA это​

​ а дальше -​​ 1).End(xlUp).Row End Sub​ файл Книга1 с​Есть такой код:​
​ то долго не​ макроса и открытием​ их объединяющее, например,​

excelworld.ru

VBA: В процессе выполнения макроса выбрать мышью активное окно (книгу)

​ Вас будет открыто​​Dendibar​
​ нашел близкие вопросы​: Значит, используете неправильное​ что-то, что еще​ один только берет.​
​Так и делал!​ 5).End(xlDown).Row​ что это проще​ пишется так:​ косяк :) a​dzug​ диска ‘oWbk.Quit????????? End​1. Открыта Книга113​ мог понять почему​ другой книги, но​ расширение? Но я​ ровно 2 книги​: Спасибо за ответы!​ и ответы, но​ имя. Выполните в​
​ не создано. А​Может нужно так​

​ Стопорится на том​​k = 4​ делает.​ActiveCell.FormulaR1C1 = "=R[+1]C+R[0]C[-2]"А​ = xlsWb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row​: Увы, не работает..​ Sub​2. С помощью​ не работает выбор​ не дает открыть​ с такими проблемами​ причем, название одной​Наверное непонятно сформулировал​ на свой пример​ окне Immediate for​ именно так выглядит​ написать?​ моменте что указал​ 'заполнение под "шапкой"​
​P.S.Заранее спасибо за​

​ вот из VB6​​ Set xlsSh =​
​dzug​dzug​

​ кода создаем новую​​ мышью, когда в​ другую книгу​ не сталкивался и​

​ из них Вы​​ вопрос:​ не могу применить​ each w in​ несохраненная книга -​

​For i =​​ в теме.​For RowFind_ll =​
​ любой совет, решение.​ записать не получается​ xlsWb.Sheets(2) b =​:​: Активацию между книгами​ книгу Книга1. Здесь​

​ другом макросе все​​jfd​ это всего лишь​ знаете, то можно​В том месте​ эти ответы.​
​ workbooks:debug.? w.name:nextПолучите список​ её пока вроде​ 0 To UBound(a)​Hugo​ 8 To lastrow​

​Johny​​ . Пробовал по​ xlsSh.Cells(Rows.Count, 1).End(xlUp).Row End​dzug​ смотрите в прилагаемом​​ она еще не​ было хорошо. )​: Пауза в выполнении​​ моё предположение. Сейчас,​ так​ где мне макрорекордер​Проблема вот в​ книг. Скопируйте нужное​

​ как нет и​​ind = 0​: Так именно в​ ' цикл по​: Я дико извиняюсь,​

​ разному (см.мой пост​​ Sub​
​: Проверил ещё раз.​ файле.​ сохранена на диске,​Sergei_A​ макроса во время​ к сожалению, времени​200?'200px':''+(this.scrollHeight+5)+'px');">Sub tt()​ написал: Windows("Книга 2.xlsx").Activate​ чем: макрос, который​

​ имя и вставьте​​ пути до неё​For Each sh​ этой строке ссылки​ ТП​ но можно ли​ № 16)в т.ч.​Устранил​ Не работает ..​new_see​

​ а находится в​​: Я не понял​ которой мышью тыкается​ мало, попробуйте что-нибудь​Dim wb1, wb2​ , при пользовании​ я сделал будет​ в код.​

​ тоже нет. Поэтому​​ In wb.Worksheets​ на лист нет.​RowFind_l = RowFind_ll​ узнать, что вообще​ и так:​
​Sub main() Dim​dzug​: Как создать новую​
​ памяти ПК.​ о чем это​ нужная книга и​ подобное в Нете​
​ As Workbook​ макросом, файл всегда​ применятся для эксель​
​Апострофф​

​ сохранять книгу в​​Russia​
​Если бы было​n = 1​

​ этот код делает?​​xlsWb.ActiveCell.FormulaR1C1 = "=R[+1]C+R[0]C[-2]"пробовал​ xlsApp As Excel.Application​​: Я в Excel​ книгу с заданным​3. В ячейку​ Вы.​ она становится активной,​ поискать, а м.б.​Dim Rng As​ будет называться по-разному,​ файлов с различными​: Можете подсказать как​ любом случае надо.​:​ типа так:​ 'порядковый номер​И очень непонятно​​ и с​ Dim xlsWb As​ запускал, там пашет,​ именем?​ Книги1 вносим данные.​jfd​ все действия макроса​ более знающие люди​ Range​ поэтому не подходит,​ наименованиями, но код​ это сделать?​Octavian.vs​Russia​sh.Range(sh.Cells(RowFind_l, 4), sh.Cells(lastrow,​Range(Cells(RowFind_l, 4), Cells(lastrow,​

​ вот это: Set​​xlsApp​ Excel.Workbook Dim xlsSh​ сейчас посмотрю в​

​Например​​4. Сохраняем Книгу1​: Хотел малой кровью​ идут в активной​

​ помогут.​​Set wb1 =​​ чтобы название было​
​ ниже строго привязан​Catstail​

planetaexcel.ru

Запомнить директорию активной книги. VBA

​: Спасибо! Просто были​​: хотел написать​
​ 4)).Select​ 4)).Select ' --->​ wb = ThisWorkbook.​, и с​ As Excel.Worksheet Dim​ VB6​Sub CreateWorkbook() Set​ на диске.​ отделаться. Спасибо за​ книге. Если так​Удачи!​ ThisWorkbook​ "Книга 2.xlsx", надо,​
​ к копированию в​
​: 1: Открыть VBA​

​ сомнения которые теперь​​Hugo​

​вот это было​​ Здесь почему то​ И где эта​xSh​ a&, n&, b&​dzug​

​ NewWorkbook = Workbooks.Add​​5. Закрываем Книгу1.​ пример.​

​ конечно возможно.​​k61​With wb1.Sheets("Лист1")​ чтобы название сюда​

​ определенный файл ("Книга​​ - [Alt+F11]​ окончательно развеяны.​: Это уже ближе.​ бы "так и​ стопорится из-за того​ "wb" используется?​
​.Сам задал вопрос,​ Set xlsApp =​: Вылазит вот такая​ End Subсоздает книгу​6. Удаляем Книгу1​jfd​ber$erk​: Код в Книге2​
​Set Rng =​ менялось в зависимости​ 2.xlsx"), а файлы​

planetaexcel.ru

Как сделать активной новую Книгу?

​2: Нажать [Ctrl+G]​​Strobery​
​Но ведь если​
​ делал".​
​ что не переключается​ikki​ сам и отвечаю.​ GetObject(, "Excel.Application") Set​ "петрушка" на восьмой​ с именем по​ с диска.​
​:​: В коде макросе​
​Sub www() Workbooks("Книга1").Activate​ Intersect(.UsedRange, .Range("9:9"))​
​ от названия файла.​
​ будут называться по​ (или ищите в​
​: У меня есть​For Each sh​Но тогда селект​
​ на другую книгу.​: а вот эта​
​Методом "тыка" получилось​ xlsWb = xlsApp.ActiveWorkbook​ строке.. А на​ умолчанию,​7. Закрываем Excel,​Казанский,​ если указать ActiveWorkbook.ActiveSheet.range...​ End Sub​
​End With​ Находил на форумах​ другому. Если меняю​ меню окно​ книга1 и кнопка(Лист1)​ In wb.Worksheets​ уже не нужен,​
​ Подскажите пжл, как​ строка у вас​ сделать так:​ n = xlsWb.Sheets.Count​ седьмой строке значение​а как изменить​
​ в котором была​Спасибо, так и​ то код как​jfd​Rng.Select​ решения, но почему-то​ Windows("Книга 2.xlsx").Activate на​Immediate​ при нажатии которой​то в sh​ разве что как​ исправить.​ нормально срабатывает?​GetObject(, "Excel.Application").ActiveCell.FormulaR1C1 =​ Set xlsSh =​ объектной переменной xlsWb​ имя, чтобы создалась​ создана Книга1.​ сделал.​ раз будет выполняться​: Извините, создается впечатление​For Each wb2​ не получается, ниже​ ActiveSheet.Activate, то копирование​)​ Открываетия Форма1.​ уже есть ссылка​ финальное действие -​Selection.Find(What:="", After:=ActiveCell, LookAt:=xlPart).Select​lastrow = sh.Cells(8,​ "=R[+1]C+R[0]C[-2]"​ xlsWb.Sheets(1) a =​

​ не присваивается..​​ не 'Книга1',​Подскажите, пожалуйста, два​Inter_E​

CyberForum.ru

Как создать новую книгу с заданным именем?

​ в выбранной книге​​ что Вы не​ In Workbooks​ пытаюсь вытащить название​
​ происходит в "Книга​
​3: Скопировать в​В форме1 есть​ на лист, и​ показать юзеру результат.​RowFind_ll = Selection.Row​
​ 5).End(xlDown).Row​Russia​ xlsSh.Cells(xlsSh.Rows.Count, 1).End(xlUp).Row Set​
​Запускать из VB6..​а например 'Моя​

​ вопроса.​​: Добрый день!​ (хотя вроде как​

​ удосужились прочесть вопрос.​

CyberForum.ru

Обработка активной книги Excel

​If wb2.Name <>​​ файла в ячейку​ 1.xlsx", так как​ окно​ текст бокс1 и​Set sh =​Russia​next RowFind_ll​Johny​: Добрый вечер!​
​ xlsSh = xlsWb.Sheets(2)​
​dzug​ книга'​1. В пункте​В ходе выполнений​ это по умолчанию)​Юрий М​ wb1.Name Then Exit​ А1 Книги 2,​ ее считает активной.​Immediate​ кнопка1, при нажатии​ wb.Sheets(a(i))​: Пробовал:​next sh​: lastrow = sh.Cells(8,​Задаю листы.​ b = xlsSh.Cells(xlsSh.Rows.Count,​

​: Так?​​new_see​ 2, где Книга1​ макроса, нужно запоминть​Казанский​: Это почему? Вместо​ For​ дальше пытаюсь добавить​ Можно ли как-то​код for each​ кнопки открывается​совершенно лишнее, и​Range(sh.Cells(RowFind_l, 4), sh.Cells(lastrow,​ikki​ 5).End(xlDown).Row​Set wb =​ 1).End(xlUp).RowEnd Sub​Sub main() Dim​

​: NewWorkbook.Windows(1).Caption = 'Моя​​ еще не сохранена,​

​ директорию где находиться​​: Создайте форму со​

​ "Книга1" подставляем выбранное​​Next​ содержимое этой ячейки​

​ активировать книгу без​​ w in workbooks:debug.?​книга2 Я активирую​ даже вероятно только​ 4)).Select​

​: имхо, здесь имеем​​Что за переменная​ ThisWorkbook​Спасибо. Всё заработало.​ XL As New​ книга'​ есть ли возможность​
​ текущая книга. Затем​

​ свойством ShowModal=False, надписью​​ значение из Лист/КомбоБокса,​
​Application.ScreenUpdating = False​ туда куда надо,​ привязки к названию?​ w.name:next4: Поставить курсор​ книгу1, (делаю нужные​ мешает.​и​ довольно дикую смесь​ "sh"?​Sheets(a).Select​ Только вместо xlUp​ Excel.Application, xlsSh XL.Workbooks.Open​спасибо​ активации Книги113, затем​ я создаю макросом​

​ "Выберите книгу" и​​ как предлагалось выше.​Rng.Copy Destination:=wb2.Sheets("Лист1").Range("A9")​ но все равно​ Например, активировать книгу,​ ввода на строку​ процедуры) и теперь​Или одно, или​
​sh.Range(Cells(RowFind_l, 4), Cells(lastrow,​ результатов работы макрорекодера​Russia​
​Sheets(a(i)).Columns("E:F").Cut​ надо написать -4162​

​ App.Path & "\Book.xlsx"​​dzug​

​ активации Книги1. Т.е.​​ новую книгу. Суть​ кнопкой. В коде​ber$erk​Application.ScreenUpdating = True​ берет не нужную​ в которой установлен​ с введенным кодом​ мне нужно активировать​ другое.​ 4)).Select​ и каких-то (не​: Извиняюсь пару строчек​Columns("A:A").Select​ . Понять это​ Set XL =​: Необходимо определить количество​ здесь передача активации​ в том что​ кнопки напишите​: все открытые файлы​End Sub​ ячейку, а ячейку​ курсор? Или по​5: нажать Enter​

​книгу2 но так​
​Russia​//​ очень понятных) попыток​ забыл захватить. Я​Selection.Insert Shift:=xlToRight​ помогла соседняя тема​ XL.ActiveWorkbook.Sheets.Application XL.Visible =​ заполненных строк первого​ между книгами возможна.​ я хотел сохранять​Private Sub CommandButton1_Click()​ Excel​В противном случае​ из книги 1.​ какому-то иному признаку.​Но есть подозрение,​
​ как имя книги​: Да я тоже​Пойду проверять.​ их доработки.​ писал. И вся​
​Set nb =​Работа с excel​
​ True Dim a&,​
​ и второго, по​2. Пункт7 -​ новую книгу туда​ Unload Me MainMacro​Sub ListAll() Dim​ соблаговолите ВНЯТНО объяснить,​200?'200px':''+(this.scrollHeight+5)+'px');">​ Подскажите пожалуйста.​ что сделать активной​ находится в текст​ об этом думал,​
​Hugo​много мусора -​ используется. И хотелось​
​ Workbooks.Add​ ячейками​ n&, b& n​ индексу, листов активной​
​ как закрыть Excel,​
​ же где находилась​ End Sub​ wb As Workbook​ что именно Вы​Sub Тест()​200?'200px':''+(this.scrollHeight+5)+'px');">Sub Тест()​ Вы хотите неоткрытую​ боксе я не​ но просто макрос​: Ну значит недопробовали:)​ те же ActiveWindow.FreezePanes​ бы что бы​Set ws =​Ещё раз спасибо.​ = XL.Sheets.Count Set​ книги Excel (книга​ в котором создавалась​
​ прежняя книга. Не​, где MainMacro​ For Each wb​
​ делаете и что​'​
​'​ книгу?​ знаю как это​ не работал, вот​Только я в​ = True, .Rows("1:4").Select​ когда я писал​
​ nb.Sheets(1)​Не могу прочитать​​ xlsSh = XL.Sheets(1)​​ открыта). На седьмой​​ Книга1, а Книга113​​ могу придумать эту​ - макрос, который​
​ In Workbooks MsgBox​ ожидаете получить в​
​' Тест макрос​' Тест макрос​

CyberForum.ru

VBA Как переключать окна/книги?

​Pavel55​​ сделать.​
​ я и подумал,​
​ Вашем примере нигде​ и др.​
​ sh.select - становилась​
​With ws​
​ название подключаемой библиотеки..​
​ a = xlsSh.Cells(Rows.Count,​
​ строке переменной xlsWb​ оставалась бы открытой.​
​ идею...​ работает с активной​
​ wb.Name Next End​
​ результате​
​'​
​'​
​: Казанский совершенно прав.​
​Вот код​
​ что может нужно​ не видел, где​
​возможно, проще озвучить​ активной книга ThisWorkbook,​
​.Select​ Напишате пожалуста название​ 1).End(xlUp).Row Set xlsSh​ , значение не​
​ Здесь, видимо, тот​
​Заранее благодарен.​ книгой.​
​ Sub​Dendibar​'​'​ Но при условии,​Private Sub CommandButton1_Click()​ задать.​ эта sh определяется...​
​ саму задачу?​
​ а не получается​
​.Name = "Результат"​

​ отдельно.Microsoft Excel 12.0​
​ = XL.Sheets(2) b​ присваивает ???​ же вопрос активации.​С уважением, Inter_E​
​Форма запускается стартовым​jfd​: StoTisteg, большое спасибо!​Range (A1) =​Windows("Книга 1.xlsx").Activate​ что книга открыта.​ 'Открываю Книгу2 Dim​Спасибо, Hugo!​

​Russia​Russia​

​ - не переключается​​.Rows("1:4").Select​ Object LibraryРазобрался с​ = xlsSh.Cells(Rows.Count, 1).End(xlUp).Row​Спасибо за ответ.​
​Как Вы понимаете,​Alex_ST​ макросом из одной​: Юрий М, потому​ Вашим способом все​

​ ActiveWorkbook.Name​​Rows("9:9").Select​ Если книга не​ wb As Workbook​

​Юрий М​: Сообщение от 05.05.2011,​

​: Блин. Хорошо. Как​​ на окно этой​ActiveWindow.FreezePanes = True​

​ библиотекой..Спасибо.Да простят меня​ End Sub​

​Sub main() Dim​​ действия с Книгой1​: ThisWorkbook.Path​ команды​ что этот способ​ получилось.​Windows("Книга 1.xlsx").Activate​Selection.Copy​ открыта - ее​ Set wb =​: Возвращаясь к переключению​ 17:28​ сделать активным этот​ книги, остается в​End With​
​ администраторы за поднятие​Апострофф​ xlsApp As Object​ должны происходить в​ответ > Alex_ST​UserForm1.Show​ очевиден и предполагает​Всем остальным тоже​Rows("9:9").Select​Windows("Книга 2.xlsx").Activate​


​ нужно сначала открыть,​ Workbooks.Open(Filename:='C: ' &​
​ между книгами:​
​в середине указывается.​
​ лист? А потом​
​ новой книге и​
​lastrow = sh.Cells(8,​ темы с "двухлетней​
​: В том то​ Dim xlsWb As​
​ скрытом от пользователя​
​: Спасибо, я изменил​
​Юрий М​
​ знание названия файла​
​ большое спасибо за​
​Selection.Copy​

​Rows("9:9").Select​ а уж затем​
​ TextBox1 & '.xls')​Windows("Нужная_Книга.xls").Activate​
​Hugo​ другой лист из​
​ выдает ошибку.​ 5).End(xlDown).Row​
​ бородой" , но​ и дело, что​ Object Dim xlsSh​ режиме. Постоянно открыта​
​ на "ActiveWorkbook.Path" и​
​: Попробуйте тогда .Wait​ нужной книги.​
​ помощь!​Windows("Range (A1).Value").Activate​ActiveSheet.Paste​ активизировать.​ ' Workbooks('Книга1.xls').Worksheets('Лист1').Activate 'Имя​Octavian.vs​: Да, там я​ другой книги (ThisWorkbook)?​
​lastrow = sh.Cells(8,​
​k = 4​
​ вопрос стопроцентно по​
​ книга Excel открыта​

​ As Object Dim​​ только Книга113.​ кажется все будет​А Application.InputBox не​А кроме получения​jfd​Rows("9:9").Select​
​Range("J5").Select​мне кажется. тут​ последней заполненой ячейки​: Добрый день,​

​ не вникал.​Johny​

​ 5).End(xlDown).Row - это​​ 'заполнение под "шапкой"​ этой теме.​ и название у​ a&, n&, b&​Sub Кнопка1_Щелкнуть() Dim​

​ работать положенно. Сейчас​​ пробовали?​
​ списка всех открытых​: Добрый день!​ActiveSheet.Paste​End Sub​

​ ещё важную роль​​ Const iRow2 =​На просторах интернета​Но вот это​: ikki, Согласен полностью.​ мои опыты, чтобы​

​For RowFind_ll =​​Открыта книга Эксель,​ неё может быть​ Set xlsApp =​ oExcel As New​ окончательно проверю!​jfd​ фалов и выбора​Банальная вроде вещь,​Range("J5").Select​Оформляйте коды тегами​ играет указано ли​

​ 65536: iClm =​​ нашел код отправки​ как понимать?​russia, попытайтесь ещё​ производил операции с​ 8 To lastrow​
​ на листе выделена​ разное. Обращаться надо​ CreateObject("Excel.Application") ' xlsApp.Visible​ Excel.Application 'Запускаем Excel​

​Inter_E​​: Нашел что Wait​ из него одного,​ а потратил кучу​
​End Sub​ (кнопка #)​
​ расширение файла.​ 'A' iRws =​
​ сообщения с вложением​For Each sh​ раз описать, для​
​ листом sh (книге​ ' цикл по​ одна ячейка.​ к АКТИВНОЙ книге..​ = True Set​

​ oExcel.Visible = True​​: Спасибо, все нормально​
​ —​ других способов нет?​
​ времени и не​
​StoTisteg​Udik​
​На Windows, где​
​ Columns(iClm).Rows(iRow2).End(xlUp).Row ??????????????????????????? ActiveWorkbook.SaveAs​

​ из Excel, но​​ In wb.Worksheets​
​ чего нужен сей​ где находиться макрос).​ ТП​Как из VB​

​В Вашем коде​​ xlsWb = xlsApp.ActiveWorkbook​ 'Делаем его видимым​
​ пошло, с АктивВоркБук.Пазс​

​это метод позволяет приостановить​​Sergei_A​ нашел ничего.​
​: Как он будет​: по номеру типа​
​ в найстройках не​ Filename:= _ 'C:123​
​ т. к. активная​Set sh =​

​ макрос?​​ Работает. Но если​RowFind_l = RowFind_ll​

​ 6 узнать что​​ выдаёт ошибку на​ n = xlsWb.Sheets.Count​ Dim oWbk As​ТолькоУчусь​ работу Excel на​

​: Я бы сделал​​Есть файл1 с​ называться у Вас,​
​ такого​ указано - отображать​
​ ' & Cells(iRws,​ книга является вновь​

​ wb.Sheets(a(i))​Johny​ задавать sh.cells(...)... -​n = 1​
​ записано в активной​ строке:​

​ Set xlsSh =​ Excel.Workbook 'Создаем новую​
​: Лучше как Алексей​ указанное вами время,​
​ немодальную форму (похожую​ макросом (кроме макроса​
​ ведомо только Вам.​
​200?'200px':''+(this.scrollHeight+5)+'px');">​ расширения файлов нужно​

​ iClm) & '.xls'​​ созданной и не​

​Johny​​: Зачем активировать листы?​

​ то выдает ошибку​​ 'порядковый номер​
​ ячейке ?​
​Dim XL As​ xlsWb.Sheets(1) a =​
​ книгу Книга1 Set​ предложил, так как​ сняв нагрузку с​
​ на msgbox) с​ ничего не имеет),​
​ Если Вы знаете​Public Sub test()​ делать так​
​ End SubЗаранее благодарен​ имеет своего "реального"​

​: Здесь имеется ввиду​​ Запиши нужные листы​ на подобии вышеописанного.​Range(Cells(RowFind_l, 4), Cells(lastrow,​Пробовал так:​ New Excel.Application, xlsSh​ xlsSh.Cells(Rows.Count, 1).End(xlUp).Row Set​ oWbk = oExcel.Workbooks.Add()​
​ это "...текущая книга...".​

​ процессора. Используется для​​ текстом "​ есть также другие​
​ имя книги, то​

planetaexcel.ru

VBA отправка созданной (активной) книги через outlook

​Debug.Print Application.Workbooks(1).Name​​При открытой книге​
​ ||||||Strobery||||||​ адреса, строчка кода​ активный лист.​ в переменные -​Set wb =​ 4)).Select ' --->​Dim xSh As​dzug​ xlsSh = xlsWb.Sheets(2)​ Dim oSheet As​Inter_E​ демонстраций — чтобы​Выберите одну из открытых​
​ открытые файлы. После​ так и пишите​End Sub​

​Workbooks("Книга1").Activate​​Masalov​ ( .Attachments.Add ActiveWorkbook.FullName)​Johny​ и обращайся к​ ThisWorkbook​

​ Здесь почему то​​ Excel.Worksheet, xlsApp As​:​ b = xlsSh.Cells(Rows.Count,​ Excel.Worksheet Set oSheet​

​: Да, спасибо, но​​ пользователь успел увидеть,​ книг Excel, и​ запуска макроса из​ — Workbooks(). Ещё​только в номерах​А если вы​: например:​ не может подтянуть​: Range(Cells(RowFind_l, 4), Cells(lastrow,​ ним.​Sheets(a).Select​

​ стопорится из-за того​​ Excel.Application, xlsWb As​dzug​ 1).End(xlUp).Row End Sub​

planetaexcel.ru

Активация книг с именем находящимся в текстбоксе (Excel)

​ = oWbk.Worksheets.Item("Лист1") 'Находим​​ у меня код​ что происходит, для​ нажмите ОК.​ файл1 надо выбрать(указать​
​ один способ —​ не запутайтесь​ в настройках Windows​Windows(Me.TextBox1.Value).Activate​
​ файл, может есть​ 4)).Select ' --->​Russia​Sheets(a(i)).Columns("E:F").Cut​
​ что не переключается​ Excel.Workbook, xlsSh As​: Sub main() Dim​dzug​ Лист1 oSheet.Name =​ макроса расположен на​
​ ожидания завершения выполнения​
​" и одной кнопкой​ мышью, сделать активным)​ завести переменную, скажем,​.​ (в свойствах папки)​то, нет?​ какие-нибудь пути решения?​ Здесь почему то​: Задача. Мне необходимо​Columns("A:A").Select​ на другую книгу.​ Excel.Worksheet Dim txt$,​ xlsApp As Excel.Application​: Sub main() Dim​ "Новый лист" 'Присваиваем​ Personal.book и поэтому​ какой-либо внешней операции​

​ ОК. По кнопке​​ один из открытых​
​ ИмяКниги и в​
​МВТ​

CyberForum.ru

​ указали - отображать​

Источник: https://my-excel.ru/vba/excel-vba-sdelat-knigu-aktivnoj.html

Excel vba сделать книгу активной

Как сделать книгу активной, зная имя книги?

​Смотрите также​​P. S. Http://profexcel.ru/raznie-voprosi/vstavka-soderzhimogo-iz-drugih-prilozheniy-v-powerpoint.php стопорится из-за того​ создать Новую книгу​

​Selection.Insert Shift:=xlToRight​​ Подскажите пжл, как​​ l&, r As​​ Dim xlsWb As​ xlsApp As Object​

​ ему имя "Новый​​ тот не сработал​

​ и т.п. При​​ взяли имя активной​ файлов, к которому​

​ момент, когда Вы​​: Обратиться к рабочей​ расширения файлов, то​PuLbKa​ ум пришло только​ что не переключается​ для помещения туда​Set nb =​ исправить.​

​ Range Set xlsApp​​ Excel.Workbook Dim xlsSh​ Dim xlsWb As​

​ лист" Dim oRange​​ правильно.​ этом ввод пользователя​
​ книги и продолжайте​ после этого будет​ точно знаете, что​​ книге можно по​​ так​
​: Как сделать книгу​ создание буферной папки.​​Guest​​ результатов, переключиться на​ Workbooks.Add​Selection.Find(What:="", After:=ActiveCell, LookAt:=xlPart).Select​ = GetObject(, "Excel.Application")​ As Excel.Worksheet Dim​
​ Object Dim xlsSh​
​ As Range 'Находим​Если честно я​ блокируется, а указатель​ свой макрос.​

​ применен макрос. Имена​​ нужная книга активна,​ имени или по​При открытой книге​ активной зная имя​JayBhagavan​: Это были эксперименты​ неё http://profexcel.ru/raznie-voprosi/podderzhivaemie-excel-formati-faylov.php заполнить​Set ws =​

​RowFind_ll = Selection.Row​ Set xlsWb =​ a&, n&, b&​ As Object Dim​
​ диапазон A1 в​ не знал эту​ мыши приобретает вид​Юрий М​ других открытых файлов​
​ прописать​
​ индексу. В чем​
​Workbooks("Книга1.xls").Activate​ книги?​: Octavian.vs, так сохраните​ запустить макрос :)​ в ней Шапку(действие1).​ nb.Sheets(1)​
​next RowFind_ll​
​ xlsApp.ActiveWorkbook Set xSh​
​ Set xlsApp =​
​ a&, n&, b&​

CyberForum.ru

Активировать нужную книгу без привязки к наименованию книги (Макросы/Sub)

​ Книга1 Set oRange​​ функцию, но как​
​ песочных часов.​: А как Excel​ и где хранятся​200?'200px':''+(this.scrollHeight+5)+'px');">ИмяКниги=Activeworkbook.Name​ проблема, лично мне,​или​Казанский​ в корень диска​А так он​ Далее переключиться в​With ws​//​
​ = xlsWb.ActiveSheet Set​ GetObject(, "Excel.Application") For​ Set xlsApp =​ = oSheet.Range("A1") oRange.Value​ обычно чувствуюешь и​К сожалению. А​ должен догадаться КАКУЮ​ не известно.​. По индексу,​ не понятно. Код​Workbooks("Книга1.xlsx").Activate​:​ или в какую-нибудь​ должно быть:​ книгу "This" и​.Select​Пробовал указывать перед​ r = xSh.ActiveCell​ Each xlsWb In​ CreateObject("Excel.Application") ' xlsApp.Visible​ = "Данные" 'вносим​ пробуешь как будто​ Application.InputBox позволяет осуществлять​ именно из открытых​В какую сторону​

​ есть еще на​ выбор диапазона мышью​

​ книг нужно активировать?​​ смотреть?​Udik​

​ wb.Sheet(a) (наверное)​ действия 2 занести​​.Rows("1:4").Select​

​ - тоже не​​ '.ActiveCelltxt = GetObject(,​ = "Book.xlsx" Then​ xlsWb = ActiveWorkbook​ 'сохраняем файл с​ природе такая функция​ только на той​jfd​iba2004​, тоже. Только​ пишет правильно, но​

​ActiveWindow.FreezePanes = True​​ переключается​
​ "Excel.Application").ActiveCell?Созрел ещё один​ MsgBox "Нужная книга!"​
​ n = xlsWb.Sheets.Count​ новым названием в​ ActiveWorkbook.Path помимо ThisWorkbook.Path!​ книге на которой​: Спасибо.​: Мне думается, что​ за индексами придётся​ кривовато)​ но только начал​PuLbKa​:спасибо, об​ цикл по листам​Russia​End With​Windows("Лист1").Activate - Можно​ вопрос по этой​ End If Next​ Set xlsSh =​ указанное место на​У Вас тоже​ он был запущен.​КАк все далеко​ нужно создать что-то​очень​200?'200px':''+(this.scrollHeight+5)+'px');">Sub tt()​

​Application.ScreenUpdating = False​​ с макросами, подскажите​Казанский​ возможно есть более​ написал это:​ Запиши нужные листы​ In wb.Worksheets​ этой строчки, т.к.​Как из VB6​ xlsApp.ActiveWorkbook n =​ xlsSh.Cells(Rows.Count, 1).End(xlUp).Row Set​ oWbk.SaveAs "D:\Книга1.xls" oWbk.Close​ Как бы чуешь?​ выбрать только если​ я думал ограничится​​МВТ​Workbooks("Книга1").Sheets("Лист1").Range("9:9").Copy Destination:=Workbooks("Книга2").Sheets("Лист1").Range("A9")​​ пожалуйста. Если повторяюсь​​: Я так делаю​ по ссылке решения?​​For Each sh​​ в переменные -​

​Set sh =​​ надо будет вытаскивать​ записать в активную​ xlsWb.Sheets.Count Set xlsSh​ xlsSh = xlsWb.Sheets(2)​ 'закрываем файл Книга1​Sergey112233​ не установлен запрет​ паузой (например вызовом​

​: Нету. Невозможно отправить​Проверил - лист​ ним.{/post}{/quote}​lastrow = sh.Cells(8,​ т.п. Мне казалось​В VBA это​

​ а дальше -​​ 1).End(xlUp).Row End Sub​ файл Книга1 с​Есть такой код:​
​ то долго не​ макроса и открытием​ их объединяющее, например,​

excelworld.ru

VBA: В процессе выполнения макроса выбрать мышью активное окно (книгу)

​ Вас будет открыто​​Dendibar​
​ нашел близкие вопросы​: Значит, используете неправильное​ что-то, что еще​ один только берет.​
​Так и делал!​ 5).End(xlDown).Row​ что это проще​ пишется так:​ косяк :) a​dzug​ диска ‘oWbk.Quit????????? End​1. Открыта Книга113​ мог понять почему​ другой книги, но​ расширение? Но я​ ровно 2 книги​: Спасибо за ответы!​ и ответы, но​ имя. Выполните в​
​ не создано. А​Может нужно так​

​ Стопорится на том​​k = 4​ делает.​ActiveCell.FormulaR1C1 = "=R[+1]C+R[0]C[-2]"А​ = xlsWb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row​: Увы, не работает.​ Sub​2. С помощью​ не работает выбор​ не дает открыть​ с такими проблемами​ причем, название одной​Наверное непонятно сформулировал​ http://profexcel.ru/raznie-voprosi/rabota-so-svyazannimi-tablitsami-v-microsoft-excel.php свой пример​ окне Immediate for​ именно так выглядит​ написать?​ моменте что указал​ 'заполнение под "шапкой"​
​P.S.Заранее спасибо за​

​ вот из VB6​​ Set xlsSh =​
​dzug​dzug​

​ кода создаем новую​​ мышью, когда в​ другую книгу​ не сталкивался и​

​ из них Вы​​ вопрос:​ не могу применить​ each w in​ несохраненная книга -​

​For i =​​ в теме.​For RowFind_ll =​
​ любой совет, решение.​ записать не получается​ xlsWb.Sheets(2) b =​:​: Активацию между книгами​ книгу Книга1. Здесь​

​ другом макросе все​​jfd​ это всего лишь​ знаете, то можно​В том месте​ эти ответы.​
​ workbooks:debug.? w.name:nextПолучите список​ её пока вроде​ 0 To UBound(a)​Hugo​ 8 To lastrow​

​Johny​​. Пробовал по​ xlsSh.Cells(Rows.Count, 1).End(xlUp).Row End​dzug​ смотрите в прилагаемом​​ она еще не​ было хорошо. )​: Пауза в выполнении​​ моё предположение. Сейчас,​ так​ где мне макрорекордер​Проблема вот в​ книг. Скопируйте нужное​

​ как нет и​​ind = 0​: Так именно в​ ' цикл по​: Я дико извиняюсь,​

​ разному (см.мой признательность Как сделать в Excel сортировку данных действительно Sub​
​: Проверил ещё раз.​ файле.​ сохранена на диске,​Sergei_A​ макроса во время​ к сожалению, времени​200?'200px':''+(this.scrollHeight+5)+'px');">Sub tt()​ написал: Windows("Книга 2.xlsx").Activate​ чем: макрос, который​

​ имя и вставьте​​ пути до неё​For Each sh​ этой строке ссылки​ ТП​ но можно ли​ № 16)в т.ч.​Устранил​ Не работает .​new_see​

​ а находится в​​: Я не понял​ которой мышью тыкается​ мало, попробуйте что-нибудь​Dim wb1, wb2​при пользовании​ я сделал будет​ в код.​

​ тоже. Поэтому​​ In wb.Worksheets​ на лист нет.​RowFind_l = RowFind_ll​ узнать, что вообще​ и так:​
​Sub main() Dim​dzug​: Как создать новую​
​ памяти ПК.​ о чем это​ нужная книга и​ подобное в Нете​
​ As Workbook​ макросом, файл всегда​ применятся для эксель​
​Апострофф​

​ сохранять книгу в​​Russia​
​Если бы было​n = 1​

​ этот код делает?​​xlsWb.ActiveCell.FormulaR1C1 = "=R[+1]C+R[0]C[-2]"пробовал​ xlsApp As Excel.Application​​: Я в Excel​ книгу с заданным​3. В ячейку​ Вы.​ она становится активной,​ поискать, а м.б.​Dim Rng As​ будет называться по-разному,​ файлов с различными​: Можете подсказать как​ любом случае надо.​:​ типа так:​ 'порядковый номер​И очень непонятно​​ и с​ Dim xlsWb As​ запускал, там пашет,​ именем?​ Книги1 вносим данные.​jfd​ все действия макроса​ более знающие люди​ Range​ поэтому не подходит,​ наименованиями, но код​ ссылка сделать?​Octavian.vs​Russia​sh.Range(sh.Cells(RowFind_l, 4), sh.Cells(lastrow,​Range(Cells(RowFind_l, 4), Cells(lastrow,​

​ вот это: Set​​xlsApp​ Excel.Workbook Dim xlsSh​ сейчас посмотрю в​

​Например​​4. Сохраняем Книгу1​: Хотел малой кровью​ идут в активной​

​ помогут.​​Set wb1 =​​ чтобы название было​
​ ниже строго привязан​Catstail​

planetaexcel.ru

Запомнить директорию активной книги. VBA

​: Спасибо! Просто были​​: хотел написать​
​ 4)).Select​ 4)).Select ' --->​ wb = ThisWorkbook.​, и с​ As Excel.Worksheet Dim​ VB6​Sub CreateWorkbook() Set​ на диске.​ отделаться. Спасибо за​ книге. Если так​Удачи!​ ThisWorkbook​ "Книга 2.xlsx", надо,​
​ к копированию в​
​: 1: Открыть VBA​

​ сомнения которые теперь​​Hugo​

​вот это было​​ Здесь почему то​ И где эта​xSh​ a&, n&, b&​dzug​

​ NewWorkbook = Workbooks.Add​​5. Закрываем Книгу1.​ пример.​

​ конечно возможно.​​k61​With wb1.Sheets("Лист1")​ чтобы название сюда​

​ определенный файл ("Книга​​ - [Alt+F11]​ окончательно развеяны.​: Это уже ближе.​ бы "так и​ стопорится из-за того​ "wb" используется?​
​.Сам задал вопрос,​ Set xlsApp =​: Вылазит вот такая​ End Subсоздает книгу​6. Удаляем Книгу1​jfd​ber$erk​: Код в Книге2​
​Set Rng =​ менялось в зависимости​ 2.xlsx"), а файлы​

planetaexcel.ru

Как сделать активной новую Книгу?

​2: Нажать [Ctrl+G]​​Strobery​
​Но ведь если​
​ делал".​
​ что не переключается​ikki​ сам и отвечаю.​ GetObject(, "Excel.Application") Set​ "петрушка" на восьмой​ с именем по​ с диска.​
​:​: В коде макросе​
​Sub www() Workbooks("Книга1").Activate​ Intersect(.UsedRange. Range("9:9"))​
​ от названия файла.​
​ будут называться по​ (или ищите в​
​: У меня есть​For Each sh​Но тогда селект​
​ на другую книгу.​: а вот эта​
​Методом "тыка" получилось​ xlsWb = xlsApp.ActiveWorkbook​ строке. А на​ умолчанию,​7. Закрываем Excel,​Казанский,​ если указать ActiveWorkbook.ActiveSheet.range.​ End Sub​
​End With​ Находил на форумах​ другому. Если меняю​ меню окно​ книга1 и кнопка(Лист1)​ In wb.Worksheets​ уже не нужен,​
​ Подскажите пжл, как​ строка у вас​ сделать так:​ n = xlsWb.Sheets.Count​ седьмой строке значение​а как изменить​
​ в котором была​Спасибо, так и​ то код как​jfd​Rng.Select​ решения, но почему-то​ Windows("Книга 2.xlsx").Activate на​Immediate​ при нажатии которой​то в sh​ разве что как​ исправить.​ нормально срабатывает?​GetObject(, "Excel.Application").ActiveCell.FormulaR1C1 =​ Set xlsSh =​ объектной переменной xlsWb​ имя, чтобы создалась​ создана Книга1.​ сделал.​ раз будет выполняться​: Извините, создается впечатление​For Each wb2​ не получается, ниже​ ActiveSheet.Activate, то копирование​)​ Открываетия Форма1.​ уже есть ссылка​ финальное действие -​Selection.Find(What:="", After:=ActiveCell, LookAt:=xlPart).Select​lastrow = sh.Cells(8,​ "=R[+1]C+R[0]C[-2]"​ xlsWb.Sheets(1) a =​

​ не присваивается.​​ не 'Книга1',​Подскажите, пожалуйста, два​Inter_E​

CyberForum.ru

Как создать новую книгу с заданным именем?

​ в выбранной книге​​ что Вы не​ In Workbooks​ пытаюсь вытащить название​
​ происходит в "Книга​
​3: Скопировать в​В форме1 есть​ на лист, и​ показать юзеру результат.​RowFind_ll = Selection.Row​
​ 5).End(xlDown).Row​Russia​ xlsSh.Cells(xlsSh.Rows.Count, 1).End(xlUp).Row Set​
​Запускать из VB6.​а например 'Моя​

​ вопроса.​​: Добрый день!​ (хотя вроде как​

​ удосужились прочесть вопрос.​

CyberForum.ru

Обработка активной книги Excel

​If wb2.Name <>​​ файла в фраза, Проблемы с совместимостью листов про 1.xlsx", так как​ окно​ текст бокс1 и​Set sh =​Russia​next RowFind_ll​Johny​: Добрый вечер!​
​ xlsSh = xlsWb.Sheets(2)​
​dzug​ книга'​1. В пункте​В ходе выполнений​ это по умолчанию)​Юрий М​ wb1.Name Then Exit​ А1 Книги 2,​ ее считает активной.​Immediate​ кнопка1, при нажатии​ wb.Sheets(a(i))​: Пробовал:​next sh​: lastrow = sh.Cells(8,​Задаю листы.​ b = xlsSh.Cells(xlsSh.Rows.Count,​

​: Так?​​new_see​ 2, где Книга1​ макроса, нужно запоминть​Казанский​: Это почему? Вместо​ For​ дальше пытаюсь добавить​ Можно ли как-то​код for each​ кнопки открывается​совершенно лишнее, и​Range(sh.Cells(RowFind_l, 4), sh.Cells(lastrow,​ikki​ 5).End(xlDown).Row​Set wb =​ 1).End(xlUp).RowEnd Sub​Sub main() Dim​

​: NewWorkbook.Windows(1).Caption = 'Моя​​ еще не сохранена,​

​ директорию где находиться​​: Создайте форму со​

​ "Книга1" подставляем выбранное​​Next​ содержимое этой ячейки​

​ активировать книгу без​​ w in workbooks:debug.?​книга2 Я активирую​ даже вероятно только​ 4)).Select​

​: имхо, здесь имеем​​Что за переменная​ ThisWorkbook​Спасибо. Всё заработало.​ XL As New​ книга'​ есть ли возможность​
​ текущая книга. Затем​

​ свойством ShowModal=False, надписью​​ значение из Лист/КомбоБокса,​
​Application.ScreenUpdating = False​ туда куда надо,​ привязки к названию?​ w.name:next4: Поставить курсор​ книгу1, (делаю нужные​ мешает.​и​ довольно дикую смесь​ "sh"?​Sheets(a).Select​ Только вместо xlUp​ Excel.Application, xlsSh XL.Workbooks.Open​спасибо​ активации Книги113, затем​ я создаю макросом​

​ "Выберите книгу" и​​ как предлагалось выше.​Rng.Copy Destination:=wb2.Sheets("Лист1").Range("A9")​ но все равно​ Например, активировать книгу,​ ввода на строку​ процедуры) и теперь​Или одно, или​
​sh.Range(Cells(RowFind_l, 4), Cells(lastrow,​ результатов работы макрорекодера​Russia​
​Sheets(a(i)).Columns("E:F").Cut​ надо написать -4162​

​ App.Path & "\Book.xlsx"​​dzug​

​ активации Книги1. Т.е.​​ новую книгу. Суть​ кнопкой. В коде​ber$erk​Application.ScreenUpdating = True​ берет не нужную​ в которой установлен​ посетить страницу введенным кодом​ мне нужно активировать​ другое.​ 4)).Select​ и каких-то (не​: Извиняюсь пару строчек​Columns("A:A").Select​. Понять это​ Set XL =​: Необходимо определить количество​ здесь передача активации​ в том что​ кнопки напишите​: все открытые файлы​End Sub​ ячейку, а ячейку​ курсор? Или по​5: нажать Enter​

​книгу2 но так​
​Russia​//​ очень понятных) попыток​ забыл захватить. Я​Selection.Insert Shift:=xlToRight​ помогла соседняя тема​ XL.ActiveWorkbook.Sheets.Application XL.Visible =​ заполненных строк первого​ между книгами возможна.​ я хотел сохранять​Private Sub CommandButton1_Click()​ Excel​В противном случае​ из книги 1.​ какому-то иному признаку.​Но есть подозрение,​
​ как имя книги​: Да я тоже​Пойду проверять.​ их доработки.​ писал. И вся​
​Set nb =​Работа с excel​
​ True Dim a&,​
​ и второго, по​2. По этому адресу -​ новую книгу туда​ Unload Me MainMacro​Sub ListAll() Dim​ соблаговолите ВНЯТНО объяснить,​200?'200px':''+(this.scrollHeight+5)+'px');">​ Подскажите пожалуйста.​ что сделать активной​ находится в текст​ об этом думал,​
​Hugo​много мусора -​ используется. И хотелось​
​ Workbooks.Add​ ячейками​ n&, b& n​ индексу, листов активной​
​ как закрыть Excel,​
​ же где находилась​ End Sub​ wb As Workbook​ что именно Вы​Sub Тест()​200?'200px':''+(this.scrollHeight+5)+'px');">Sub Тест()​ Вы хотите неоткрытую​ боксе я не​ но просто макрос​: Ну значит недопробовали:)​ те же ActiveWindow.FreezePanes​ бы что бы​Set ws =​Ещё раз спасибо.​ = XL.Sheets.Count Set​ книги Excel (книга​ в котором создавалась​
​ прежняя книга. Не​, где MainMacro​ For Each wb​
​ делаете и что​'​
​'​ книгу?​ знаю как это​ не работал, вот​Только я в​ = True. Rows("1:4").Select​ когда я приведенная ссылка nb.Sheets(1)​Не могу прочитать​​ xlsSh = XL.Sheets(1)​​ открыта). На седьмой​​ Книга1, а Книга113​​ могу придумать эту​ - макрос, который​
​ In Workbooks MsgBox​ ожидаете получить в​
​' Тест макрос​' Тест макрос​

CyberForum.ru

VBA Как переключать окна/книги?

​Pavel55​​ сделать.​
​ я и подумал,​
​ Вашем примере нигде​ и др.​
​ sh.select - становилась​
​With ws​
​ название подключаемой библиотеки.​
​ a = xlsSh.Cells(Rows.Count,​
​ строке переменной xlsWb​ оставалась ссылка на страницу открытой.​
​ идею.​ работает с активной​
​ wb.Name Next End​
​ результате​
​'​
​'​
​: Казанский совершенно прав.​
​Вот код​
​ что может нужно​ не видел, где​
​возможно, проще озвучить​ активной книга ThisWorkbook,​
​.Select​ Напишате пожалуста название​ 1).End(xlUp).Row Set xlsSh​значение не​
​ Здесь, видимо, тот​
​Заранее благодарен.​ книгой.​
​ Sub​Dendibar​'​'​ Но при условии,​Private Sub CommandButton1_Click()​ задать.​ эта sh определяется.​
​ саму задачу?​
​ а не получается​
​.Name = "Результат"​

​ отдельно.Microsoft Excel 12.0​
​ = XL.Sheets(2) b​ присваивает ???​ же вопрос активации.​С Перемещение данных из Excel в Access, Inter_E​
​Форма запускается стартовым​jfd​: StoTisteg, большое спасибо!​Range (A1) =​Windows("Книга 1.xlsx").Activate​ что книга открыта.​ 'Открываю Книгу2 Dim​Спасибо, Hugo!​

​Russia​Russia​

​ - не переключается​​.Rows("1:4").Select​ Object LibraryРазобрался с​ = xlsSh.Cells(Rows.Count, 1).End(xlUp).Row​Спасибо за ответ.​
​Как Вы понимаете,​Alex_ST​ макросом из одной​: Юрий М, потому​ Вашим способом все​

​ ActiveWorkbook.Name​​Rows("9:9").Select​ Если книга не​ wb As Workbook​

​Юрий М​: Сообщение от 05.05.2011,​

​: Блин. Хорошо. Как​​ на окно этой​ActiveWindow.FreezePanes = True​

​ библиотекой.Спасибо.Да простят меня​ End Sub​

​Sub main() Dim​​ действия с Книгой1​: ThisWorkbook.Path​ команды​ что этот способ​ получилось.​Windows("Книга 1.xlsx").Activate​Selection.Copy​ открыта - ее​ Set wb =​: Возвращаясь к переключению​ 17:28​ сделать активным этот​ книги, остается в​End With​
​ администраторы за поднятие​Апострофф​ xlsApp Http://profexcel.ru/raznie-voprosi/rezhim-sovmestimosti-excel-ubrat.php Object​ должны происходить в​ответ > Alex_ST​UserForm1.Show​ очевиден и предполагает​Всем остальным тоже​Rows("9:9").Select​Windows("Книга 2.xlsx").Activate​


​ нужно сначала открыть,​ Workbooks.Open(Filename:='C: ' &​
​ между книгами:​
​в посмотреть еще указывается.​
​ лист? А потом​
​ новой книге и​
​lastrow = sh.Cells(8,​ темы с "двухлетней​
​: В том то​ Dim xlsWb As​
​ скрытом от пользователя​
​: Спасибо, я изменил​
​Юрий М​
​ знание названия файла​
​ большое спасибо за​
​Selection.Copy​

​Rows("9:9").Select​ а уж затем​
​ TextBox1 & '.xls')​Windows("Нужная_Книга.xls").Activate​
​Hugo​ другой лист из​
​ выдает ошибку.​ 5).End(xlDown).Row​
по этому адресуно​ и дело, что​ Object Dim xlsSh​ режиме. Постоянно открыта​
​ на "ActiveWorkbook.Path" и​
​: Попробуйте тогда .Wait​ нужной книги.​
​ помощь!​Windows("Range (A1).Value").Activate​ActiveSheet.Paste​ активизировать.​ ' Workbooks('Книга1.xls').Worksheets('Лист1').Activate 'Имя​Octavian.vs​: Да, там я​ другой книги (ThisWorkbook)?​
​lastrow = sh.Cells(8,​
​k = 4​
​ вопрос стопроцентно по​
​ книга Excel открыта​

​ As Object Dim​​ только Книга113.​ кажется все будет​А Application.InputBox не​А кроме получения​jfd​Rows("9:9").Select​
​Range("J5").Select​мне. тут​ последней заполненой ячейки​: Добрый день,​

​ не вникал.​Johny​

​ 5).End(xlDown).Row - это​​ 'заполнение под "шапкой"​ этой теме.​ и название у​ a&, n&, Как в Excel сравнить два столбца и удалить дубликаты выделить, раскрасить, переместить Кнопка1_Щелкнуть() Dim​

​ работать положенно. Сейчас​​ пробовали?​
​ списка всех открытых​: Добрый день!​ActiveSheet.Paste​End Sub​

​ ещё важную роль​​ Const iRow2 =​На просторах интернета​Но вот это​: ikki, Согласен полностью.​ мои опыты, чтобы​

​For RowFind_ll =​​Открыта книга Эксель,​ неё может быть​ Set xlsApp =​ oExcel As New​ окончательно проверю!​jfd​ фалов и выбора​Банальная вроде вещь,​Range("J5").Select​Оформляйте коды тегами​ играет Подсчет Уникальных ТЕКСТовых значений в MS EXCEL ли​

​ 65536: iClm =​​ нашел код отправки​ как понимать?​russia, попытайтесь ещё​ производил операции с​ 8 To lastrow​
​ на листе выделена​ разное. Обращаться надо​ CreateObject("Excel.Application") ' xlsApp.Visible​ Excel.Application 'Запускаем Excel​

​Inter_E​​: Нашел что Wait​ из него одного,​ а потратил кучу​
​End Sub​ (кнопка #)​
​ расширение файла.​ 'A' iRws =​
​ сообщения с вложением​For Each sh​ раз описать, для​
​ листом sh (книге​ ' цикл по​ одна ячейка.​ к АКТИВНОЙ книге.​ = True Set​

​ oExcel.Visible = True​​: Спасибо, все нормально​
​ —​ других способов нет?​
​ времени и не​
​StoTisteg​Udik​
​На Windows, где​
​ Columns(iClm).Rows(iRow2).End(xlUp).Row ??????????????????????????? ActiveWorkbook.SaveAs​

​ из Excel, но​​ In wb.Worksheets​
​ чего нужен сей​ где находиться макрос).​ ТП​Как из VB​

​В Вашем коде​​ xlsWb = xlsApp.ActiveWorkbook​ 'Делаем его видимым​
​ пошло, с АктивВоркБук.Пазс​

​это метод позволяет приостановить​​Sergei_A​ нашел ничего.​
​: Как он будет​: по номеру типа​
​ в найстройках не​ Filename:= _ 'C:123​
​. . активная​Set sh =​

​ макрос?​​ Работает. Но если​RowFind_l = RowFind_ll​

​ 6 узнать что​​ выдаёт ошибку на​ n = xlsWb.Sheets.Count​ Dim oWbk As​ТолькоУчусь​ работу Excel на​

​: Я бы сделал​​Есть файл1 с​ называться у Вас,​
​ такого​ указано - отображать​
​ ' & Cells(iRws,​ книга является вновь​

​ wb.Sheets(a(i))​Johny​ задавать sh.cells(.). -​n = 1​
​ записано в активной​ строке:​

​ Set xlsSh =​ Excel.Workbook 'Создаем новую​
​: Лучше как Алексей​ указанное вами время,​
​ немодальную форму (похожую​ макросом (кроме макроса​
- Импорт данных в и создание модели только Вам.​
​200?'200px':''+(this.scrollHeight+5)+'px');">​ расширения файлов нужно​

​ iClm) & '.xls'​​ созданной и не​

​Johny​​: Зачем активировать листы?​

​ то выдает ошибку​​ 'порядковый номер​
​ ячейке ?​
​Dim XL As​ xlsWb.Sheets(1) a =​
​ книгу Книга1 Set​ предложил, так как​ сняв нагрузку с​
​ на msgbox) с​ ничего не имеет),​
​ Если Вы знаете​Public Sub test()​ делать так​
​ End SubЗаранее благодарен​ имеет своего "реального"​

​: Здесь имеется ввиду​​ Запиши нужные листы​ на подобии вышеописанного.​Range(Cells(RowFind_l, 4), Cells(lastrow,​Пробовал так:​ New Excel.Application, xlsSh​ xlsSh.Cells(Rows.Count, 1).End(xlUp).Row Set​ oWbk = oExcel.Workbooks.Add()​
​ это ".текущая книга.".​

​ процессора. Используется для​​ текстом "​ есть также другие​
​ имя книги, то​

planetaexcel.ru

VBA отправка созданной (активной) книги через outlook

​Debug.Print Application.Workbooks(1).Name​​При открытой книге​