Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Объединение нескольких файлов в один - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение нескольких файлов в один (Макросы/Sub)
Объединение нескольких файлов в один
emkub Дата: Четверг, 15.09.2016, 22:12 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте!
На просторах этого форума нашёл подходящую тему
Но, у меня что-то не хочет работать...
"Subscript out of range"
Ошибка на строке: [vba]
Код
Set rDest = wb1.Sheets(c.Value).UsedRange
[/vba]
И, "раз пошла такая пьянка", скажите, можно ли изменить этот макрос так, что бы он сам обрабатывал ВСЕ документы в папке (в любом документе находится только один лист). Что бы не нужно было указывать название файла и имя листа.
 
Ответить
СообщениеЗдравствуйте!
На просторах этого форума нашёл подходящую тему
Но, у меня что-то не хочет работать...
"Subscript out of range"
Ошибка на строке: [vba]
Код
Set rDest = wb1.Sheets(c.Value).UsedRange
[/vba]
И, "раз пошла такая пьянка", скажите, можно ли изменить этот макрос так, что бы он сам обрабатывал ВСЕ документы в папке (в любом документе находится только один лист). Что бы не нужно было указывать название файла и имя листа.

Автор - emkub
Дата добавления - 15.09.2016 в 22:12
KuklP Дата: Пятница, 16.09.2016, 00:53 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1994
Репутация: 435 ±
Замечаний: 0% ±

1.Ошибка значит, что такого листа в книге нет.
2. Можно.


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение1.Ошибка значит, что такого листа в книге нет.
2. Можно.

Автор - KuklP
Дата добавления - 16.09.2016 в 00:53
Hugo Дата: Пятница, 16.09.2016, 08:45 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2653
Репутация: 597 ±
Замечаний: 0% ±

Опять *.csv объединяем? Или может txt?


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеОпять *.csv объединяем? Или может txt?

Автор - Hugo
Дата добавления - 16.09.2016 в 08:45
emkub Дата: Пятница, 16.09.2016, 09:19 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Помогите пожалуйста. Хочется самому вникнуть и разобраться.
Если я правильно понимаю, за список файлов и книг отвечает Функция FullPath
[vba]
Код
Function FullPath(cName As String) As String
    FullPath = IIf(Mid(cName, 2, 1) = ":" Or Mid(cName, 2, 1) = "\", "", IIf(Mid(cName, 1, 1) = "\", Left(ThisWorkbook.Path, 2), ThisWorkbook.Path & "\")) & cName
End Function
[/vba]
Скажите, чтобы макрос соединял все документы в папке, без указания имён, как нужно изменить эту функцию?
 
Ответить
СообщениеПомогите пожалуйста. Хочется самому вникнуть и разобраться.
Если я правильно понимаю, за список файлов и книг отвечает Функция FullPath
[vba]
Код
Function FullPath(cName As String) As String
    FullPath = IIf(Mid(cName, 2, 1) = ":" Or Mid(cName, 2, 1) = "\", "", IIf(Mid(cName, 1, 1) = "\", Left(ThisWorkbook.Path, 2), ThisWorkbook.Path & "\")) & cName
End Function
[/vba]
Скажите, чтобы макрос соединял все документы в папке, без указания имён, как нужно изменить эту функцию?

Автор - emkub
Дата добавления - 16.09.2016 в 09:19
emkub Дата: Пятница, 16.09.2016, 09:21 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Опять *.csv объединяем? Или может txt?

Нет, стандартные *.xlsx :D
C CSV всё шикарно!


Сообщение отредактировал emkub - Пятница, 16.09.2016, 09:22
 
Ответить
Сообщение
Опять *.csv объединяем? Или может txt?

Нет, стандартные *.xlsx :D
C CSV всё шикарно!

Автор - emkub
Дата добавления - 16.09.2016 в 09:21
emkub Дата: Пятница, 16.09.2016, 10:22 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Нашёл нужный макрос в интернете
Малость подработал под современный формат, и... вроде работает yes
 
Ответить
СообщениеНашёл нужный макрос в интернете
Малость подработал под современный формат, и... вроде работает yes

Автор - emkub
Дата добавления - 16.09.2016 в 10:22
_Boroda_ Дата: Пятница, 16.09.2016, 10:29 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 9348
Репутация: 3922 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
за список файлов и книг отвечает Функция FullPath

Не совсем.
Эта функция просто дает нам путь к папке cName в нормальном, пригодном для Excel виде


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
за список файлов и книг отвечает Функция FullPath

Не совсем.
Эта функция просто дает нам путь к папке cName в нормальном, пригодном для Excel виде

Автор - _Boroda_
Дата добавления - 16.09.2016 в 10:29
emkub Дата: Пятница, 16.09.2016, 10:45 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
если найдётся время, буду пытаться соединить функционал двух макросов.
И в том и в том есть удобные для меня штуки.
Тему можно считать закрытой.
Всем спасибо за помощь!!! - это не сарказм :)
 
Ответить
Сообщениеесли найдётся время, буду пытаться соединить функционал двух макросов.
И в том и в том есть удобные для меня штуки.
Тему можно считать закрытой.
Всем спасибо за помощь!!! - это не сарказм :)

Автор - emkub
Дата добавления - 16.09.2016 в 10:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение нескольких файлов в один (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!