Здравствуйте!
Помогите пожалуйста с кодом...
Есть определенная веб страничка, на которой есть возможность загрузки файла "UPLOAD" ...где нажимаешь на "обзор" - открывается окно моей винды "диалоговое окно" и там я выбираю тот файл, который мне необходимо загрузить
Вот отдельная часть кода...
а вот целый код:
Помогите пожалуйста с кодом...
Есть определенная веб страничка, на которой есть возможность загрузки файла "UPLOAD" ...где нажимаешь на "обзор" - открывается окно моей винды "диалоговое окно" и там я выбираю тот файл, который мне необходимо загрузить
Вот отдельная часть кода...
| Код |
|---|
'Find and mark object(Datei Browse) Do While j < Collection1.Length If Collection1(j).Name = "Datei" Then Collection1(j).Click Collection1(j).Value = "C:\Users\Admin\Dropbox\SWEBGO.de\Excel Files\BA.csv" Exit Do End If |
а вот целый код:
| Код |
|---|
Sub Import()
On Error GoTo MyErrorHandler:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.DisplayStatusBar = True
Application.DisplayAlerts = True
Dim i, j, n, m As Integer
Dim IE, Collection1, Collection2, Collection3 As Object
' Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
' GoTo Product
IE.navigate "https://farm01.afterbuy.de/afterbuy/im-export.aspx?DT=1"
'StatusBar
Application.StatusBar = "Loading. Please wait..."
'Wait while IE loading...
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Application.StatusBar = "Search form submission. Please wait..."
'Set objects
Set Collection1 = IE.Document.getElementsByTagName("input")
Set Collection2 = IE.Document.getElementsByTagName("select")
'Find and mark object(Daten importieren)
j = 0
Do While j < Collection1.Length
If Collection1(j).ID = "artImport" Then
Collection1(j).Click
Exit Do
End If
j = j + 1
Loop
'Find and mark object(Definition)
i = 0
Do While i < Collection2.Length
If Collection2(i).Name = "definition" Then
Collection2(i).Value = "64138"
Exit Do
End If
i = i + 1
Loop
'Find and mark object(Datei Browse)
Do While j < Collection1.Length
If Collection1(j).Name = "Datei" Then
Collection1(j).Click
Collection1(j).Value = "C:\Users\Admin\Dropbox\SWEBGO.de\Excel Files\BA.csv"
Exit Do
End If
j = j + 1
Loop
'Find and mark object(Daten nicht neu anlegen)
Do While j < Collection1.Length
If Collection1(j).Name = "NoAddData" Then
Collection1(j).Click
Exit Do
End If
j = j + 1
Loop
'Find and mark object(Ausführen)
Do While j < Collection1.Length
If Collection1(j).Value = "Ausführen" Then
Collection1(j).Click
Exit Do
End If
j = j + 1
Loop
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Application.DisplayStatusBar = False
Application.DisplayAlerts = False
Exit Sub
MyErrorHandler:
MsgBox "Oh no! Something has gone wrong... Check internet connetion and products variables values"
End Sub |
