Сумирование с заполнением отдельной таблицы с разных книг
RAN
Дата: Четверг, 08.10.2015, 12:05 |
Сообщение № 21
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
[vba]Код
If srcBook.name like "Январь*" then ходи туда ElseIf srcBook.name like "Апрель*" then ходи сюди Else совсем сиди. End if
[/vba]
[vba]Код
If srcBook.name like "Январь*" then ходи туда ElseIf srcBook.name like "Апрель*" then ходи сюди Else совсем сиди. End if
[/vba] RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение [vba]Код
If srcBook.name like "Январь*" then ходи туда ElseIf srcBook.name like "Апрель*" then ходи сюди Else совсем сиди. End if
[/vba] Автор - RAN Дата добавления - 08.10.2015 в 12:05
Hugo
Дата: Четверг, 08.10.2015, 12:12 |
Сообщение № 22
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация:
819
±
Замечаний:
0% ±
365
Или удобно сделать через select case true А само копирование в отдельных процедурах, куда в параметрах передавать объекты.
Или удобно сделать через select case true А само копирование в отдельных процедурах, куда в параметрах передавать объекты. Hugo
webmoney: E265281470651 Z422237915069 USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
Ответить
Сообщение Или удобно сделать через select case true А само копирование в отдельных процедурах, куда в параметрах передавать объекты. Автор - Hugo Дата добавления - 08.10.2015 в 12:12
akaDemik
Дата: Четверг, 08.10.2015, 12:18 |
Сообщение № 23
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
If srcBook.name like "Январь*" then ходи туда ElseIf srcBook.name like "Апрель*" then ходи сюди Else совсем сиди. End if
интересный вариант, только забыл дописать что помимо разной структуры в книгах, будет разное название листов, иногда даже там где одинаковая структура
If srcBook.name like "Январь*" then ходи туда ElseIf srcBook.name like "Апрель*" then ходи сюди Else совсем сиди. End if
интересный вариант, только забыл дописать что помимо разной структуры в книгах, будет разное название листов, иногда даже там где одинаковая структураakaDemik
Ответить
Сообщение If srcBook.name like "Январь*" then ходи туда ElseIf srcBook.name like "Апрель*" then ходи сюди Else совсем сиди. End if
интересный вариант, только забыл дописать что помимо разной структуры в книгах, будет разное название листов, иногда даже там где одинаковая структураАвтор - akaDemik Дата добавления - 08.10.2015 в 12:18
RAN
Дата: Четверг, 08.10.2015, 15:30 |
Сообщение № 24
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Хоть и говорят "на каждый чих не наздравствуешся", но вам, в таком разе, придется.
Хоть и говорят "на каждый чих не наздравствуешся", но вам, в таком разе, придется. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Хоть и говорят "на каждый чих не наздравствуешся", но вам, в таком разе, придется. Автор - RAN Дата добавления - 08.10.2015 в 15:30
akaDemik
Дата: Четверг, 08.10.2015, 15:34 |
Сообщение № 25
Группа: Пользователи
Ранг: Участник
Сообщений: 67
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
пробуйте.. К сообщению приложен файл: 9437034.xlsm(16Kb)
возникла проблема, если в папке нет более одного файла, то выбивает ошибкуЦитата
Run-time error '1004' не удалось найти файл...
какие еще есть варианты кроме [vba][/vba]
пробуйте.. К сообщению приложен файл: 9437034.xlsm(16Kb)
возникла проблема, если в папке нет более одного файла, то выбивает ошибкуЦитата
Run-time error '1004' не удалось найти файл...
какие еще есть варианты кроме [vba][/vba]akaDemik
Сообщение отредактировал akaDemik - Четверг, 08.10.2015, 15:36
Ответить
Сообщение пробуйте.. К сообщению приложен файл: 9437034.xlsm(16Kb)
возникла проблема, если в папке нет более одного файла, то выбивает ошибкуЦитата
Run-time error '1004' не удалось найти файл...
какие еще есть варианты кроме [vba][/vba]Автор - akaDemik Дата добавления - 08.10.2015 в 15:34
Hugo
Дата: Четверг, 08.10.2015, 15:41 |
Сообщение № 26
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация:
819
±
Замечаний:
0% ±
365
Так ведь уже подсказывали примерно это: [vba]Код
Set filesys = CreateObject("scripting.filesystemobject") If filesys.FileExists(путь) Then
[/vba]
Так ведь уже подсказывали примерно это: [vba]Код
Set filesys = CreateObject("scripting.filesystemobject") If filesys.FileExists(путь) Then
[/vba] Hugo
webmoney: E265281470651 Z422237915069 USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
Ответить
Сообщение Так ведь уже подсказывали примерно это: [vba]Код
Set filesys = CreateObject("scripting.filesystemobject") If filesys.FileExists(путь) Then
[/vba] Автор - Hugo Дата добавления - 08.10.2015 в 15:41