{quote}{login=Hugo}{date=03.09.2010 11:28}{thema=}{post}Ещё можно на FSO сделать, с проверкой расширения и даты  
 
{/post}{/quote}  
 
Ух, здорово. Проверил. Супер. Благодарю.

{quote}{login=Юрий М}{date=03.09.2010 11:20}{thema=}{post}Правильно Слэн говорит - чего их считать? Обрабатывать ВСЕ. И совсем необязательно переименовывать.{/post}{/quote}  
 
Зная народ, накидают в папку что надо и не надо. Потом будут трезвонить - а чего он не туда считает))

{quote}{login=Hugo}{date=03.09.2010 11:19}{thema=}{post}Чтоб не выдавало на 2 больше - перенесите zz сюда:  
If myname <> "." And myname <> ".." Then  
zz = zz + 1{/post}{/quote}  
 
Да, не разобрался с логикой.  
Все работает на ура. Спасибо.

{quote}{login=The_Prist}{date=03.09.2010 11:14}{thema=}{post}Может подойдет .{/post}{/quote}  
 
Да, спасибо. Этот пример видел. Но у меня пользователи как бы сказать, не сильно продвинутые. Нужно скомандовать - свалите все файлы от менеджеров в одну папку, переименуйте по порядку (1,2,3... 44... ) а дальше программа все сделает сама.  
 
Раньше количество импортируемых файлов вбивалось конкретно через ячейку в книге-приемнике, хочу обойти это.

{quote}{login=Казанский}{date=03.09.2010 11:02}{thema=AAAAAAAmidi}{post}Оказывается, в справке 2007 примера нет :( <BR>Смотрите тут: http://www.planetaexcel.ru/forum.php?thread_id=16943 Пост Hugo от 14:05 и ниже.{/post}{/quote}  
 
Уже залез. Пример подправил под себя.  
=====================================  
   ww = ActiveWorkbook.Path '  
   ww1 = ww & "\"  
MyPath = ww1  
myname = Dir(MyPath, vbDirectory)    ' Retrieve the first entry.  
Do While myname <> ""    ' Start the loop.  
   ' Ignore the current directory and the encompassing directory.  
   If myname <> "." And myname <> ".." Then  
       ' Use bitwise comparison to make sure MyName is a directory.  
       If (GetAttr(MyPath & myname) And vbDirectory) = vbDirectory Then  
           Debug.Print myname    ' Display entry only if it  
       End If    ' it represents a directory.  
   End If  
     
   myname = Dir    ' Get next entry.  
   zz = zz + 1  
Loop  
MsgBox zz  
=======================================  
Считает, но с одним ньюансом. Выдает количество файлов на 2 больше, чем есть в папке. Скрытых файлов вроде нет. Ищу причину.  
Ссылочку сейчас посмотрю. спасибо.

Добрый день. Сразу, как принято, прошу прощения за, возможно, избитую тему. Вариаций много есть, но вот простого не нашел.  
 
Пишется программа, которая копирует из множества файлов данные в один.    
Чтобы не привязываться к конкретному количеству возможных файлов-источников, нужно определить количество файлов, лежащее в заданном текущем каталоге (ww = ActiveWorkbook.Path ' получаем путь, где лежит текущая книга и все остальные)  
Вопрос: каким кодом подсчитать в переменную zz количество файлов, лежащих в каталоге (переменная ww)  
 
Спасибо.

{quote}{login=слэн}{date=26.08.2010 02:54}{thema=}{post}вопрос уже обсуждался, я даже выкладывал шифратор..{/post}{/quote}  
 
видел, там ничего нет про "родные" методы через vba без использования сторонних программ.

Добрый день любителям чудо-счетчика.  
Сразу к делу. Возник вопрос защиты информации на листе. По памяти, пароли, ставящиеся на листы-книгу, да и вообще вся защита в Екселе ломается довольно просто сторонними программами (ломалась, по крайней мере лет 5 назад).  
И вот подумалось - а не лучше ли защитить от просмотра данные на листе, зашифровав их. Например как раньше, помнится, был метод шифрования на ассемблеровские программы командой XOR, если кто знает.  
Так вот подумалось - а нельзя ли и данные на листе зашифровать подобным образом? или какими-то еще способами? Вообще, как лучше всего организовать защиту?  
Спасибо.

Пардон, показалось, что пример примитивный будет.  
Вот, например, такой повседневный пример (вложение)

Добрый день. Банальная ситуация. пример примитивно: есть 2 таблицы (например на соседних листах одной книги)  
столбцы первой: "название отделения", "план отделения".  
столбцы вотрой: "название отделения", "факт отделения".  
"названия отделения" - общее поле первой и второй таблицы.  
Раньше, чтобы получить отчет вида: "отделение - план - факт", приходилось руками из двух таблиц делать одну, из которой потом формировать сводную таблицу.  
А возможно ли сделать сводную таблицу сразу напрямую из двух (трех...)таблиц, не объединяя их?  
Спасибо.