добрый день!
мне необходимо автоматизировать действия на сайте. одним из этих действий является выгрузка файла с диска на сайт через форму на сайте.
вот как я делаю:
проблема в строке
она не присваивае т значение. т.е. не работает.
если я вручную тыкаю в форму и выбираю файл в открывшемся диалоговом окне, то после этого
debug.print btnInput.Value показывает путь к файлу, но вот программно присвоить путь не получается.
мне необходимо автоматизировать действия на сайте. одним из этих действий является выгрузка файла с диска на сайт через форму на сайте.
вот как я делаю:
| Код |
|---|
Function GetIE() As Object
For Each GetIE In CreateObject("Shell.Application").Windows() 'Loop to find
If (Not GetIE Is Nothing) And GetIE.name = "Internet Explorer" Then Exit For 'Found!
Next GetIE
If GetIE Is Nothing Then Exit Function
GetIE.Visible = True 'Make IE window visible
End Function
Sub upload()
Dim myShell As Object
Dim ie As Object
Set ie = GetIE
ie.Navigate ("https://xmltools.corefiling.com/miniSchemaValidate/index.jsp")
Do: DoEvents: Loop While ie.Busy Or ie.ReadyState <> 4
Set ElementCol = .getElementsByTagName("input")
For Each btnInput In ElementCol
If btnInput.name = "schema" Then
'btnInput.Click
btnInput.Value = "C:\Users\file.txt"
Exit For
End If
Next btnInput
.....
end sub
|
| Код |
|---|
btnInput.Value = "C:\Users\file.txt" |
если я вручную тыкаю в форму и выбираю файл в открывшемся диалоговом окне, то после этого
debug.print btnInput.Value показывает путь к файлу, но вот программно присвоить путь не получается.
Изменено: - 24.05.2019 23:26:36
