1

マクロを記録して編集しました。Web ページ (リンク上にある) から特定のデータをスクレイピングし、それらを別のページに表示します。

データ (VLOOKUP) を使用したいのですが、データが別のページにあるため、正確な数式を取得するのが難しくなっています。

毎週、コードの 2 行目を変更します

For x = 1 To 20

For x = 21 to ....

たとえば、新しいリンク/データが毎週出てくるためです。

その下に次のデータロットを追加するための最後の行を見つけるにはどうすればよいですか?

Sub Update()
    For x = 1 To 20
        Worksheets("Links").Select
        Worksheets("Links").Activate
        mystr = Cells(x, 8)
        mystr2 = Cells(x, 15)
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = x
        With ActiveSheet.QueryTables.Add(Connection:=mystr, Destination:=Range("$K$1"))
            .Name = "report2_1"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlAllTables
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
    
        Range("A1").Select
        With ActiveSheet.QueryTables.Add(Connection:=mystr2, Destination:=Range("$A$1"))
            .Name = "report6_1"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlAllTables
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
        End With
    Next x
End Sub
4

1 に答える 1