Forms 使用VBA将网页导入Excel电子表格

我希望能够将信息从网站下载到Excel电子表格，该电子表格位于

我可以使用宏进行web查询，该宏适用于上述特定日期和公司。但是，我希望能够通过输入语句下载网址中的任何日期。我希望宏提示用户输入年、月、日和特定公司，以便下载相关数据

我不知道如何将任何日期和公司的代码写入上述网址，因为我的尝试无效

---

希望这会有所帮助。这是从一个赛马形式的网站，需要一个日期

这是我试图在代码中设置日期，但它有错误

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"

---

手动创建web查询，然后根据用户输入更改连接属性。我从中创建了一个web查询，并将其放入A10中。然后我把年、月和日放在B1:B3中。此代码根据B1:B3中的内容更新web查询

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生成一个字符串，更新连接属性并刷新。

我发现你的帖子很难理解。你能告诉我们一些代码尝试和可能的工作链接吗？这是非常可行的，但如果你给我们实际的网站会容易得多