ActiveWorkbook.Queries.Add error

[brkkrkmz112]

Hello everyone,

While getting data from web , I am getting an error on the "ActiveWorkbook.Queries.Add Name:" line . The error is number 438 does not support object etc. Could anyone one help me on this.

Thanks in advance.

Sub KapanisVeriCek()
    Dim tname As String
    tarih = Format(Date, "ddmmyyyy")
    zaman = Format(Time, "hhmmss")
    ActiveWorkbook.RefreshAll
    'On Error GoTo 10
    Sheets("Hisseler").Select
    Cells.Select
    'Selection.ClearContents
    Range("A1").Select
    tname = "Tablo" & tarih & zaman
    
    
    
        ActiveWorkbook.Queries.Add Name:=tname, Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Web.Page(Web.Contents(""https://www.isyatirim.com.tr/tr-tr/analiz/hisse/Sayfalar/Temel-Degerler-Ve-Oranlar.aspx#page-1""))," & Chr(13) & "" & Chr(10) & "    Data2 = Kaynak{2}[Data]," & Chr(13) & "" & Chr(10) & "    #""Değiştirilen Tür"" = Table.TransformColumnTypes(Data2,{{""Kod"", type text}, {""Hisse Adı"", type text}, {""Sektör"", type text}, {""Kapanış (TL)"", type number}, {""Piyasa Değeri (mn TL)" & _
        """, type number}, {""Piyasa Değeri (mn $)"", type number}, {""Halka Açıklık Oranı (%)"", type number}, {""Sermaye (mn TL)"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Değiştirilen Tür"""
    
    
    
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & tname & ";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [" & tname & "]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells 'xlOverwriteCells   'xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = tname
        .Refresh BackgroundQuery:=False
    End With
    ActiveSheet.ListObjects(tname).TableStyle = "TableStyleMedium6"
    'Range("& tname &[[#Headers],[Kod]]").Select
    Application.CommandBars("Queries and Connections").Visible = False
    Call portfoy
    Range("O1").Value = Format(Date, "dd.mm.yyyy")
    Exit Sub
10 MsgBox " Muhtemel olmayan bir hata ile karşılaşıldı. Programdan çıkılacaktır...", vbCritical, " Kritik bilgi "
ActiveWorkbook.Close savechanges:=False
End Sub

 

[GWteB]

Replace ActiveWorkbook.Queries.Add by
ActiveSheet.Queries.Add