|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.01.2017, 23:18 | #1 |
Новичок
Джуниор
Регистрация: 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 |
22.01.2017, 06:02 | #2 | |||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Цитата:
Цитата:
на этом же форуме любят конкретику и примеры файлов (а иначе помочь не смогут) |
|||
22.01.2017, 12:31 | #3 |
Новичок
Джуниор
Регистрация: 21.01.2017
Сообщений: 2
|
С начало нужно заполнить в файле лист 2, после нужно заполнить лист 3, данные будут вставляться именно в таком порядке.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с файлом 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 |