ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
12 сообщений из 12, страница 1 из 1
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38495797
Ratmir777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ratmir777
Гость
Выполняется запуск файла updater.cmd
Который корректно должен подменить у пользователя файл обновления на рабочий файл,
все хорошо но при таком запуске cmd файл почему то не работает вообще, хотя запускается.
Может он запускается как то не так? Потому что если его запустить в ручную, то все происходит как и задумана, а из vba почемуто запускается но не обрабатывает все как надо, да и вообще не чего не делает с файлами.

Запускаю вайл cmd такой конструкцией:
Dim FLVfile As String
FLVfile = CurrentProject.Path & "\updater.cmd\"
ShellExecute 0, "open", FLVfile, "updater.cmd", 0, SW_NORMAL
...
Рейтинг: 0 / 0
10.12.2013, 16:02
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38495819
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Где запускается этот код? Не в одном ли из этих файлов?
...
Рейтинг: 0 / 0
10.12.2013, 16:17
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38495825
Ratmir777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ratmir777
Гость
Анатолий ( Киев ),

Код запускается при выходе из программы. То есть программа написанная на ACCESS закрывается выполняется код. Думал сначало что программа не успевает закрываться, когда срабатывает cmd, поставил в cmd таймер, послезакрытия ACCESSа в запущеном CMD проходит 10 секунд, а файлы он все равно не обрабатывает - не меняет. Хотя и делает это нормально если CMD ручками запускаешь.
...
Рейтинг: 0 / 0
10.12.2013, 16:21
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38495828
Ratmir777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ratmir777
Гость
Анатолий ( Киев ),

Будет запускатся в одном из этих файлов а сейчас пока нет.
...
Рейтинг: 0 / 0
10.12.2013, 16:22
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38495851
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Ratmir777Будет запускатся в одном из этих файлов а сейчас пока нет. Т.е. сейчас это какая-то сторонняя бд, не имеющая отношения к обрабатываемым файлам?
Покажите содержимое updater.cmd.
...
Рейтинг: 0 / 0
10.12.2013, 16:41
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38495885
Ratmir777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ratmir777
Гость
Анатолий ( Киев )Ratmir777Будет запускатся в одном из этих файлов а сейчас пока нет. Т.е. сейчас это какая-то сторонняя бд, не имеющая отношения к обрабатываемым файлам?
Покажите содержимое updater.cmd.

Да.


CMD:

@echo off
timeout /t 10 /nobreak>nul
if not exist "RIS_update.accde" exit
rename RIS_RUN.accde RIS_d.accde
rename RIS_update.accde RIS_RUN.accde
del RIS_d.accde
exit
...
Рейтинг: 0 / 0
10.12.2013, 17:03
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38495964
Ratmir777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ratmir777
Гость
Помоему трабол гдето в вызываемой функции.
Помогите плиз разобраться.
Код: vbnet
1.
2.
3.
4.
5.
6.
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
   "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
   ByVal lpFile As String, ByVal lpParameters As String, _
   ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   Private Const SW_MAXIMIZE = 0
   Private Const SW_NORMAL = 0



Если даже Создать cmd
@echo off
timeout /t 3 /nobreak>nul
start uprun.bat

Который запускает cmd обновления, то пишит что не удолось найти файл.
...
Рейтинг: 0 / 0
10.12.2013, 17:50
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38496390
MikeLed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MikeLed
Гость
Ratmir777,

Если я правильно понял, запуск вручную - это запуск из командной строки.
Я не могу сказать почему (не помню, а может и слуяайо), но я не пользуюсь такой (ShellExecute) конструкцией зпуска.
Почему-то я делю так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
'- запуск службы на заданном компе сети
    Dim СommandLine As String
    Dim WshShell As Object
    СommandLine = "cmd /c sc.exe \\" & strComputer & " start " & strService
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run СommandLine, vbHide, True '1-вид окна, True - ожидание
    Set WshShell = Nothing


Или
Код: vbnet
1.
2.
    RetVal = Shell("cmd /c reg.exe query ""\\192.168.99.99\HKLM\software\microsoft\windows nt\currentVersion"" /v DigitalProductID > ""c:\tmp\122.txt""", vbNormalFocus)
    RetVal = Shell("cmd.exe /c nbtstat.exe -A 192.168.214.7 > d:\ax.txt", vbHide)


или
Код: vbnet
1.
Shell "CMD /c """ & strReportName & """"


Но всегда при испльзовании команд сначала запуск командной строки.
Последее (strReportName - это именно имя файла с путем и раширением) открывает фвйл в приложении которое прописано для даннного файла в винде.
Обратите внимание на кавычки.
Емли с именем файла последем примере понятно (файл и/или путь могт быть с пробелами), то почему в [reg.exe query ""] надо ставть кавычки дважды - не понимаю, но промучился, т.к. в командной строке такого не надо и в bat-файле тоже не надо.
...
Рейтинг: 0 / 0
11.12.2013, 05:50
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38496777
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Ratmir777CMD:

@echo off
timeout /t 10 /nobreak>nul
if not exist "RIS_update.accde" exit
rename RIS_RUN.accde RIS_d.accde
rename RIS_update.accde RIS_RUN.accde
del RIS_d.accde
exit А если указать полный путь к файлам?
...
Рейтинг: 0 / 0
11.12.2013, 12:25
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #38498152
Ratmir777
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ratmir777
Гость
Анатолий ( Киев ),

Вопрос решен добавлением в начало батника

cd /d %~dp0
...
Рейтинг: 0 / 0
12.12.2013, 11:30
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #39424869
О.Сергей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
О.Сергей
Гость
Ratmir777Анатолий ( Киев ),

Вопрос решен добавлением в начало батника

cd /d %~dp0

это означает перевод текущего каталога на тот в котором расположен батник, иначе применяется тот, который указан в настройках Акцесса - каталог по умолчанию.

Была аналогичная проблема
...
Рейтинг: 0 / 0
22.03.2017, 14:16
| Ответить | Цитировать | Написать  
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
    #39427727
serzhalhimov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
serzhalhimov
Гость
такая проблема обычно наблюдается у многих пользователей я замечал
...
Рейтинг: 0 / 0
27.03.2017, 13:29
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=80&tid=1612602]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 2ms
others: 13ms
total:  129ms
созд. / загр.: 129ms
x
x
Закрыть


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