Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2017, 23:18   #1
ram_
Новичок
Джуниор
 
Регистрация: 21.01.2017
Сообщений: 2
По умолчанию Макрос в exel

Добрый вечер.Прошу помочь!
Нужно сделать импорт данных с 2 разных отчетов последовательно, в 1 файл (с определенным названием листа, предполагается N-ное кол-во листов, с закрепленным именем листов)
Файлы будут выгружаться с сервера, с разными именами.

Был найден на просторах интернета вот такой макрос, но не знаю что правильно откорректировать, чтобы импорт происходил в определенные листы.


Sub CombineWorkbooks()
Dim wb As Workbook, Nm As String, i As Integer, j As Long
Application.ScreenUpdating = False: Application.DisplayAlerts = False
With Application.FileDialog(msoFileDialo gOpen)
.AllowMultiSelect = True: .Title = "Files to Merge": .Show
If .SelectedItems.Count = 0 Then Exit Sub
For i = 1 To .SelectedItems.Count
Set wb = Workbooks.Open(Filename:=.SelectedI tems(i))
Nm = Replace(wb.Name, ".xls", "")
On Error Resume Next: ThisWorkbook.Sheets(Nm).Delete: On Error GoTo 0
ActiveSheet.Copy After:=ThisWorkbook.Sheets(ThisWork book.Sheets.Count)
ActiveSheet.Name = Nm: wb.Close False
With ActiveSheet.UsedRange
For j = .Row + .Rows.Count - 1 To 1 Step -1
If Rows(j).Text = "" Then Rows(j).Delete
Next: End With: Next: End With
End Sub
ram_ вне форума Ответить с цитированием
Старый 22.01.2017, 06:02   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
с разными именами
Цитата:
в определенные листы
Цитата:
предполагается N-ное кол-во листов
вам лучше на форум телепатов обратиться, с такими формулировками...
на этом же форуме любят конкретику и примеры файлов (а иначе помочь не смогут)
EducatedFool вне форума Ответить с цитированием
Старый 22.01.2017, 12:31   #3
ram_
Новичок
Джуниор
 
Регистрация: 21.01.2017
Сообщений: 2
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
вам лучше на форум телепатов обратиться, с такими формулировками...
на этом же форуме любят конкретику и примеры файлов (а иначе помочь не смогут)
С начало нужно заполнить в файле лист 2, после нужно заполнить лист 3, данные будут вставляться именно в таком порядке.
Вложения
Тип файла: xlsx Пример.xlsx (10.3 Кб, 13 просмотров)
ram_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с файлом Exel(макрос) vbanub Помощь студентам 0 13.10.2015 18:37
Exel 2003 макрос ! Vadim Lisovec Microsoft Office Excel 4 22.08.2013 11:09
МАКРОС СО СМЕЩЕНИЕМ EXEL 2003 Ирина Розанова Microsoft Office Excel 13 07.09.2012 00:05
Exel - при открытии файла через макрос, если файл отсутствует - виснет весь макрос gregory1b Microsoft Office Excel 2 14.10.2010 11:51
Макрос в Exel Tomatos БД в Delphi 1 16.06.2009 17:33