Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Сохранение нескольких листов в 1 книгу VBA
 
Цитата
MikeVol написал:
   For Each i In rngОбновить_эти        rngTicker.Value = i.Value        rngLOL2.ListObject.QueryTable.Refresh BackgroundQuery:=False        rngLOL.ListObject.QueryTable.Refresh BackgroundQuery:=False         ' Создаем новую книгу и копируем в нее оба листа        Dim newWorkbook As Workbook: Set newWorkbook = Workbooks.Add        ThisWorkbook.Sheets("sheet0").Copy Before:=newWorkbook.Sheets(1)        ThisWorkbook.Sheets("Лист1").Copy Before:=newWorkbook.Sheets(2)         ' Сохраняем новую книгу        newWorkbook.SaveAs Filename:=strFilepath & "" & i.Value & ".xlsx", FileFormat:=xlWorkbookDefault        newWorkbook.Close SaveChanges:=False    Next i

Вариант рабочий, спасибо !
Сохранение нескольких листов в 1 книгу VBA
 
Добрый день товарищи!
Прошу помощи.

Есть код

Sub Sheet_save()

Dim rngОбновить_эти As Range
Dim rngTicker As Range
Dim i As Variant
Dim strFilepath As String
Dim rngLOL As Range
Dim rngLOL2 As Range

Set rngОбновить_эти = Range("Обновить_эти")
Set rngTicker = Range("ticker")
Set rngLOL = Range("РНККТ_ДАТА")
Set rngLOL2 = Range("РНККТ_ДАТА2")
strFilepath = ThisWorkbook.Path()

   dbStart = Timer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each i In rngОбновить_эти
rngTicker = i.Value
rngLOL2.ListObject.QueryTable.Refresh BackgroundQuery:=False
rngLOL.ListObject.QueryTable.Refresh BackgroundQuery:=False

ThisWorkbook.Sheets("sheet0").Copy
ThisWorkbook.Sheets("Лист1").Copy


ActiveWorkbook.SaveAs fileName:=strFilepath & "\" & rngTicker.Value & ".xlsx", FileFormat:=xlWorkbookDefault
ActiveWorkbook.Close
Next i

Application.ScreenUpdating = True
Application.DisplayAlerts = True

   MsgBox "Готово. Время работы - " & Format(Timer - dbStart, "0 \сек. "), vbInformation

End Sub


Данный макрос копирует листы после обновления запроса(ов) квери и сохраняет книгу. Но книга сохраняется с 1 листом sheet0, 2 лист "Лист1" не сохраняется. Прошу помощи в доработке макроса, чтобы оба листа сохранялись в 1 книгу. Спасибо.
Как добавить столбец с значениями от 1 до 7 PQ
 
Дмитрий(The_Prist) Щербаков, Большое спасибо, буду пробовать !
Как добавить столбец с значениями от 1 до 7 PQ
 
Здравствуйте.
необходимо добавить столбец в PQ со значениями от 1 до 7. То есть что то вроде индекса, но только добавляются значения от 1 до 7, и после 7 опять идет 1 и т.д.
1
2
3
4
5
6
7
1
2
3
Вставка ссылки на сайт в ексель
 
Работа сделана, оплачена.
В очередной раз спасибо.
Вставка ссылки на сайт в ексель
 
Необходим макрос
Суть работы макроса: получить реальный адрес, перейдя по ссылке и вставить результат в ексель.

Цена вопроса - 1500 руб.
Перенос данных из 1 таблицы в другую по условию, Работа с исходным файлом данных
 
Необходимо реализовать возможность загрузки исходных данных из файла, проставить значения как указано в файле Пример и затем перенести данные по условиям в несколько таблиц. Подробно в примере.
реализация через макросы, офис 2013, PQ недоступен.
Бюджет 1500 р.
сроки 1-2 дня.
Изменено: Denis - 14.10.2021 20:52:15 (Поднял цену)
Пакетный анализ XML по заданным критериям с выводом результатов
 
Исходные файлы - XML, разбитые по папкам. Необходимо проанализировать все файлы, полученные результаты сохранить в файлы ексель, при этом есть необходимость анализа данных из этих файлов по заданным пользователям критериям с выводом результата такого анализа на отдельные листы. Необходимо реализовать поиск только по 1 значению, и поиск по группе значений по совпадениям в строке.
образец того, что должно получиться с дополнительными требованиями и пояснениями прикладываю, исходники по запросу скину на почту.
реализация значения не имеет, важно скорость обработки, поскольку за раз будет необходимость обработки 1000 xml  файлов (каждый файл содержит 1000 строк максимум, 24 столбцов)
корректировка ТЗ с учётом возможностей программы Ексель возможна.
сроки выполнения- две недели.
Бюджет - 10 тыс.руб. (обсуждаемо)
Разбивка текста из ячейки по разным столбцам
 
Необходимо разбивать адреса на части в соответствующие колонки справа. После названия улицы всегда идет номер дома, если после номера дома нет обозначения корпуса или строения (например - УЛ ОСТРОВИТЯНОВА ДОМ 19 2), переносить в корпус. Адреса будут пополняться новыми, разумеется. В качестве примера файл, а также пустые строки для теста.
Изменено: Denis - 18.05.2021 23:58:30
Страницы: 1
Наверх