- Katılım
- 9 Mart 2017
- Mesajlar
- 54
- Excel Vers. ve Dili
- 2016 Excel Türkçe
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"""
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"""