Koddaki Karakter sorunu vba Power Ouery

[ufukufuk01]

Merhabalar

Aşağıdaki kodda kalın olarak belirttiğim yerde hata (invalid carakter) vermektedir. Yapmak istedğim makroda çekmiş olduğum yerde .(nokta) yerine ,(virgül )gelmesi idi. Değişiklik Fark% kolonunda olacak idi fakat aşağıdaki kısımda fark hata almaktayım.Konu hakkında yardımcı olabilir misiniz.

Tşk.ler


ActiveWorkbook.Queries.Add Name:=HisseAz, Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Kaynak = Web.Page(Web.Contents(""https://finans.mynet.com/borsa/""))," & Chr(13) & "" & Chr(10) & " Data1 = Kaynak{1}[Data]," & Chr(13) & "" & Chr(10) & " #""Değiştirilen Değer"" = Table.ReplaceValue(#""Data1"",""."","","",Replacer.ReplaceTex",{""Fark%""}), " & Chr(13) & "" & Chr(10) & " #""Değiştirilen Tür"" = Table.TransformColumnTypes(Data,{{""Hisse"", type text}, {"Fiyat", "", type number}, {""Fark%"", Int64.Type}, {""Saat" & _
""", type time}})," & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "#""Değiştirilen Tür"""

 

[ufukufuk01]

Power Quary kodu aşağıdaki gibidir. Bu kodu yukarıdaki gibi yazdım (Replacer.ReplaceTex" t harfini unutmuşum ama sorun bu değil t harfini etlediğin zamanda süslü parantez için (invalid carakter) vermektedir. ) Aşağıdaki kodu yukarıdaki gibi nasıl yazabilirim Acaba nerede yanlış veya eksik yaptım.

let
Kaynak = Web.Page(Web.Contents("https://finans.mynet.com/borsa/")),
Data1 = Kaynak{1}[Data],
#"Değiştirilen Değer" = Table.ReplaceValue(Data1,".",",",Replacer.ReplaceText,{"Fark%"}),
#"Değiştirilen Tür" = Table.TransformColumnTypes(#"Değiştirilen Değer",{{"Hisse", type text}, {"Fiyat", type number}, {"Fark%", Int64.Type}, {"Saat", type time}})
in
#"Değiştirilen Tür"

 

[Korhan Ayhan]

Merhaba,

Kod çalışıp sonucu döndürdükten sonra noktaları virgüle dönüştürme gibi bir işlem olabiliyor mu? Olabiliyorsa eğer belki bu yönde çözüm üretebilirsiniz.

 

[ufukufuk01]

İlginize tşk. ederim.
Çözdüm

Belki kullanmak isteyen olur ise doğru şeklini aşağıya bıraktım

"let" & Chr(13) & "" & Chr(10) & " Kaynak = Web.Page(Web.Contents(""https://uzmanpara.milliyet.com.tr/doviz-kurlari""))," & Chr(13) & "" & Chr(10) & " Data = Kaynak{0}[Data]," & Chr(13) & "" & Chr(10) & " #""Değiştirilen Tür"" = Table.TransformColumnTypes(Data,{{""Döviz Cinsi"", type text}, {""Alış"", type number}, {""Satış"", type number}, {""%"", Percentage.Type}, {""Saat" & _
""", type time}})," & Chr(13) & "" & Chr(10) & " #""Kaldırılan Sütunlar"" = Table.RemoveColumns(#""Değiştirilen Tür"",{""""})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Kaldırılan Sütunlar"""