циклически перебирайте столбец ячеек, проверяя регистрацию автомобиля на веб-сайте, затем переходите к следующему после дат, указанных в следующем столбце. - PullRequest
Новая
       20

циклически перебирайте столбец ячеек, проверяя регистрацию автомобиля на веб-сайте, затем переходите к следующему после дат, указанных в следующем столбце.

0 голосов
/ 28 марта 2019

Мне нужна помощь, не мысленно, ха-ха, это другая проблема, эту проблему я потратил десятки часов и буквально не могу найти, какой тип цикла или следующий поможет мне перебрать мой код, я провел много исследованийна циклах до, которые просто продолжают бесконечно повторять первую регистрацию автомобиля, или следующие циклы, которые будут работать вниз по столбцу регистрации автомобиля, но фактически не будут использовать следующую регистрацию автомобиля.То, что я хочу, чтобы мой лист, это сделать регистрацию автомобиля и проверить его налог и дату, а затем взять эту дату и налоговую дату или отсутствие даты и поместить его в столбец рядом с регистрацией автомобиля, как только это будет сделано для того, чтобы сделатьто же самое со следующей машиной reg (которая в настоящее время находится в столбце x).также, если есть ошибка или нет даты, чтобы просто не указывать дату в ячейке рядом с автомобильной регистрацией и по-прежнему переходить к следующей автомобильной программе для выполнения той же проверки, пока ячейка в столбце x не станет пустой / пустой.Мне помогли некоторые люди здесь, и я уже получил некоторый рабочий код для других битов, я хочу сохранить этот код настолько, насколько это возможно, я новичок во всем этом, поэтому мне нужно сохранять последовательность для себя, пока яучитесь, делайте это уже 3 недели, так что недолго и что-то новое выбьет меня из колеи и усложнит мне задачу.

, чтобы помочь первой машине, рег будет в столбце x, ряд 3, а следующая машинарег после будет в столбце х строки 4 и так далее.Даты для соответствующего автомобиля, который я помещаю в столбце рядом с автомобилем, к которому он относится.

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

Sub TAXandMOTcheck()

'dimension (declare or set aside memory for) our variables
    Dim objIE As InternetExplorer 'special object variable representing the IE browser

'''''''''''''''''''''''''''''''''''''''''''

Dim valueofInterest As Integer

Range("x3").Select

 Do Until ActiveCell.Empty

End If
ActiveCell.Offset(1, 0).Select



'''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''
' START OF THE CODE THAT WORKS, PLEASE DONT CHANGE IT IF POSSIBLE '''''''''''''''''''''''''''''''''''''''''''

'OPEN INTERNET

'initiating a new instance of Internet Explorer and asigning it to objIE
    Set objIE = New InternetExplorer

'wait # seconds
    Application.Wait Now + TimeValue("00:00:05")

'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop

'''''''''''''''''''''''''''''''''''''''''''

'OPEN TAX/ MOT PAGE

'navigate IE to this web page (a pretty neat search engine really)
    objIE.Navigate "https://vehicleenquiry.service.gov.uk/"

'make IE browser visible (False would allow IE to run in the background)
    objIE.Visible = True

'wait # seconds
    Application.Wait Now + TimeValue("00:00:05")

'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop

'''''''''''''''''''''''''''''''''''''''''''

'ENTER DETAILS IN TO PAGE

'in the search box put cell "x3" value
    objIE.Document.getElementById("Vrm").Value = _
    Sheets("INPUT DATA").Range("x3").Value

'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop

'wait # seconds
    Application.Wait Now + TimeValue("00:00:03")

'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop

'''''''''''''''''''''''''''''''''''''''''''''''''''''

'click the 'Continue' button
    objIE.Document.getElementsByClassName("button")(0).Click

'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop

'wait # seconds
    Application.Wait Now + TimeValue("00:00:03")

'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop

'''''''''''''''''''''''''''''''''''''''''''''''''''''

'click the 'Yes' button
    objIE.Document.getElementById("Correct_True").Click

'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop

'''''''''''''''''''''''''''''''''''''''''''''''''''''

'click the 'Continue' button
    objIE.Document.getElementsByClassName("button")(0).Click

'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop

'wait # seconds
    Application.Wait Now + TimeValue("00:00:03")

'wait here a few seconds while the browser is busy
    Do While objIE.Busy = True Or objIE.ReadyState <> 4: DoEvents: Loop

'''''''''''''''''''''''''''''''''''''''''''''''''''''

'TAX EXPIRY DATE:

'get data inside element
    TaxExpiryDate = objIE.Document.getElementsByClassName("status-bar")(0).getElementsByTagName("strong")(0).innerText

'split the date from the words
    TaxExpiryDate = Split(TaxExpiryDate, vbNewLine)(1)

'add tax date to sheet
    Range("y3").Value = TaxExpiryDate

'''''''''''''''''''''''''''''''''''''''''''''''''''''

'MOT EXPIRY DATE:

'get data inside element
    MotExpiryDate = objIE.Document.getElementsByClassName("status-bar")(0).getElementsByTagName("strong")(1).innerText

'split the date from the words
    MotExpiryDate = Split(MotExpiryDate, vbNewLine)(1)

'add mot date to sheet
    Range("z3").Value = MotExpiryDate

'''''''''''''''''''''''''''''''''''''''''''

'close the browser
    objIE.Quit

'''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''
' END OF THE ABOVE CODE THAT WORKS, PLEASE DONT CHANGE THIS IF POSSIBLE '''''''''''''''''''''''''''''''''''''''''''




Loop


'''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''
' THE BELOW CODE WORKS PLEASE DONT CHANGE IT IF POSSIBLE '''''''''''''''''''''''''''''''''''''''''''

'message boxes if true or false

    If found = True Then
    MsgBox "Value found in cell" & ActiveCell.Address
    Else
    MsgBox "Be Happy and Smile, its the end of the search. Just keep swimming, just keep swimming..."
    End If

'''''''''''''''''''''''''''''''''''''''''''

'exit our SearchBot subroutine and start new row for new website data
    End Sub
...