вставка скребковых данных из Интернета в новый рабочий лист и имя рабочего листа на основе значений в столбце

Я новичок в VBA, хотел экспортировать таблицы из HTML, и я был успешным в этом.

Мой код создаст новый лист для вставки таблиц из каждого URL-адреса. В настоящее время новый рабочий лист указан в последовательности 1,2,3 … Я хочу помочь переписать эту часть кода.

У меня два столбца и несколько строк, 1-й столбец – для URL-адреса, откуда необходимо скопировать данные, а второй столбец содержит имя листа.

Пример:

Столбец 1: URL; http://www.cricbuzz.com/cricket-series/2489/england-tour-of-india-2016-17/matches

Столбец 2: Eng-India

Когда данные копируются из столбца 1, я хотел бы, чтобы этот код называет новый лист на основе значений в столбце 2

В настоящее время я использую приведенный ниже код:

Sub adds() For x = 1 To 2 Worksheets("MATCH").Select Worksheets("MATCH").Activate mystr = "URL;http://www.cricbuzz.com/cricket-series/2489/england-tour-of-india-2016-17/matches" mystr = Cells(x, 1) Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = x With ActiveSheet.QueryTables.Add(Connection:=mystr, Destination:=Range("$A$1")) 'CommandType = 0 .Name = "01000_1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "1,2,3,4,5,6,7,8,9,10" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Next x End Sub 

Давайте будем гением компьютера.