Импорт веб-страницы в электронную таблицу Excel с использованием VBA

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

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

Я не знаю, как написать код для ЛЮБОЙ даты и компании на адрес веб-сайта выше, поскольку мои попытки не работают!


Надеюсь, это поможет. Он был взят с веб-сайта формы скачки, который требует даты!

Это была моя попытка кода поставить дату, но у нее есть ошибки!

RaceDate = InputBox("Please enter today's date (YYYY/MM/DD)", "Enter Date") Meeting = InputBox("Enter Location of Race", "Enter Meeting") Race = InputBox("Enter Race Number", "Enter Race") Range("A13").Select With ActiveSheet.QueryTables.Add(Connection:= "URL;http://tatts.com/racing/formguide.aspx? RaceDate & Meeting & Race" , Destination:=Range("$A$13")) .Name = "formguide.aspx? RaceDate & Meeting & Race" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With 

Я знаю, что эти две строки будут работать на определенную дату, но мне нужно настроить для введенной пользователем даты!

 "URL;http://tatts.com/racing/formguide.aspx?year=2012&month=1&day=20&meeting=QR&race=5" _ , Destination:=Range("$A$13")) .Name = "formguide.aspx?year=2012&month=1&day=20&meeting=QR&race=5" 

Создайте веб-запрос вручную, затем измените свойство Connection на основе ввода пользователя. Я создал веб-запрос из http://tatts.com/racing/2012/7/31/QR и поместил его в A10. Затем я ввел год, месяц и день в B1: B3. Этот код обновляет веб-запрос на основе того, что находится в B1: B3

 Sub UpdateQuery() Dim sURL As String With Sheet1 sURL = "URL;http://tatts.com/racing/" & .Range("B1").Value & "/" & .Range("b2").Value & "/" & .Range("b3").Value & "/QR" .QueryTables(1).Connection = sURL .QueryTables(1).Refresh End With End Sub 

Он просто строит строку для URL-адреса, который я хочу, обновляет свойство Connection и обновляется.

  • Использовать запись в текстовом поле в предложении
  • Цифровой выход формата формы VBA
  • В любом случае, чтобы сохранить форму Excel перед другими окнами или создать значок на панели задач?
  • vba показывает индикатор выполнения, пока выполняется макрос?
  • Как вы не можете перемещать / редактировать командную кнопку Excel / ActiveX, но разрешать ее щелкнуть
  • VBA - UserForm отказывается выгружать
  • Ребенок-узлы в дереве дерева excel имеют тот же уровень, что и родительский
  • VBA выбирает фигуры на основе их положений
  • Управление изображениями MS-Excel в столбце
  • Скрытие фигур в зависимости от значения ячейки
  • VBA 6.5 - Ошибка «Плохое имя файла или номер» в Form.Show - Ошибка во время выполнения 52
  • Давайте будем гением компьютера.