Excel VBA взаимодействует с виртуальной машиной - PullRequest
0 голосов
/ 28 декабря 2018

Мой вопрос касается Excel VBA и взаимодействия с виртуальной машиной.Цель моего проекта - войти на мой сайт работодателей, используя мои учетные данные - открыть проводник файлов виртуальной машины (оба они уже выполнены) - затем щелкнуть соответствующий файл на виртуальной машине - затем запустить макрос внедавно открытый файл.Я застрял на выборе файла в виртуальной машине.Я вставлю свой код ниже.Я получаю сообщение об ошибке «Файл не найден», и я полагаю, что это происходит из-за того, что код ищет проводник на моем компьютере, а не на виртуальных машинах.Любая помощь очень ценится.

Sub login()

Dim ie As SHDocVw.InternetExplorer
Set ie = New InternetExplorerMedium

ie.Visible = True ' show internet explorer when it opens
ie.navigate ("website name") 'navigate to website

Do While ie.readyState <> READYSTATE_COMPLETE ' wait until webpage is loaded

Loop

Dim idoc As MSHTML.HTMLDocument ' define variable as HTML document
Set idoc = ie.document

idoc.all.user.Value = "User Name"
idoc.all.Password.Value = "Password"
idoc.all.btnLogin.Click

Do While ie.readyState <> READYSTATE_COMPLETE ' wait until next screen loads completely
Loop
Application.Wait (Now + TimeValue("0:00:05")) ' this delay prevented an error from occuring
ie.navigate ("website link within employers site")

Do While ie.readyState <> READYSTATE_COMPLETE

Loop

idoc.getElementById("").Click 'clicking to open the virtual machine file explorer

Application.Wait (Now + TimeValue("0:00:30"))

Shell "'C:\Folder\Folder\Folder\File.xlsx", vbNormalFocus

1 Ответ

0 голосов
/ 28 декабря 2018

Это не совсем ваш случай, но я полагаю, что это может помочь объяснить, как правильно находить файлы на удаленных компьютерах / соединениях с сервером и т. Д.

Как мы можем скопировать один файл с удаленного рабочего столана локальный компьютер с помощью Excel VBA

...