http://www.excel.web.tr/f48/web-sayfasyndan-900-sayfalyk-veriye-cekmek-t121692.html

Option Explicit

Sub VERİ_AL()
    Dim SAYFA As Worksheet, X As Long, URL_LİNK As String
 Dim sat
    Application.ScreenUpdating = False
 
    For Each SAYFA In Worksheets
        If SAYFA.Name <> "Sayfa1" Then
        Application.DisplayAlerts = False
        SAYFA.Delete
        Application.DisplayAlerts = True
        End If
    Next





    For X = 1 To 5
  URL_LİNK = "http://www.otoerdem.com/tamliste/ren...liste.php?page=" & X & "&param1=valu1&param2=value2"
    
    sat = Sheets("Sayfa1").Range("A65536").End(3).Row + 1

    'URL_LİNK = Sheets("Sayfa1").Cells(X, 1)
 
    ActiveWorkbook.Worksheets.Add , After:=Sheets(Worksheets.Count)
 
    ActiveSheet.Name = "ANALİZ_" & X
 
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & URL_LİNK, Destination:=Range("A" & sat))      'Set S2 = Sheets("KURLAR") Destination:=S2.[A1])
        .Name = "ANALİZ_" & X
        .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

    Next

    Sheets("Sayfa1").Select

    Application.ScreenUpdating = True
    'MsgBox "İşleminiz tamamlanmıştır.", vbInformation
Range("A1").Select
End Sub

http://www.excel.web.tr/archive/index.php/f-48-p-10.html

Sub ASKM_excel_web_tr()
    Dim ie As Object, i%, a%
    Dim Yazi As String
    Dim sat
    Set ie = CreateObject("internetexplorer.application")
    With ie
    Cells.ClearContents
    Sheets("Sayfa2").Range("A1").Value = " KONULAR "
    For i = 1 To 192
    adres = "http://www.excel.web.tr/archive/index.php/f-48-p-" & i & ".html"
    .navigate adres
    .Visible = True
    On Error GoTo Hata
    Do Until .readyState = 4: DoEvents: Loop
    Do While .Busy: DoEvents: Loop
    For y = 0 To 249
    sat = Sheets("Sayfa2").Range("A65536").End(3).Row + 1
       Yazi = .document.getElementById("content").getElementsByTagName("a")(y).innerText
       Sheets("Sayfa2").Range("A" & sat).Value = StrConv(Yazi, vbProperCase)
      
       ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Sayfa2").Range("A" & sat), Address:= _
        adres, TextToDisplay:=StrConv(Yazi, vbProperCase)
    Next y
    Next i
Hata:
    .Quit
    End With
    Set ie = Nothing: i = Empty: a = Empty
    MsgBox "İşlem tamamlandı...", vbInformation, "ASKM"
End Sub

Sub ASKM_excel_web_tr()
    Dim ie As Object, i%, a%
    Dim Yazi As String
    Dim sat
    Dim link
    Set ie = CreateObject("internetexplorer.application")
    With ie
    Cells.ClearContents
    Sheets("Sayfa2").Range("A1").Value = " KONULAR "
    For i = 1 To 192
    adres = "http://www.excel.web.tr/archive/index.php/f-48-p-" & i & ".html"
    .navigate adres
    .Visible = True
    On Error Resume Next
    Do Until .readyState = 4: DoEvents: Loop
    Do While .Busy: DoEvents: Loop
    For y = 0 To 249
    sat = Sheets("Sayfa2").Range("A65536").End(3).Row + 1
       
       link = .document.getElementById("content").getElementsByTagName("a")(y).href
       Yazi = .document.getElementById("content").getElementsByTagName("a")(y).innerText
       Sheets("Sayfa2").Range("A" & sat).Value = StrConv(Yazi, vbProperCase)
      
       ActiveSheet.Hyperlinks.Add Anchor:=Sheets("Sayfa2").Range("A" & sat), Address:= _
       link, TextToDisplay:=StrConv(Yazi, vbProperCase)
    Next y
    Next i
Hata:
    .Quit
    End With
    Set ie = Nothing: i = Empty: a = Empty
    MsgBox "İşlem tamamlandı...", vbInformation, "ASKM"
End Sub