уже замучился ,с этим сайтом, никто не может помочь. нашёл решение но как реализовать не знаю.
есть список который ,по очереди, по одному (при нажатие кнопки) должен копироваться нужную ячейку а потом скачиваться файл. и после снова при нажатии кнопки копируется следующий номер из списка, вставляется ,загружается, и так далее
так работает но пробегает на сайте и получается открыть только последний номер из списка
нашел на сайте такое на не могу(не соображаю)как применит к моему
есть список который ,по очереди, по одному (при нажатие кнопки) должен копироваться нужную ячейку а потом скачиваться файл. и после снова при нажатии кнопки копируется следующий номер из списка, вставляется ,загружается, и так далее
так работает но пробегает на сайте и получается открыть только последний номер из списка
| Код |
|---|
Sub Test() 'zapusk_interneta
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate "https://eu.yl-griffin.com/tesco/"
Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
IE.Document.getelementbyid("txtUserName").Value = "???"
IE.Document.getelementbyid("txtPassword").Value = "????"
IE.Document.getelementbyid("btnLogin").Click
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IE.Navigate "https://eu.yl-griffin.com/tesco/content/n_rpt_containermanifest.aspx"
Do While IE.Busy Or (IE.readyState <> 4): DoEvents: Loop
IE.Document.getelementbyid("ctl00_PageContent_cbx_ignoredate").Click
Sheets("Ëèñò1").Activate
Application.ScreenUpdating = False
'
' For Each C In Sheets("DATA").Range("D1:D15").Cells 'vmesto etogo
' If C.Value <> "" Then
IE.Document.getelementbyid("ctl00_PageContent_Container1_txtcn").Value = Format(C.Value, "")
IE.Document.getelementbyid("ctl00_PageContent_btnSearch").Click
End If
End Sub
|
| Код |
|---|
'Sub NextValue()
'Dim i, j, s As String, C As Range
' Set C = Range("A2:D2").Cells(1, 1)
' s = C.Value
' j = 1
' With Sheets("Ëèñò2")
' Do While .Cells(j, 2) <> ""
' If s = .Cells(j, 2) Then
' If .Cells(j + 1, 2) <> "" Then
' s = .Cells(j + 1, 2)
' Else
' s = .Cells(1, 2)
' End If
' C = s
' Exit Do
' End If
' j = j + 1
' Loop
' End With
'End Sub |
