Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Чем заменить Application.FileSearch в Excel 2007?

Ответить
Настройки темы
VBS/WSH/JS - [решено] Чем заменить Application.FileSearch в Excel 2007?

Пользователь


Сообщения: 120
Благодарности: 2

Профиль | Отправить PM | Цитировать

Здравствуйте, есть макрос, успешно эксплуатировавшийся под excel 2003, но возникла обходимость перейти на excel 2007 и там этот макрос не работает. Все дело в том, что в 2007 пропал объект Application.FileSearch. Необходимо заменить блок, использовавший тот объект, на другой, чтобы код поддерживался в excel 2007. Я в VBA как свинья в апельсинах, посему обращаюсь к вам. Код крохотный, великодушно надеюсь, что кто-нибудь найдет минутку помочь.

Исходный код:


Код: Выделить весь код
        
        Application.FileSearch.Filename = Город & ".ppt"
        Application.FileSearch.LookIn = "d:\Общие\Презентации"
        
        
        'If Application.FileSearch.Execute > 0 Then
        'Cells(i, 10) = Application.FileSearch.FoundFiles.Count
        'End If

Отправлено: 16:00, 06-09-2012

 

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

Переходите к использованию объекта автоматизации «Scripting.FileSystemObject»: FileSystemObject.

Отправлено: 16:50, 06-09-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 120
Благодарности: 2

Профиль | Отправить PM | Цитировать

Iska, я не программист, к сожалению. Мне просто нужна помощь чтобы указанную часть кода выразили другими объектами и я мог дальше пользоваться этим макросом. К сожалению, "удочки" мне недостаточно, дайте, пожалуйста, рыбу

Отправлено: 17:09, 06-09-2012 | #3


Аватара для Delirium

Ветеран


Сообщения: 5624
Благодарности: 936

Профиль | Отправить PM | Цитировать

http://social.msdn.microsoft.com/For...-03f7994369d6/

Там есть пример как работает в 2007:
Код: Выделить весь код
Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists("d:\Общие\Презентации\город.ppt" )) Then
      msg = "файл есть"
   Else
      msg = "файла нет"
   End If

-------

Пройденные курсы:
[Microsoft №10174 Sharepoint], [SharePoint]
Мои проекты:[CheckAdmins], [NetSend7], [System Uptime], [Remote RAdmin LogViewer],[Netdom GDI], [Holidays - напоминалка о днях рождения]

А я офис-гуру :)

Это сообщение посчитали полезным следующие участники:

Отправлено: 17:24, 06-09-2012 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Чем заменить Application.FileSearch в Excel 2007?

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
2007 - примечания excel 2007 dreammk Microsoft Office (Word, Excel, Outlook и т.д.) 3 24-04-2012 20:45
2007 - excel 2007 диаграммы forest66 Microsoft Office (Word, Excel, Outlook и т.д.) 2 21-12-2011 08:25
2007 - [решено] excel 2007 cergeech Microsoft Office (Word, Excel, Outlook и т.д.) 1 19-11-2011 13:44
Разное - [решено] Excel 2003 выбор текстового значения или заменить bygor1412 Microsoft Office (Word, Excel, Outlook и т.д.) 2 24-10-2010 03:09
2003/XP/2000 - Excel VB: Filesearch и zip файлы AlexM Microsoft Office (Word, Excel, Outlook и т.д.) 0 18-02-2010 07:34


« Предыдущая тема | Следующая тема »


 
Переход