Dış Veri Almada Ondalık Sorunu

[nikomedian]

Merhaba, excel 2007 nin dış veri al sistemini kullanıyorum ama ondalık simgesi windowsta "," olarak tanımlandığından sorun oluyor. Denetim masasından bu işi halledebilirim, peki excel bunu halletme imkanım var mı? Daha önceki kodlamalara baktığımda aşağıdaki gibi bir kod gördüm, bu veya bunun gibi birşey kullanılabilir mi?

With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = False
End With

 

[Orion1]

Ben denedim.Oluyor.
Aslında sizde deneyebilirdiniz.

 

[nikomedian]

Evren Bey, bende denedim ama malesef sorunumu çözmedi. Dosyayı ektedir.
Ekleme: Veri sekmesi internetten verilerin indiği kısım , para dosyasıda veri dosyasındaki verilere bağlı olarak işlem yapıyor.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub VeriAl()
Cells.Delete
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.ereptools.net/currencies/local", Destination:=Range("$A$1"))
        .Name = "local"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    
    Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[nikomedian]

Option Explicit

Private Sub Kur_Change()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = False
End With

End Sub

bu şekilde sayfa kodlamasına yazınca çalıştı.

Necdet Bey; sizin verdiğiniz kod ilede çalıştı ilginiz için çok teşekkür ederim.