使用列中的值替换URL的部分内容

时间:2017-02-04 10:56:05

标签: excel vba excel-vba url replace

我试图下载马的数据表。

宏中唯一的变量是URL的一部分。

我列出了#34; A"列中列出的所有变量(马号)。

我想创建一个新的工作表,其中包含从网站收集的信息,然后使用列#34; A"中的下一行的数字(新变量)再次收集信息。

到目前为止,这是我的代码:

Sub Makro1()
'
' Makro1 Makro
'
Dim nummer As String

nummer = Sheets("Ark1").Range("A1:A10")

'
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://195.198.34.45/trav/hast/visa/" & nummer & "/resultat", Destination:=Range _
        ("$A$1"))
        .CommandType = 0
        .Name = "resultat"
        .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 = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Columns("D:D").Select
    ActiveWindow.SmallScroll Down:=21
    Columns("E:E").Select
    Range("E22").Activate
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:D").Select
    Range("D22").Activate
    Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
        :=False, Comma:=False, Space:=False, Other:=True, OtherChar:="/", _
        FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True
End Sub

User sheet trying to describe problem

1 个答案:

答案 0 :(得分:0)

关于如何处理多个查询的提议,不确定您要对每个结果做什么

b'hello'