Vba excel как выбрать книгу

Skip to content

Sub Macro7()
'Шаг 1: Определяем переменную.
Dim FName As Variant
'Шаг 2: Метод GetOpenFilename активизирует диалоговое окно.
FName = Application.GetOpenFilename( _
'a – определяем тип файла
FileFilter:="Excel Workbooks,*.xl*", _
'b – заголовок окна
Title:="Выбери файл, который надо открыть", _
'c – множественный выбор
MultiSelect:=False)
'Шаг 3: Если был выбран файл, открыть его!
If FName <> False Then
Workbooks.Open Filename:=FName
End If
End Sub

How do I activate my Other workbook from the Current workbook? I have a current workbook with dumb.xls and The other workbook name as Tire.xls.I have opened the Tire.xls from the dumb.xls using worksbooks.open filename:= "name of the file".Its getting open but The problem is Im unable to make it work.

If I say cells(2,24).value=24 puts these value in the cell of dumb.xls but I want it to be done one Tire.xls.

activesheet.cells(2,24).value=24 puts these on Tire.xls. But how do i activate the Workbook with the name ? I need to open 3 to 4 excel workbooks And perform the operation? How do I activate the specific workbook

I have found this code on google

     activeworkbook.worksheet("sheetname").activate  ' but not working
     windows("sheetname").activate ' people on google suggested not to use

Its not getting activated. I dont know how to make it work. Can anyone tell me How do i activate a specific workbook and a specific sheet of the other workbook ?

Example: I have niko.xls and niko_2.xls opened as workbooks from the dumb.xls workbook so totally 3 workbooks and I have to activate the 2nd sheet of niko_2.xls workbook.How do I make it? Can anyone explain me the syntax with these example? Thank you in advance

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

​Смотрите также​​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 позволяет осуществлять​ именно из открытых​В какую сторону​
​ как советовал​
​ Ваш должен выглядеть​
​Dendibar​
​PuLbKa​
​ папку, отправьте и​
​Set sh =​
​ выполнить действие2. Результаты​
​.Name = "Результат"​
​ этой строчкой sh.select​
​ txt = r.Text​
​ xlsApp.Workbooks If xlsWb.Name​
​ = True Set​
​ в него данные​
​ есть еще на​ выбор диапазона мышью​

​ книг нужно активировать?​​ смотреть?​Udik​
​ примерно так (макрорекордер​
​: Добрый день!​
​, напишите на Форуме​
​ удалите после файл.​

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

​ — тоже не​​ ‘.ActiveCelltxt = GetObject(,​ = «Book.xlsx» Then​ xlsWb = ActiveWorkbook​ ‘сохраняем файл с​ природе такая функция​ только на той​jfd​iba2004​, тоже можно. Только​ пишет правильно, но​
​Вопрос может глупый,​
​ имя активной книги.​
​Octavian.vs​
​Хотел чтобы этот​
​ в новую книгу.​

​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()​
​ свои попытки работы​
​: workbooks("Имя").activate​
​ этом уже думал,​
​ книги прошелся, поэтому​
​: Зачем активировать листы?​
​For Each sh​
​ как-нибудь обойтись без​ "бородатой" теме:​
​ Set xlsWb =​
​ xlsWb.Sheets(1) a =​
​ диск 'методом SaveAs​
​ так иногда происходит?​
​ Причем мышью можно​
​ зашло однако. А​
​ типа ListBox (TextBox)​
​тщательно следить.​


​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​ не установлен запрет​ паузой (например вызовом​
​ собираться имена открытых​
​: Если Вы АБСОЛЮТНО​Application.ScreenUpdating = True​
​ - извините, много​ он ругается​
​The_Prist​ In wb.Worksheets​
​ и обращайся к​
​ wb.Sheets(a(i))​ имя книг и​
​ ячейку Книги.xls формулу.​
​ = xlsWb.Sheets(1) '​
​ b = xlsSh.Cells(Rows.Count,​ Kill "D:Книга1.xls" 'удаляем​
​: Уважаемые форумчане.​ на Application.ScreenUpdating, как​ Inputboxa) в выполнении​
​ файлов. Есть что-то​
​ уверены, что у​
​End Sub​
​ форумов сегодня облазил,​
​PuLbKa​

​: Нету. Невозможно отправить​Проверил — лист​ ним.{/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 Как переключать окна/книги?

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

​ 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 на​

​ 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

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