• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Runtime Error

E

ertukaya

Katılım
14 Mayıs 2014
Mesajlar
1
Excel Vers. ve Dili
office 2010
Merhaba Arkadaşlar ,
Excel'de yaklaşık 60 sutunluk 22 farklı excel tablom var tek dosyada. Bu tablolardaki veri tiplerini değiştirmek istiyorum.Ve her bir tablo için aşağıdaki kodu kullanıyorum fakat "object doesn't support this property or method" "Run-Time Error 438" hatası alıyorum.

Ayrıca 2. Kodda tüm tabloları birleştirmek istiyorum. Fakat o kodda da aynı şekilde "object doesn't support this property or method" "Run-Time Error 438" hatası alıyorum.

Bu 2 koddaki hatayı bana söyleyebilirmisiniz?

Kod: 
ActiveWorkbook.Queries.Add Name:="Table1", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table1""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""Referee"", type text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type n" & _
        "umber}, {""BWH"", type number}, {""BWD"", type number}, ""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""

Kod: 
ActiveWorkbook.Queries.Add Name:="Append1", Formula:= _
"let" & Chr(13) & "" & Chr(10) & "    Source = Table.Combine({Table1, Table2, Table3, Table4, Table5, Table6, Table7, Table8, Table9, Table10, Table11, Table12, Table13, Table14, Table15, Table16, Table17, Table18, Table19, Table20, Table21, Table22})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    Source"

Kodun Tamamı
Kod: 
Sub MergeLeagues()
    Sheets("E0").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BM$1000"), , xlYes).Name _
        = "Table1"
    Range("A1:BM1000").Select
    Sheets("E1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BM$1000"), , xlYes).Name _
        = "Table2"
    Range("A1:BM1000").Select
    Sheets("E2").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BM$1000"), , xlYes).Name _
        = "Table3"
    Range("A1:BM1000").Select
    Sheets("E3").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BM$1000"), , xlYes).Name _
        = "Table4"
    Range("A1:BM1000").Select
    Sheets("EC").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BE$1000"), , xlYes).Name _
        = "Table5"
    Range("A1:BE1000").Select
    Sheets("SC0").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BM$1000"), , xlYes).Name _
        = "Table6"
    Range("A1:BM1000").Select
    Sheets("SC1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table7"
    Range("A1:AZ1000").Select
    Sheets("SC2").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table8"
    Range("A1:AZ1000").Select
    Sheets("SC3").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table9"
    Range("A1:AZ1000").Select
    Sheets("D1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BL$1000"), , xlYes).Name _
        = "Table10"
    Range("A1:BL1000").Select
    Sheets("D2").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table11"
    Range("A1:AZ1000").Select
    Sheets("SP1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BL$1000"), , xlYes).Name _
        = "Table12"
    Range("A1:BL1000").Select
    Sheets("SP2").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table13"
    Range("A1:AZ1000").Select
    Sheets("I1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BL$1000"), , xlYes).Name = _
        "Table14"
    Range("A1:BL100").Select
    Sheets("I2").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table15"
    Range("AN27").Select
    Sheets("F1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BL$1000"), , xlYes).Name _
        = "Table16"
    Range("A1:BL1000").Select
    Sheets("F2").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table17"
    Range("A1:AZ1000").Select
    Sheets("N1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table18"
    Range("A1:AZ1000").Select
    Sheets("B1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table19"
    Range("A1:AZ1000").Select
    Sheets("P1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table20"
    Range("A1:AZ1000").Select
    Sheets("T1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table21"
    Range("A1:AZ1000").Select
    Sheets("G1").Select
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AZ$1000"), , xlYes).Name _
        = "Table22"
    Range("A1:AZ1000").Select
    Sheets("E0").Select
    Range("A1").Select
    ActiveWorkbook.Queries.Add Name:="Table1", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table1""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""Referee"", type text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type n" & _
        "umber}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, " & _
        "{""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""B" & _
        "bAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table1", _
        "Connection to the 'Table1' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table1" _
        , "SELECT * FROM [Table1]", 2
    Sheets("E1").Select
    ActiveWorkbook.Queries.Add Name:="Table2", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table2""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""Referee"", type text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type n" & _
        "umber}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, " & _
        "{""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""B" & _
        "bAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table2", _
        "Connection to the 'Table2' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table2" _
        , "SELECT * FROM [Table2]", 2
    Sheets("E2").Select
    ActiveWorkbook.Queries.Add Name:="Table3", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table3""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""Referee"", type text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type n" & _
        "umber}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, " & _
        "{""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""B" & _
        "bAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table3", _
        "Connection to the 'Table3' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table3" _
        , "SELECT * FROM [Table3]", 2
    Sheets("E3").Select
    ActiveWorkbook.Queries.Add Name:="Table4", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table4""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""Referee"", type text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type n" & _
        "umber}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, " & _
        "{""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""B" & _
        "bAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table4", _
        "Connection to the 'Table4' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table4" _
        , "SELECT * FROM [Table4]", 2
    Sheets("EC").Select
    ActiveWorkbook.Queries.Add Name:="Table5", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table5""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""Referee"", type text}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {" & _
        """LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {" & _
        """BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", typ" & _
        "e number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table5", _
        "Connection to the 'Table5' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table5" _
        , "SELECT * FROM [Table5]", 2
    Sheets("SC0").Select
    ActiveWorkbook.Queries.Add Name:="Table6", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table6""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""Referee"", type text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type n" & _
        "umber}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, " & _
        "{""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""B" & _
        "bAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table6", _
        "Connection to the 'Table6' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table6" _
        , "SELECT * FROM [Table6]", 2
    Sheets("SC1").Select
    ActiveWorkbook.Queries.Add Name:="Table7", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table7""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numbe" & _
        "r}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", " & _
        "type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table7", _
        "Connection to the 'Table7' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table7" _
        , "SELECT * FROM [Table7]", 2
    Sheets("SC2").Select
    ActiveWorkbook.Queries.Add Name:="Table8", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table8""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numbe" & _
        "r}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", " & _
        "type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table8", _
        "Connection to the 'Table8' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table8" _
        , "SELECT * FROM [Table8]", 2
    Sheets("SC3").Select
    ActiveWorkbook.Queries.Add Name:="Table9", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table9""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type t" & _
        "ext}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numbe" & _
        "r}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", " & _
        "type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table9", _
        "Connection to the 'Table9' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table9" _
        , "SELECT * FROM [Table9]", 2
    Sheets("D1").Select
    ActiveWorkbook.Queries.Add Name:="Table10", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table10""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type nu" & _
        "mber}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {" & _
        """VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, " & _
        "{""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table10", _
        "Connection to the 'Table10' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table10" _
        , "SELECT * FROM [Table10]", 2
    Sheets("D2").Select
    ActiveWorkbook.Queries.Add Name:="Table11", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table11""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numb" & _
        "er}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5""," & _
        " type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table11", _
        "Connection to the 'Table11' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table11" _
        , "SELECT * FROM [Table11]", 2
    Sheets("SP1").Select
    ActiveWorkbook.Queries.Add Name:="Table12", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table12""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type nu" & _
        "mber}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {" & _
        """VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, " & _
        "{""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table12", _
        "Connection to the 'Table12' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table12" _
        , "SELECT * FROM [Table12]", 2
    Sheets("SP2").Select
    ActiveWorkbook.Queries.Add Name:="Table13", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table13""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numb" & _
        "er}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5""," & _
        " type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table13", _
        "Connection to the 'Table13' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table13" _
        , "SELECT * FROM [Table13]", 2
    Sheets("I1").Select
    ActiveWorkbook.Queries.Add Name:="Table14", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table14""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type nu" & _
        "mber}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {" & _
        """VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, " & _
        "{""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table14", _
        "Connection to the 'Table14' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table14" _
        , "SELECT * FROM [Table14]", 2
    Sheets("I2").Select
    Range("A1").Select
    ActiveWorkbook.Queries.Add Name:="Table15", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table15""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numb" & _
        "er}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5""," & _
        " type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table15", _
        "Connection to the 'Table15' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table15" _
        , "SELECT * FROM [Table15]", 2
    Sheets("F1").Select
    ActiveWorkbook.Queries.Add Name:="Table16", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table16""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""HS"", Int64.Type}, {""AS"", Int64.Type}, {""HST"", Int64.Type}, {""AST"", Int64.Type}, {""HF"", Int64.Type}, {""AF"", Int64.Type}, {""HC"", Int64.Type}, {""AC"", Int64.Type}, {""HY"", Int64.Type}, {""AY"", Int64.Type}, {""HR"", Int64.Type}, {""AR"", Int64.Type}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type nu" & _
        "mber}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type number}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {" & _
        """VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5"", type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, " & _
        "{""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table16", _
        "Connection to the 'Table16' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table16" _
        , "SELECT * FROM [Table16]", 2
    Sheets("F2").Select
    ActiveWorkbook.Queries.Add Name:="Table17", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table17""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numb" & _
        "er}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5""," & _
        " type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table17", _
        "Connection to the 'Table17' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table17" _
        , "SELECT * FROM [Table17]", 2
    Sheets("N1").Select
    ActiveWorkbook.Queries.Add Name:="Table18", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table18""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numb" & _
        "er}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5""," & _
        " type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table18", _
        "Connection to the 'Table18' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table18" _
        , "SELECT * FROM [Table18]", 2
    Sheets("B1").Select
    ActiveWorkbook.Queries.Add Name:="Table19", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table19""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numb" & _
        "er}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5""," & _
        " type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table19", _
        "Connection to the 'Table19' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table19" _
        , "SELECT * FROM [Table19]", 2
    Sheets("P1").Select
    ActiveWorkbook.Queries.Add Name:="Table20", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table20""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numb" & _
        "er}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5""," & _
        " type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table20", _
        "Connection to the 'Table20' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table20" _
        , "SELECT * FROM [Table20]", 2
    Sheets("T1").Select
    ActiveWorkbook.Queries.Add Name:="Table21", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table21""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numb" & _
        "er}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5""," & _
        " type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table21", _
        "Connection to the 'Table21' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table21" _
        , "SELECT * FROM [Table21]", 2
    Sheets("G1").Select
    ActiveWorkbook.Queries.Add Name:="Table22", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.CurrentWorkbook(){[Name=""Table22""]}[Content]," & Chr(13) & "" & Chr(10) & "    #""Changed Type"" = Table.TransformColumnTypes(Source,{{""Div"", type text}, {""Date"", type datetime}, {""HomeTeam"", type text}, {""AwayTeam"", type text}, {""FTHG"", Int64.Type}, {""FTAG"", Int64.Type}, {""FTR"", type text}, {""HTHG"", Int64.Type}, {""HTAG"", Int64.Type}, {""HTR"", type " & _
        "text}, {""B365H"", type number}, {""B365D"", type number}, {""B365A"", type number}, {""BWH"", type number}, {""BWD"", type number}, {""BWA"", type number}, {""IWH"", type number}, {""IWD"", type number}, {""IWA"", type number}, {""LBH"", type number}, {""LBD"", type number}, {""LBA"", type number}, {""PSH"", type number}, {""PSD"", type number}, {""PSA"", type numb" & _
        "er}, {""WHH"", type number}, {""WHD"", type number}, {""WHA"", type number}, {""VCH"", type number}, {""VCD"", type number}, {""VCA"", type number}, {""Bb1X2"", Int64.Type}, {""BbMxH"", type number}, {""BbAvH"", type number}, {""BbMxD"", type number}, {""BbAvD"", type number}, {""BbMxA"", type number}, {""BbAvA"", type number}, {""BbOU"", Int64.Type}, {""BbMx>2.5""," & _
        " type number}, {""BbAv>2.5"", type number}, {""BbMx<2.5"", type number}, {""BbAv<2.5"", type number}, {""BbAH"", Int64.Type}, {""BbAHh"", type number}, {""BbMxAHH"", type number}, {""BbAvAHH"", type number}, {""BbMxAHA"", type number}, {""BbAvAHA"", type number}, {""PSCH"", type number}, {""PSCD"", type number}, {""PSCA"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Changed Type"""
    Workbooks("all-euro-data-2016-2017.xls").Connections.Add2 "Query - Table22", _
        "Connection to the 'Table22' query in the workbook.", _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Table22" _
        , "SELECT * FROM [Table22]", 2
    ActiveWorkbook.Queries.Add Name:="Append1", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Table.Combine({Table1, Table2, Table3, Table4, Table5, Table6, Table7, Table8, Table9, Table10, Table11, Table12, Table13, Table14, Table15, Table16, Table17, Table18, Table19, Table20, Table21, Table22})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    Source"
    Sheets.Add After:=ActiveSheet
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Append1" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Append1]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Append1"
        .Refresh BackgroundQuery:=False
    End With
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    Columns("B:B").Select
    Selection.NumberFormat = "m/d/yyyy"
    ActiveSheet.ListObjects("Append1").Range.AutoFilter Field:=1, Criteria1:= _
        "="
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Delete
    Range("A1").Select
    ActiveSheet.ShowAllData
    ActiveWindow.DisplayGridlines = False
    Range("A1").Select
    
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst