Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Код VBA работал в офф 2003, а в 2010 не работает?!
|
|||
|---|---|---|---|
|
#18+
Был в офф 2003 такой код .. Sub Summator() FormKontr = 2 UserForm1.TextBox1 = TekuchKatal UserForm1.TextBox8 = ActiveSheet.Name With Application.FileSearch .Filename = "*.xls" .LookIn = TekuchKatal .Execute UserForm1.TextBox2 = CStr(Val(.FoundFiles.Count) - 1) End With UserForm1.TextBox1.Enabled = False UserForm1.TextBox2.Enabled = False UserForm1.Show 0 End Sub работал на ура ... после перехода на офф 2010 (32-разряда) работать отказывается ругаетса на "With Application.FileSearch" - говорит что-то насчет того что объект отсутствует ... подскажите пожалуйста как можно этот код запустить в 2010 офф, мож какой библиотеки не хватает ? ________________________ это жжжж ... не спроста ... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.08.2012, 19:43 |
|
||
|
Код VBA работал в офф 2003, а в 2010 не работает?!
|
|||
|---|---|---|---|
|
#18+
clerk, да, начиная с 2007-го офиса у апликейшена, FileSearch "нету" но, судя по коду, он там так-се нужен обычным dir посчитайте к-во файлов ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.08.2012, 20:24 |
|
||
|
|
start [/forum/topic.php?fid=61&msg=37932494&tid=2175434]: |
0ms |
get settings: |
5ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
22ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
35ms |
get tp. blocked users: |
1ms |
| others: | 232ms |
| total: | 321ms |
| 0 / 0 |
