Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
доработал программу случайного выбора файлов
 
#1
05.03.2011 13:46:29
выбирает случайные файлы из указанной папки( с подкаталогами) по заданной маске(расширению) до общего заданного объема.  
 
складывает в выбранную папку(с очисткой ее при необходимости).  
 
любителям музыки и фотографий посвящается..(можно, конечно, и другие назначения придумать)
Живи и дай жить..
 
 
 
#2
06.03.2011 14:24:47
Здравствуйте.  
 
Не просветите что означает этот кусок кода.Не понял про какие книги речь(For Each w):  
 
For Each w In Workbooks  
       If w.IsAddin Then  
       Else  
           fotopic.Show  
           Exit Sub  
       End If  
   Next
 
 
 
#3
06.03.2011 18:11:37
Непонятно на самом деле вот чего.Для чего нужен этот код при открытии книги.Ведь только появилась форма,еще не выбрана папка.Кроме текущего файла ничего нет.А программа уже (при открытии) перебирает какие-то книги
 
 
 
#4
07.03.2011 00:29:03
Возможно w - это надстройка
 
 
 
#5
07.03.2011 01:00:33
{quote}{login=qw}{date=06.03.2011 06:11}{thema=}{post}Непонятно на самом деле вот чего.Для чего нужен этот код при открытии книги.Ведь только появилась форма,еще не выбрана папка.Кроме текущего файла ничего нет.А программа уже (при открытии) перебирает какие-то книги{/post}{/quote}  
Проверил у себя (2003) - пока не задал все условия программа никакие файлы самостоятельно не перебирает.
 
 
 
#6
07.03.2011 11:20:09
Юрий, этот код в Private Sub Workbook_Open(), так что перебирает.  
Но мне кажется, что это остатки алгоритма, который уже изменён.  
Можно и так сделать - тогда будут скрываться все другие открытые книги:  
 
Private Sub Workbook_Open()  
'    Dim w As Workbook  
'    For Each w In Workbooks  
'        If w.IsAddin Then  
'        Else  
'            fotopic.Show  
'            Exit Sub  
'        End If  
'    Next  
Application.DisplayAlerts = False  
Application.Visible = False  
   fotopic.Show  
End Sub  
 
или так:  
 
Private Sub Workbook_Open()  
'    Dim w As Workbook  
'    For Each w In Workbooks  
'        If w.IsAddin Then  
'        Else  
           fotopic.Show  
           Exit Sub  
'        End If  
'    Next  
'Application.DisplayAlerts = False  
'Application.Visible = False  
'    fotopic.Show  
End Sub  
 
 
Но слэну конечно виднее.
 
 
 
#7
07.03.2011 11:23:56
С другой стороны если закоментировать эти непонятные строки    
 
For Each w In Workbooks  
If w.IsAddin Then  
Else  
fotopic.Show  
Exit Sub  
End If  
Next    
 
то программа по прежнему работает и без них.
 
 
 
#8
07.03.2011 11:33:10
Я вижу так - если есть открытые книги - то Application не прячем, открываем форму.  
Если открыты только надстройки - Application прячем, открываем форму.
 
 
 
#9
07.03.2011 11:34:47
Проверил: w = Nothing. Так что цикл сразу прерывается, никакого перебора книг не вижу :-)
 
 
 
#10
07.03.2011 11:36:52
Но например у меня в автозагрузке книги, которые не видны, но которые не надстройки.  
Сейчас, если запускать такой код, то форма открывается на сером фоне, что некрасиво.  
Тогда надо бы кроме w.IsAddin ещё проверить и на видимость окна этой книги.
 
 
 
#11
07.03.2011 11:56:17
Например, так:  
 
Private Sub Workbook_Open()  
   Dim w As Workbook  
   For Each w In Workbooks  
       If w.IsAddin Then  
       Else  
       If w.Windows(1).Visible Then fotopic.Show: Exit Sub  
       End If  
   Next  
Application.DisplayAlerts = False  
Application.Visible = False  
   fotopic.Show  
End Sub  
 
Но нужно ещё подкрутить и при закрытии книги - теперь при открытии серого окна нет, а после закрытия появляется.
 
 
 
#12
07.03.2011 12:00:13
Так что ли? У меня вроде наладилось:  
 
Sub ext()  
   On Error Resume Next  
   Unload fotopic  
   Dim w As Workbook  
   For Each w In Workbooks  
       If w.IsAddin Then  
       Else  
       If w.Windows(1).Visible Then  
           Application.Visible = True  
           ThisWorkbook.Close  
           Exit Sub  
            End If  
       End If  
   Next  
   Application.DisplayAlerts = False  
   Application.Quit  
End Sub
 
 
 
#13
07.03.2011 12:12:07
Про уже открытые книги я не подумал.  
 
Получается код перебирает уже открытые книги,  
чтобы не скрывать их?
 
 
 
#14
07.03.2011 12:14:56
Открыл пару книг, открыл "главную" книгу - никто их не перебирает :-) Где Вы видите перебор этих открытых книг?
 
 
 
#15
07.03.2011 12:23:36
"Где Вы видите перебор этих открытых книг?"  
 
Вот здесь:  
 
For Each w In Workbooks
 
 
 
#16
07.03.2011 12:31:43
И я здесь смотрю. При трёх изначально открытых книгах ни одной итерации. Где перебор?
 
 
 
#17
07.03.2011 12:35:11
"Где перебор?"  
 
- не знаю )))  
 
Но Hugo наверное ответил на вопрос для чего этот код:  
 
"Я вижу так - если есть открытые книги - то Application не прячем, открываем форму.  
Если открыты только надстройки - Application прячем, открываем форму."
 
 
 
#18
07.03.2011 12:39:30
Юрий, у Вас вероятно на первой книге срабатывает условие - не надстройка.
 
 
 
#19
07.03.2011 12:42:16
Я же реагировал на эту Вашу фразу: "А программа уже (при открытии) перебирает какие-то книги".
 
 
 
#20
07.03.2011 12:43:59
{quote}{login=Hugo}{date=07.03.2011 12:39}{thema=}{post}Юрий, у Вас вероятно на первой книге срабатывает условие - не надстройка.{/post}{/quote}  
Ну да! Обычные три книги открыты. Перебора их не происходит. Вот об этом я и говорю. А qw утверждает, что происходит перебор... :-)
 
 
 
#21
07.03.2011 13:24:30
А у меня перебирает, если открыт только этот файл. Перебирает Personal.xls, MyFuncs.xls, NumberLat.xls - это не надстройки, но с моей коррекцией нет выхода из кода, т.к. из окна невидимы.
 
 
 
#22
09.03.2011 09:35:33
{quote}{login=qw}{date=06.03.2011 02:24}{thema=}{post}Здравствуйте.  
 
Не просветите что означает этот кусок кода.Не понял про какие книги речь(For Each w):  
 
For Each w In Workbooks  
       If w.IsAddin Then  
       Else  
           fotopic.Show  
           Exit Sub  
       End If  
   Next{/post}{/quote}  
 
 
суть вот в чем..  если у вас уже были открытые книги до запуска этого файла, то программа просто показывает свое окно , а если нет видимых книг, то окно иксель скрывается, остается только форма..  
 
Private Sub Workbook_Open()  
   Dim w As Workbook  
   For Each w In Workbooks  
       If w.IsAddin Then  
       Else  
           fotopic.Show  
           Exit Sub  
       End If  
   Next  
Application.DisplayAlerts = False  
Application.Visible = False          '  вот тут скрывается окно иксель  
   fotopic.Show  
End Sub  
 
 
так же и призакрытии программы - если есть видимые книги, то иксель не закрывается..
Живи и дай жить..
 
 
 
#23
09.03.2011 10:00:21
слэн, мою поправку одобряете? Про невидимые, но не надстройки.
 
 
 
#24
09.03.2011 10:44:53
нет, думаю надо чуть по-другому..  
 
щас
Живи и дай жить..
 
 
 
#25
09.03.2011 11:11:22
думаю надо повесить все на загрузку, а в конце проверять лишь видимость самого приложения - если невидимо, то выгружать его, иначе выгружать только программу..  
 
поправил еще зацикливание(или лишний вызов, так как от настоящего зацикливания спасало on error) при закрытии формы.  
 
также лишняя строка exit sub после вызова формы при загрузке - никогда до нее не доходит, - или все же может дойти?
Живи и дай жить..
 
 
 
#26
09.03.2011 12:08:49
а в общем-то, щас вчитался, да, Hugo, так, как у вас, при открытии-то :)
Живи и дай жить..
 
 
 
Страницы: 1
Наверх