Столкнулся с проблемой скачивания файлов.
Поиском сайт просмотрел, аналогичных тем не нашел, так что модеров прошу не корить сильно, если вдруг оффтоп.
Решил не особо мучиться и сделать скачивание через PowerShell. Тем более что я уже однажды писал скрипт в который передавал аргументы из другой программы.
В VBA такой "финт ушами" не сработал!
Нарыл скрипт скачивания файла по ссылке, ибо в PS я не сильно шарю, мягко говоря. Указал откуда скачивать, куда класть, выполнил скрипт и всё скачалось и положилось куда надо. Дело, казалось, осталось за малым: передать из VBA две переменных (ссылка и путь сохранения) и дело в шляпе. Однако же я не смог передать не то что обе, но и ни одной вовсе.
Ребят, уже 4 с лишним часа сижу. Гуглом пользоваться умею, так что просьба не отправлять в гугл. Про передачу переменных я что мог найти - там прочитал. Но у меня не получается такое сделать...
Подскажите пожалуйста, кто в теме PS, как передать 2 параметра в скрипт PowerShell из макроса VBA.
Код VBA:
Код PowerShell:
P.S. Пробовал так же "Get-Service -Name $args[0] $args[1]" заменить на "param($mURL, $mPath)". Тоже не получилось...
Поиском сайт просмотрел, аналогичных тем не нашел, так что модеров прошу не корить сильно, если вдруг оффтоп.
Решил не особо мучиться и сделать скачивание через PowerShell. Тем более что я уже однажды писал скрипт в который передавал аргументы из другой программы.
В VBA такой "финт ушами" не сработал!
Нарыл скрипт скачивания файла по ссылке, ибо в PS я не сильно шарю, мягко говоря. Указал откуда скачивать, куда класть, выполнил скрипт и всё скачалось и положилось куда надо. Дело, казалось, осталось за малым: передать из VBA две переменных (ссылка и путь сохранения) и дело в шляпе. Однако же я не смог передать не то что обе, но и ни одной вовсе.
Ребят, уже 4 с лишним часа сижу. Гуглом пользоваться умею, так что просьба не отправлять в гугл. Про передачу переменных я что мог найти - там прочитал. Но у меня не получается такое сделать...
Подскажите пожалуйста, кто в теме PS, как передать 2 параметра в скрипт PowerShell из макроса VBA.
Код VBA:
Код |
---|
Sub TestPowershell() Dim cmd, a1, a2 a1 = "string1" a2 = "string2" cmd = "powershell.exe -ExecutionPolicy Unrestricted -NoExit -File d:\TestScript\sc.ps1 -Name """ & a1 & "" Shell cmd, vbNormalFocus End Sub |
Код PowerShell:
Код |
---|
-ExecutionPolicy ByPass -command Get-Service -Name $args[0] $args[1] $download_url = $args[0] $local_path = $args[1] $WebClient = New-Object System.Net.WebClient $WebClient.DownloadFile($download_url, $local_path) |
P.S. Пробовал так же "Get-Service -Name $args[0] $args[1]" заменить на "param($mURL, $mPath)". Тоже не получилось...