Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы? / 12 сообщений из 12, страница 1 из 1
10.12.2013, 16:02
    #38495797
Ratmir777
Ratmir777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
Выполняется запуск файла 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:17
    #38495819
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
Где запускается этот код? Не в одном ли из этих файлов?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.12.2013, 16:21
    #38495825
Ratmir777
Ratmir777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
Анатолий ( Киев ),

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

Будет запускатся в одном из этих файлов а сейчас пока нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.12.2013, 16:41
    #38495851
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
Ratmir777Будет запускатся в одном из этих файлов а сейчас пока нет. Т.е. сейчас это какая-то сторонняя бд, не имеющая отношения к обрабатываемым файлам?
Покажите содержимое updater.cmd.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.12.2013, 17:03
    #38495885
Ratmir777
Ratmir777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
Анатолий ( Киев )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:50
    #38495964
Ratmir777
Ratmir777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
Помоему трабол гдето в вызываемой функции.
Помогите плиз разобраться.
Код: 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
| Ответить | Цитировать | Написать  
11.12.2013, 05:50
    #38496390
MikeLed
MikeLed
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
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, 12:25
    #38496777
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
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
| Ответить | Цитировать | Написать  
12.12.2013, 11:30
    #38498152
Ratmir777
Ratmir777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Даже не знаю как тему назвать... Запуск файлов из VBA, какие есть нюансы?
Анатолий ( Киев ),

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

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

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

cd /d %~dp0

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

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


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