ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как запустить файл из Excel
14 сообщений из 14, страница 1 из 1
как запустить файл из Excel
    #36893375
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
при определенном условии, т.е. идея в том, что файл Excel будет запускаться в определнное время извлекать данные с Интернета анализировать их и по результатам будет или не будет запускаться другой файл, например, с расширением .bat. Я не нашел в поиске ответа на мой вопрос, но думаю, что это должно быть просто.
...
Рейтинг: 0 / 0
11.10.2010, 19:16
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36893380
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
shell

или АПИ - shellexecute
...
Рейтинг: 0 / 0
11.10.2010, 19:18
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36893441
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
Получился у меня такой код (я давно не писал на VBA, так что забыл многое):

Sub Report()
Dim launch As String

launch = Shell("h:\Database\test.txt", vbNormalNoFocus)

If Sheet1!D3 <> 1 Then

launch

Else

End If

End Sub
...
Рейтинг: 0 / 0
11.10.2010, 19:55
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36893453
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
1) Код в форуме оформляется тэгами SRC
2) Shell возвращает число, а не строку
3) Shell-у надо указывать исполняемый файл, в данном случае "notepad.exe h:\Database\test.txt"
4) Что вы хотели сказать строкой "launch" - неясно
5) Если после Else ничего нет, то и Else не нужен - компилятор заругает
...
Рейтинг: 0 / 0
11.10.2010, 20:02
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36893465
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Shocker.Pro,

ИМХО, которое проверено, компилятор ругаться не будет от того есть ли строка после Эльзы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
If  6  <>  1  Then
Beep
Else
End If

If  6  <>  1  Then
Else
End If
Не ругается, или что Вы под этим подразумеваете???
...
Рейтинг: 0 / 0
11.10.2010, 20:12
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36893468
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ципихович ЭндрюНе ругается
Действительно, не ругается, с какой-то другой средой значит перепутал, ну минус этот пункт, хотя смысла в Else в данном случае нет.
...
Рейтинг: 0 / 0
11.10.2010, 20:14
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36894176
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
Я давно не работал с VBA и давно не пользовался помощью сайта, так что прошу прощения за тупость.
Такой код не работает, говорит, ошибка 438 Object doesn't support this property of method:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Report()
Dim launch As Integer

If Sheet1!D3 <>  1  Then

launch = Shell("notepad.exe h:\Database\test.txt", vbNormalNoFocus)

Else

End If

End Sub
...
Рейтинг: 0 / 0
12.10.2010, 11:18
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36894285
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
If ThisWorkbook.WorkSheets("Sheet1").Range("D3") <>  1  Then
...
Рейтинг: 0 / 0
12.10.2010, 11:55
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36894366
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
Поправил код, теперь он работает, но только когда я запускаю его вручную из редактора VBA, и не срабатывает при запуске. Как заставить работать при запуске файла?
...
Рейтинг: 0 / 0
12.10.2010, 12:22
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36894412
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Разместите код в процедуре Workbook_Open
...
Рейтинг: 0 / 0
12.10.2010, 12:37
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36894435
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
Спасибо, все работает!
...
Рейтинг: 0 / 0
12.10.2010, 12:41
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36894506
Валентин67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валентин67
Участник
Shocker.ProЦипихович ЭндрюНе ругается
Действительно, не ругается, с какой-то другой средой значит перепутал, ну минус этот пункт, хотя смысла в Else в данном случае нет.

По крайней мере во всех диалектах Бейсик'а всегда выполняется ровно один блок кода, возможно пустой. В данной конструкции if ... then ... else естественно else не имеет смысла писать.
...
Рейтинг: 0 / 0
12.10.2010, 13:04
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36894571
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Валентин67,
я и не спорю, согласен, что можно Ельзе и не писать именно в этом случае
...
Рейтинг: 0 / 0
12.10.2010, 13:27
| Ответить | Цитировать | Написать  
как запустить файл из Excel
    #36923449
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
Ципихович Эндрю,

Странно, но когда не пишу Else, то код попросту не работает...
...
Рейтинг: 0 / 0
27.10.2010, 16:49
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как запустить файл из Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]