v79italya
12-03-2023, 23:06
Приветствую
Как в Excel макросом, используя Shell, активировать аккаунт?
Затем скачать файл.
Файл в принципе скачивается если аккаунт активен.
Sub demo()
Dim chromePath As String
"login" = "user300"
"password" = "300300"
chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
Shell (chromePath & " -url https://tradegreat.smartup.one/login.html")
Shell (chromePath & " -url https://tradegreat.smartup.one/b/rep/warehouse_products&run?date=10.03.2023&filial_ids=240&product_group_id=3&price_filial_id=240&price_type_id=&type=Q&only_with_stocks=Y&warehouses_only_with_balance=N&-user_id=45000&-filial_id=240&-project_code=trade0&-lang_code=ru&rt=xlsx")
End Sub
А можно добавить определенную папку, например C:\test
Как в Excel макросом, используя Shell, активировать аккаунт?
Затем скачать файл.
Файл в принципе скачивается если аккаунт активен.
Sub demo()
Dim chromePath As String
"login" = "user300"
"password" = "300300"
chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
Shell (chromePath & " -url https://tradegreat.smartup.one/login.html")
Shell (chromePath & " -url https://tradegreat.smartup.one/b/rep/warehouse_products&run?date=10.03.2023&filial_ids=240&product_group_id=3&price_filial_id=240&price_type_id=&type=Q&only_with_stocks=Y&warehouses_only_with_balance=N&-user_id=45000&-filial_id=240&-project_code=trade0&-lang_code=ru&rt=xlsx")
End Sub
А можно добавить определенную папку, например C:\test