ADOB sql sorguda format problemi hk.

[tamer42]

Merhaba,

ADOB sql sorguda aşağıdaki kod ile aldığımız sayısal ifadeler ekli görselde göründüğü gibi, hücreye metinsel ifade olarak geliyor,
Bunların sayısal olarak gelmesi için nasıl bir izlemeyeliz?

Desteğiniz için şimdiden teşekkürler,
iyi akşamlar.

Sub UpdateTable2(MyFile As String)
Dim Con, RS As Object
Dim uSQL As String

Set Con = VBA.CreateObject("adodb.Connection")
Set RS = VBA.CreateObject("adodb.Recordset")

Sheets("2").Range("A2:Z100000").ClearContents

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
MyFile & ";extended properties=""Excel 12.0;Hdr=Yes;IMEX=1"""

uSQL = "SELECT * FROM [1$]"

RS.Open uSQL, Con, 3, 1

Sheets("2").Range("A2").CopyFromRecordset RS

RS.Close:     Con.Close
Set Con = Nothing:  Set RS = Nothing

End Sub

 

[Korhan Ayhan]

IMEX=0 olarak denediniz mi?