• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Çözüldü vba ile farklı excelden veri indirme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Çözüm
aşağıdaki kodu dener misiniz?
Kod:
Sub WebVeriAl()
xBuKitap = ThisWorkbook.Name
SilQuery
    ActiveWorkbook.Queries.Add Name:="Document", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Kaynak = Excel.Workbook(Web.Contents(""http://84.51.59.99/akakce/analiz.xlsm""), null, true)," & Chr(13) & "" & Chr(10) & "    Document_Table = Kaynak{[Item=""Document"",Kind=""Table""]}[Data]," & Chr(13) & "" & Chr(10) & "    #""Değiştirilen Tür"" = Table.TransformColumnTypes(Document_Table,{{""BARCODE"", type text}, {""LİNK"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Değiştirilen Tür"""
    ActiveWorkbook.Queries.Add Name:="Akakce", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Kaynak =...
aşağıdaki kodu dener misiniz?
Kod:
Sub WebVeriAl()
xBuKitap = ThisWorkbook.Name
SilQuery
    ActiveWorkbook.Queries.Add Name:="Document", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Kaynak = Excel.Workbook(Web.Contents(""http://84.51.59.99/akakce/analiz.xlsm""), null, true)," & Chr(13) & "" & Chr(10) & "    Document_Table = Kaynak{[Item=""Document"",Kind=""Table""]}[Data]," & Chr(13) & "" & Chr(10) & "    #""Değiştirilen Tür"" = Table.TransformColumnTypes(Document_Table,{{""BARCODE"", type text}, {""LİNK"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Değiştirilen Tür"""
    ActiveWorkbook.Queries.Add Name:="Akakce", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Kaynak = Excel.Workbook(Web.Contents(""http://84.51.59.99/akakce/analiz.xlsm""), null, true)," & Chr(13) & "" & Chr(10) & "    Akakce_Sheet = Kaynak{[Item=""Akakce"",Kind=""Sheet""]}[Data]," & Chr(13) & "" & Chr(10) & "    #""Tanıtılan Üst Bilgiler"" = Table.PromoteHeaders(Akakce_Sheet, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & "    #""Değiştirilen Tür"" = Table.TransformColumnTypes(#""Tanıtılan Üst Bilgiler"",{{""BARCODE"", t" & _
        "ype text}, {""LİNK"", type text}, {""ÜRÜN ADI"", type any}, {""1.FİYAT"", type any}, {""2.FİYAT"", type any}, {""3.FİYAT"", type any}, {""ORTALAMA"", type any}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Değiştirilen Tür"""
    Workbooks(xBuKitap).Connections.Add2 "Sorgu - Document", _
        "Çalışma kitabındaki 'Document' sorgusuna yönelik bağlantı.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Document;Extended Properties=" _
        , """Document""", 6, True, False
    Workbooks(xBuKitap).Connections.Add2 "Sorgu - Akakce", _
        "Çalışma kitabındaki 'Akakce' sorgusuna yönelik bağlantı.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Akakce;Extended Properties=" _
        , """Akakce""", 6, True, False

OlanSayfa
MsgBox "Bitti"
End Sub
Kod:
Sub SilQuery()
On Error Resume Next
ActiveWorkbook.Queries("Document").Delete
ActiveWorkbook.Queries("Akakce").Delete
End Sub
Kod:
Sub OlanSayfa()
Dim Syf  As Worksheet
Set Syf = ThisWorkbook.Worksheets("Akakce")
Syf.Cells.Clear

    ActiveWorkbook.Connections("Sorgu - Akakce").Refresh
    With Syf.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
        Connections("Sorgu - Akakce"), Destination:=Range("$A$1")).TableObject
        .RowNumbers = False
        .PreserveFormatting = True
        .RefreshStyle = 1
        .AdjustColumnWidth = True
        .ListObject.DisplayName = "Akakce"
        .Refresh
    End With
End Sub
 
Son düzenleme:
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst