emkub
Дата: Четверг, 15.09.2016, 22:12 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация:
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
Ответить
Сообщение Здравствуйте! На просторах этого форума нашёл подходящую тему Но, у меня что-то не хочет работать... "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
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
1.Ошибка значит, что такого листа в книге нет. 2. Можно.
1.Ошибка значит, что такого листа в книге нет. 2. Можно. KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение 1.Ошибка значит, что такого листа в книге нет. 2. Можно. Автор - KuklP Дата добавления - 16.09.2016 в 00:53
Hugo
Дата: Пятница, 16.09.2016, 08:45 |
Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация:
707
±
Замечаний:
0% ±
2019
Опять *.csv объединяем? Или может txt?
Опять *.csv объединяем? Или может txt? Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Опять *.csv объединяем? Или может txt? Автор - Hugo Дата добавления - 16.09.2016 в 08:45
emkub
Дата: Пятница, 16.09.2016, 09:19 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация:
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
Ответить
Сообщение Помогите пожалуйста. Хочется самому вникнуть и разобраться. Если я правильно понимаю, за список файлов и книг отвечает Функция 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Опять *.csv объединяем? Или может txt?
Нет, стандартные *.xlsx :D C CSV всё шикарно!
Опять *.csv объединяем? Или может txt?
Нет, стандартные *.xlsx :D C CSV всё шикарно!emkub
Сообщение отредактировал 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Нашёл нужный макрос в интернете Малость подработал под современный формат, и... вроде работает
Нашёл нужный макрос в интернете Малость подработал под современный формат, и... вроде работает emkub
Ответить
Сообщение Нашёл нужный макрос в интернете Малость подработал под современный формат, и... вроде работает Автор - emkub Дата добавления - 16.09.2016 в 10:22
_Boroda_
Дата: Пятница, 16.09.2016, 10:29 |
Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация:
6478
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
за список файлов и книг отвечает Функция FullPath
Не совсем. Эта функция просто дает нам путь к папке cName в нормальном, пригодном для Excel виде
за список файлов и книг отвечает Функция FullPath
Не совсем. Эта функция просто дает нам путь к папке cName в нормальном, пригодном для Excel виде_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
если найдётся время, буду пытаться соединить функционал двух макросов. И в том и в том есть удобные для меня штуки. Тему можно считать закрытой. Всем спасибо за помощь!!! - это не сарказм
если найдётся время, буду пытаться соединить функционал двух макросов. И в том и в том есть удобные для меня штуки. Тему можно считать закрытой. Всем спасибо за помощь!!! - это не сарказм emkub
Ответить
Сообщение если найдётся время, буду пытаться соединить функционал двух макросов. И в том и в том есть удобные для меня штуки. Тему можно считать закрытой. Всем спасибо за помощь!!! - это не сарказм Автор - emkub Дата добавления - 16.09.2016 в 10:45