e-tablo gelen veride karakter gelmeme sorunu

[sevensuleyman]

merhaba ; google e-tablodan veri çektiğim bir excell kod var kullanılan. buradan veri çektiğimde nokta karakteri "." gelmemektedir. buraya verrilerin eksiksiz gelmesi için nasıl bir düzenleme yapılması gerekir. yardımcı olursanız sevinirim şimdiden teşekkürler

Private Sub CommandButton1_Click()


    Dim HTTP As Object, HTML As Object
    Dim URL As String
    Dim noRows As Integer, noColumns As Integer
    Dim i As Integer, J As Integer
    Dim Table As Object, Tables As Object, myTable As Object, Temp As Variant
  
    Range("A1:H" & Rows.Count) = Empty
  
  
    URL = "https://docs.google.com/spreadsheets/d/e/2PACX-1vSMJbCg9398mKQwjmx-oP1ugdDluyy1TzGPkjrYyQUOOSKgweCfE00twYBjEDG3lPcZAbbXy7rPRPM4/pubhtml?gid=0&single=true"
 
 
  
    Set HTTP = CreateObject("MSXML2.ServerXMLHTTP")
    Set HTML = CreateObject("HTMLFILE")
  
    HTTP.Open "GET", URL, False
    HTTP.send
  
    If HTTP.Status = 200 Then
        HTML.body.innerhtml = HTTP.responseText
      
        Set Tables = HTML.getElementsByTagName("tbody")
        
        If Tables.Length > 0 Then
            Set myTable = Tables(0)
          
            noRows = myTable.Rows.Length
            noColumns = myTable.Rows(0).Cells.Length
          
            For i = 1 To noRows
                For J = 1 To noColumns
                    Temp = Replace(myTable.Rows(i - (1)).Cells(J - (1)).innerText, ".", "")
                    Cells(i, J) = Replace(Temp, ",", ".")




                Next
            Next
        End If
    End If
    
    Columns("A:E").AutoFit
    
    Set Tables = Nothing
    Set HTML = Nothing
    Set HTTP = Nothing
    
    

    
    
End Sub

 

[Haluk]

Kırmızı değişiklikleri yapın;

            noRows = myTable.Rows.Length
            noColumns = myTable.Rows(0).Cells.Length
          
            For i = 1 To noRows
                For J = 1 To noColumns - 1
                    Cells(i, J) = myTable.Rows(i - 1).Cells(J).innerText
                Next
            Next
        End If
    End If

 

[sevensuleyman]

Kırmızı değişiklikleri yapın;

            noRows = myTable.Rows.Length
            noColumns = myTable.Rows(0).Cells.Length
         
            For i = 1 To noRows
                For J = 1 To noColumns - 1
                    Cells(i, J) = myTable.Rows(i - 1).Cells(J).innerText
                Next
            Next
        End If
    End If

Teşekkürler