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

Вход

Регистрация

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

 

= Мир MS Excel/Сумирование с заполнением отдельной таблицы с разных книг - Страница 2 - Мир MS Excel

  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_, DrMini  
Сумирование с заполнением отдельной таблицы с разных книг
RAN Дата: Четверг, 08.10.2015, 12:05 | Сообщение № 21
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[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
Дата добавления - 08.10.2015 в 12:05
Hugo Дата: Четверг, 08.10.2015, 12:12 | Сообщение № 22
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация: 819 ±
Замечаний: 0% ±

365
Или удобно сделать через
select case true
А само копирование в отдельных процедурах, куда в параметрах передавать объекты.


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
Дата добавления - 08.10.2015 в 12:18
RAN Дата: Четверг, 08.10.2015, 15:30 | Сообщение № 24
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Хоть и говорят "на каждый чих не наздравствуешся", но вам, в таком разе, придется. yes


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеХоть и говорят "на каждый чих не наздравствуешся", но вам, в таком разе, придется. yes

Автор - 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]
Код
On Error GoTo ERR1
[/vba]


Сообщение отредактировал akaDemik - Четверг, 08.10.2015, 15:36
 
Ответить
Сообщение
пробуйте..
К сообщению приложен файл: 9437034.xlsm(16Kb)

возникла проблема, если в папке нет более одного файла, то выбивает ошибку
Цитата
Run-time error '1004'
не удалось найти файл...

какие еще есть варианты кроме
[vba]
Код
On Error GoTo ERR1
[/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]


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеТак ведь уже подсказывали примерно это:
[vba]
Код
Set filesys = CreateObject("scripting.filesystemobject")    
  If filesys.FileExists(путь) Then
[/vba]

Автор - Hugo
Дата добавления - 08.10.2015 в 15:41
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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