Metin Formatında Saklanan Sayıları, Sayısal Değerlere Çevirme Kod Yardımı

[Believing]

Sayın Uzman arkadaşlar,

Aşağıdaki kod yardımı ile kapalı dosyadan açık olan çalışma kitabına veri transferi yapıyorum.

Sub Kapaliden_Veri_Al()
    Dim con As Object, rs As Object
    Dim dosya As String
    dosya = ThisWorkbook.Path & "\Database_Porter_Lyra_Hotel.xls"
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    With Sayfa2
        .Range("A1:T1000").ClearContents
        con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & dosya & _
        ";extended properties=""Excel 12.0;hdr=no"""
        rs.Open "select * from [Sheet1$]", con, 1, 1
            If rs.RecordCount > 0 Then
                .Range("A1").CopyFromRecordset rs
            End If
        rs.Close: con.Close
      End With
    Sayfa2.Select
    Set rs = Nothing: Set con = Nothing
    dosya = vbNullString
End Sub

Veri transferinden sonra çalışma kitabımın "A" sütununda (Yukarıda görüldüğü gibi) sayısal değerlerin başında yeşil rekli tırnak bulunmaktadır. "A" sütununa çağrılacak olan verileri sayısal değer olarak getirmek için, yukarıdaki kodda nasıl bir değişiklik yapmalıyım.
Konuya hakim uzman arkadaşların çok değerli yardımlarını rice ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Fonksiyon ile çağırıyorsanız, SAYIYAÇEVİR(A8) ya da A8*1 yazdığınızda sayıya çevrilmiş olur.
İyi çalışmalar