incsoft
Yeni Üye
- Katılım
- 28 Ocak 2019
- Mesajlar
- 244
- En iyi yanıt
- 0
- Puanları
- 18
- Yaş
- 44
- Konum
- Ankara
- Ad Soyad
- Ufuk İNCE
- Office Vers.
- Office 2019 Professional
Arkadaşlar başka bir dosyadan verilerimi aşağıdaki macro ile dosyama çekiyorum ancak çektiği dosyadaki veriler metin olduğundan dolayı diğer sayfadaki formüller çalışmamakta. Macroya bir eklenti yaparak aktarım sonunda A sütununun tamamını otomatik olarak sayıya nasıl dönüştürebilirim?
Private Sub CommandButton1_Click()
Columns("A
").Select
Selection.ClearContents
Set Con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
'yol = "\\ds1\orsortak\DT\BELGELER\Yazılım\üretimMik\2019Yılı"
Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "SÜAKSBDVM.xls" & _
";extended properties=""Excel 8.0;hdr=yes"""
Sorgu = "SELECT * FROM [Sheet1$]"
rs.Open Sorgu, Con, 1, 1
Range("a1").CopyFromRecordset rs
rs.Close: Con.Close
Set Con = Nothing: Set rs = Nothing
Range("A1").Select
End Sub
Private Sub CommandButton1_Click()
Columns("A
").SelectSelection.ClearContents
Set Con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
'yol = "\\ds1\orsortak\DT\BELGELER\Yazılım\üretimMik\2019Yılı"
Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "SÜAKSBDVM.xls" & _
";extended properties=""Excel 8.0;hdr=yes"""
Sorgu = "SELECT * FROM [Sheet1$]"
rs.Open Sorgu, Con, 1, 1
Range("a1").CopyFromRecordset rs
rs.Close: Con.Close
Set Con = Nothing: Set rs = Nothing
Range("A1").Select
End Sub