power query string türkçe metinler hk.

[tamer42]

Merhabalar,
Ekli dosyada otomatik power query ile bağlantı oluşturmak için;
"makro kaydet" yardımıyla ile aşağıdaki kodu oluşturdum.
yalnız kod içerisinde Türkçe metinler mevcut ( "Kaynak", "Tanıtılan Üst Bilgiler", "Değiştirilen Tür", vb.)
bu metinlerin ingilizce bir makinede problem olacağını düşünüyorum, nasıl bir çözüm yolu önerebilirsiniz?

Teşekkürler,
iyi Akşamlar.

Sub Makro4()
Dim wb As Workbook
Dim myPath As String
Dim myFile As String, Str As String

Set wb = ThisWorkbook
myPath = wb.Path

myFile = myPath & "\tbl_SubMenu.xlsx"

Str = Chr(13) & "" & Chr(10)

    Range("K2").Select
    wb.Queries.Add Name:="tbl_SubMenu", Formula:= _
        "let" & Str & _
        "    Kaynak = Excel.Workbook(File.Contents(""" & myFile & """), null, true)," & Str & _
        "    tbl_SubMenu_Sheet = Kaynak{[Item=""tbl_SubMenu"",Kind=""Sheet""]}[Data]," & Str & _
        "    #""Tanıtılan Üst Bilgiler"" = Table.PromoteHeaders(tbl_SubMenu_Sheet, [PromoteAllScalars=true])," & _
        Str & "    #""Değiştirilen Tür"" = Table.TransformColumnTypes(#""Tanıtılan Üst Bilgiler""," & _
       "{{""SubMenuName"", type text}, {""ID"", Int64.Type}, {""NavMenuID"", Int64.Type}, {""UserRole"", type text}})" & _
        Str & "in" & Str & "    #""Değiştirilen Tür"""

 End Sub

 

[Korhan Ayhan]

Deneyiniz.

Kaynak = Source
Tanıtılan Üst Bilgiler = Promoted Headers
Değiştirilen Tür = Changed Type

 

[tamer42]

Deneyiniz.

Kaynak = Source
Tanıtılan Üst Bilgiler = Promoted Headers
Değiştirilen Tür = Changed Type

Korhan hocam değişiklikleri yaptım, Ekteki hata mesajını alıyorum..
örnek dosyalar ektedir.
iyi günler, iyi çalışmalar.

 

[Korhan Ayhan]

Peki eski haliyle hata veriyor muydu?

 

[Haluk]

1.resimdeki "Kaynak" ifadesini değiştirmeyi unutmuşunuz gibi görünüyor...


Gerçi bunların hepsi değişken adları gibi görünüyor. "Let" ifadesiyle atama yapılmış. Dolayısıyle hiçbir Türkçe-İngilizce değişiklik yapmaya gerek yok bence....


.

 

[tamer42]

Peki eski haliyle hata veriyor muydu?

"    tbl_SubMenu_Sheet = Source{[Item=""tbl_SubMenu"",Kind=""Sheet""]}[Data]," & Str & _

bu satırda "Kaynak" ifadesini değiştirmeyi unutmuşum, çok özür dilerim Korhan Hocam