使用VBA将网页导入Excel电子表格
我希望能够从一个网站下载信息到一个Excel电子表格，这是这种格式 – 而不是实际的网站 。
我可以用一个macros来进行networking查询，这个macros可以在上面的特定date和公司中使用。 不过，我希望能够通过input语句下载url中的任何date。 我想macros提示用户input年，月，日和特定公司，以下载相关数据。
我不知道如何写任何date和公司的代码到上面的网站地址，因为我的尝试不工作！
希望这会有所帮助。 它是从一个赛马表格网站，需要一个date！
这是我的代码尝试把date，但它有错误！
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 我知道这两行将在特定的date工作，但我需要为用户input的date进行调整！
"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"
手动创buildWeb查询，然后根据用户input更改Connection属性。 我从http://tatts.com/racing/2012/7/31/QR创build了一个networking查询，并把它放在A10中。 然后我把年，月，日放在B1：B3。 此代码根据B1：B3中的内容更新networking查询
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构build一个string，更新Connection属性并刷新。