Запуск Excel-файла с параметрами

[bdaa]

Можно ли запустить Excel-файл с параметром? Если да, то как узнать значение этого параметра через VBA.

[Vitaly1]

В каком смысле с параметрами, с паролем, только для чтения, и т.п.?

Тогда набираешь Open, выделяеши и ctrl+f1

[alibek]

Нет, с параметром Command$(). Не сделать тебе этого; параметры передаются не твоему листу, а Excel. Используй другие способы передачи параметров.

[bdaa]

Надо запустить, что-то типа:
Мой_файл.xls /0 или Мой_файл.xls /1.
Параметры будут указываться через разные ярлыки.
Т.е. надо сделать так, чтобы файл открывался с разными параметрами.
А потом в VBA-проекте как-нибудь сделать нечто подобное:
значение Параметра1=0, значит сделать то-то...
значение Параметра1=1, значит сделать что-то другое...
Если можно поподробнее про Command(), если это, конечно, имеет отношение к данной теме

[alibek]

Не сделать тебе так.
Используй другие способы передачи параметров (дополнительный файл, реестр, переменные среды).

[Vitaly1]

А если ему передавать параметр в ячейку какого нибудь листа, или передавать параметр в кэпшен excel или в подпись проекта и т.п.

[bdaa]

А если ему передавать параметр в ячейку какого нибудь листа, или передавать параметр в кэпшен excel или в подпись проекта и т.п.

А как туда запихать значение? В одном случае одно, а в другом - другое

[Vitaly1]

Ну, например для кэпшена:

'Перед запуском книги
Application.Caption = параметр1

'в событие Open книги
параметр1 = Application.Caption

[bdaa]

Ну, например для кэпшена:

'Перед запуском книги
Application.Caption = параметр1

'в событие Open книги
параметр1 = Application.Caption

так и вся проблема в том, чтобы проект был один, а значение параметра было разным, и это значение могло браться из, например, ярлыка.
Например, один ярлык MyFile.xls /1 - значение параметра1 равно 1, другой ярлык MyFile /2, значение этого параметра соответственно 2.
Но вот как считать в программе значение этого параметра? Как я понял, в VBA это невозможно. Значит нужен какой-то альтернативный вариант

[bdaa]

Можно, конечно, создать два одинаковых файла, отличающихся только значением этого параметра. Но тогда, если нужно будет исправить проект, придется править 2 файла вместо одного

[Vitaly1]

Но вот как считать в программе значение этого параметра? Как я понял, в VBA это невозможно. Значит нужен какой-то альтернативный вариант

Возможно, так же как в VB, сейчас не помню, могу посмотреть дома.

[Vitaly1]

Содержимое ярлыка:

Код: Выделить всё

Dim myFSO As Object
Dim myFL, a, b, c, d, e, f
Set myFSO = CreateObject("WScript.Shell")
Set myFL = myFSO.CreateShortCut("Полный путь к ярлыку.lnk")
a = "Путь к родительскому объекту: " & myFL.TargetPath & vbCrLf
b = "Горячая клавиша: " & myFL.Hotkey & vbCrLf
c = "WindowStyle: " & myFL.WindowStyle & vbCrLf
d = "№Иконки в род. файле: " & myFL.IconLocation & vbCrLf
e = "Комментарий иконки: " & myFL.Description & vbCrLf
f = "Рабочая папка род. объ.: " & myFL.WorkingDirectory

Set myFSO = Nothing
Set myFL = Nothing
MsgBox a & b & c & d & e & f