Как передать параметр при загрузке файла - VB

Узнай цену своей работы

Формулировка задачи:

Доброе утро господа !
Есть XLS файла - необходимо определить режимы запуска
1. ручной - зашел .... нажал кнопку ... вышел
2. автоматический - загрузка .... выполнение процедуры ... выход
Т.е во втором случае хочу в командной строке передать параметр
FAIL.XLS AUTO
При открытии файла делаем анализа на переданный параметр
Но функция Command() в Office не работает (см. HELP)
API функция GetCommandLineA тоже .....................
Sub Auto_Open()
MsgBox Command
End Sub
Делаю так
Запуск через BAT, где определена локальная переменная среды
BAT-файл
set File=%1
division.xls - запуск XLS
в XLS-файле
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Sub Auto_Open()
Dim sFile As String
sFile = String(255, 0)
Call GetEnvironmentVariable("File", sFile, Len(sFile))
If Left(sFile, InStr(sFile, vbNullChar) - 1) <> "" Then Call START
End Sub
Есть более оптимальные и верные решения ?
Кто подскажет ?

Решение задачи: «Как передать параметр при загрузке файла»

textual
Листинг программы
/e - при старте Excel не отображает загрузочный экран и пустую новую книгу<br><br>/m - создает при старте Excel новую книгу, содержащую только один лист макросов.<br><br>/o - заставляет Excel выполнить свою перерегистрацию в реестре. При этом заново создаются недостающие записи в разделе реестра(Excel2003) HKCU\Software\Microsoft\Office\11.0\Excel.<br><br>/p <полное имя папки> - задает имя рабочей папки. Используется, если надо временно изменить рабочую папку, указанную в настройках Excel. Параметр следует отделять от имени папки пробелом.<br><br>/r <полное имя файла> - указанный файл будет открыт только для чтения.<br><br>/safe - открытие приложения в безопасном режиме (подробнее см. "Безопасный режим" во встроенной справке)<br><br>/regserver - Excel перезаписывает все относящиеся к нему записи в реестре и восстанавливает разрушенные ассоциации с расширениями файлов, а затем завершить работу.<br><br>/unregserver - заставляет Excel удалить из реестра относящиеся к нему записи и существующие ассоциации с расширениями файлов, а затем завершить работу.<br>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы