Невозможно перемещаться в произвольном порядке по диапазону URL с помощью VBA

Question

У меня есть диапазон ячеек, содержащих URL Я перехожу к ним, используя цикл for, как показано ниже, чтобы получить от них данные Поэтому я хочу добавить немного случайности

With ie

    For j = 2 To 50

    mylink = wks.Cells(j, 2).Value

    .Visible = True
    .Navigate mylink

   'rest of code

   Next
End with

Как я могу выбрать ячейку с URL, перейти к ней и перейти к следующей случайной ячейке, не открывая ее снова? спасибо и с новым годом

Answer 1

Вы можете попробовать что-то вроде следующего.Это сгенерирует случайное число от 2 до 50, проверит, использовалось ли оно ранее (путем сравнения со словарем использованных значений), а затем перейдите.Хотя я не совсем уверен, почему вы хотите это сделать.

Dim UsedNumber As Object
Dim RndNumber As Long, MinNumber as long, MaxNumber as long
Dim j As Long

MinNumber = 2
MaxNumber = 50
Set UsedNumber = CreateObject("Scripting.Dictionary")

With ie
    .Visible = True
    For j = MinNumber To MaxNumber
        Do
            RndNumber = Int((MaxNumber - MinNumber + 1) * Rnd + MinNumber)
        Loop While UsedNumber.exists(RndNumber)
        UsedNumber.Add RndNumber, RndNumber

        Debug.Print RndNumber

        mylink = wks.Cells(RndNumber, 2).Value

        .Navigate mylink
    Next j
End With