|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
14.08.2009, 21:48 | #1 | |
Новичок
Джуниор
Регистрация: 07.04.2008
Сообщений: 2
|
Объединение файлов одинаковой структуры в один файл
Добрый вечер!
Подскажите, пожалуйста! Имеется несколько файлов *.xls абсолютно одинаковой структуры. Можно ли объединить их в один большой)))? Заранее благодарю за ответы и советы. --------- примечание модератора - вдруг кому пригодится -------------- На сайте ExcelVBA.ru можно скачать универсальную программу обработки прайс-листов: http://excelvba.ru/programmes/Unification которая может объединять не только одинаковые, но разные по структуре файлы Excel. Цитата:
Программа умеет объединять данные из самых разных прайсов (формата CSV и Excel), в том числе из файлов иерархической структуры (выгрузки из 1С). Последний раз редактировалось EducatedFool; 24.02.2013 в 12:59. |
|
14.08.2009, 22:00 | #2 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Макрос собирает данные со всех листов выбранных книг. Либо только указанный диапазон, либо начиная с указанной ячейки.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
15.08.2009, 14:23 | #3 |
Новичок
Джуниор
Регистрация: 07.04.2008
Сообщений: 2
|
Огромное спасибо!!! То что мне надо!!
|
17.08.2009, 12:31 | #4 | |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 625
|
Цитата:
Выбор не только книг (файлов) но и выбор листов в книге. И ещё заметил : Почему то "сьедает" последнюю строку из листа откуда берёт данные |
|
18.08.2009, 14:34 | #5 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Исправил "съедание" последней строки и добавил возможность указания листов для сбора. При указании имени листа допускается использование символов подстановки(?*).
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
18.08.2009, 22:24 | #6 |
Новичок
Джуниор
Регистрация: 18.08.2009
Сообщений: 1
|
Подскажите а возможно к этому еще добавить, чтобы выдавал названия листа по строке в файле "СборДанных".
Например: у меня есть книга в которой 34 листа-это названия предприятий, когда я выбираю диапазон в файле "СборДанных" я получаю ОДНУ таблицу но для дальнейшей работы с ней мне нужно знать какое это пр-тие (тоесть название листа) |
19.08.2009, 07:45 | #7 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 625
|
|
19.08.2009, 07:48 | #8 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 625
|
Было бы здорово, если бы присутствовала кнопка "ОБЗОР" , а то не всегда на память можно внести названия листов , с которых надо брать данные
|
01.03.2010, 16:30 | #9 |
Новичок
Джуниор
Регистрация: 01.03.2010
Сообщений: 3
|
Объединение таблиц
Можно ли объединить таблицы из разных книг с данными только на одном листе в одну отдельную таблицу, но с одной шапкой.Таблицы (структура) идентичны данные разные (на разные месяцы) в прикрепленных данных все показано: первоначальные данные и как должно выглядить после объединения
|
23.08.2010, 09:52 | #10 |
Новичок
Джуниор
Регистрация: 23.08.2010
Сообщений: 1
|
объединение несколько файлов Excel в один лист документа
Имеем
\\Sbs\Август 2010 В папке «август 2010» есть еще 31 папка Требуется при запуске макроса найти все файлы Excel в папке Август 2010 включая вложенные папки и скопировать все данные из этих книг в указанную книгу с:\test.xls и лист 2. имя будет постоянным есть макрос - только файлы нужно выделять вручную а хотелось бы чтоб он находил сам все файлы в указанной директории и изменить запрос листа и ячеек на постоянное значение макрос нашел в Инете у самого ума не хватает помогите если можете, пожалуйста! Option Explicit Sub Consolidated_Range_of_Books_and_She ets() Dim iPivotRange As Range, iDestinationRange As Range, iBeginRange As Range, Sheet Dim iRngAddress As String, oAwb As String, DataSheet As String, _ iCopyAddress As String, sSheetName As String, oFile Dim lLastrow As Long, lLastRowMyBook As Long Dim iLastColumn As Integer Dim Str() As String ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count) DataSheet = ThisWorkbook.ActiveSheet.Name On Error Resume Next Set iBeginRange = Application.InputBox("Выберите диапазон сбора данных." & vbCrLf & _ "1. При выборе только одной ячейки данные будут собраны со всех листов начиная с этой ячейки. " & _ vbCrLf & "2. При выделении нескольких ячеек данные будут собраны только с указанного диапазона всех листов.", Type:=8) If iBeginRange Is Nothing Then Exit Sub sSheetName = InputBox("Введите имя листа, с которого собирать данные(если не указан, то данные собираются со всех листов)", "Параметр") If sSheetName = "" Then sSheetName = "*" On Error GoTo 0 With Application.FileDialog(msoFileDialo gFilePicker) .AllowMultiSelect = True .InitialFileName = "*.*" .Title = "Выберите файлы" If .Show = False Then Exit Sub For Each oFile In .SelectedItems Workbooks.OpenText Filename:=oFile oAwb = Dir(oFile, vbDirectory) Application.ScreenUpdating = False Workbooks(oAwb).Activate For Each Sheet In Sheets If Sheet.Name Like sSheetName Then Sheet.Activate Select Case iBeginRange.Count Case 1 lLastrow = Cells(1, 1).SpecialCells(xlLastCell).Row iLastColumn = Cells.SpecialCells(xlLastCell).Colu mn iCopyAddress = Range(Cells(iBeginRange.Row, iBeginRange.Column), Cells(lLastrow, iLastColumn)).Address Case Else iCopyAddress = iBeginRange.Address lLastrow = iBeginRange.Rows.Count iLastColumn = iBeginRange.Columns.Count End Select lLastRowMyBook = ThisWorkbook.Sheets(DataSheet).Cell s.SpecialCells(xlLastCell).Row + 1 iRngAddress = Range(Cells(lLastRowMyBook, 1), Cells(lLastRowMyBook + lLastrow, iLastColumn)).Address Sheet.Range(iCopyAddress).Copy Destination:=ThisWorkbook.Sheets(Da taSheet).Range(iRngAddress) End If Next Sheet Workbooks(oAwb).Close False Next oFile End With Application.ScreenUpdating = True End Sub |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите - объединение файлов | Gurza | Microsoft Office Excel | 13 | 11.07.2011 11:38 |
Ссылка на файл из текущей папки! Сбор инфы в один файл! | mephist | Microsoft Office Excel | 11 | 10.07.2009 13:51 |
Нужна прога чотбы скинуть названия файлов в папке в один файл (txt) | Ninzjacont | Помощь студентам | 2 | 08.02.2009 20:30 |
обмен данными из двух таблиц (одинаковой структуры) но в разных базах | Tanuska___:) | БД в Delphi | 1 | 26.11.2008 19:41 |