blackkugu
Yeni Üye
- Katılım
- 20 May 2022
- Mesajlar
- 4
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 42
- Konum
- bayburt
- Ad Soyad
- fatih şahinoğlu
- Office Vers.
- 2022
Dim conn As Object, rs As Object, yol As String, dosya
Set conn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
ChDir (ThisWorkbook.Path)
conn.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\" & Range("AO24").Value & "\" & ActiveCell.Value & ".xls" & ";Extended Properties=""Excel 12.0;Hdr=yes"""
rs.Open "Select * from [Sheet1$A3:A35]", conn, 1, 1
Range("A9").CopyFromRecordset rs
rs.Close: conn.Close
değerli arkadaşlar kod bu şekilde güzel çalışıyor lakin kapalı dosyadan veri çekerken örneğin tek sutunda aşağıya doğru sayı var son sutun boş sonraki sutunda malum yazı var yazıyı silince yada yazıyı rakam yapınca veriyi çekiyor ama orada yazı olunca veriyi çekemiyor hata veriyor.
indirdiğim excel dosyalarında malum sutunda sayı ve o kısımda yazı oluyor. kodlan bu sorunu nasıl aşabilirim ? Teşekkürler ederim.
Set conn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
ChDir (ThisWorkbook.Path)
conn.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\" & Range("AO24").Value & "\" & ActiveCell.Value & ".xls" & ";Extended Properties=""Excel 12.0;Hdr=yes"""
rs.Open "Select * from [Sheet1$A3:A35]", conn, 1, 1
Range("A9").CopyFromRecordset rs
rs.Close: conn.Close
değerli arkadaşlar kod bu şekilde güzel çalışıyor lakin kapalı dosyadan veri çekerken örneğin tek sutunda aşağıya doğru sayı var son sutun boş sonraki sutunda malum yazı var yazıyı silince yada yazıyı rakam yapınca veriyi çekiyor ama orada yazı olunca veriyi çekemiyor hata veriyor.
indirdiğim excel dosyalarında malum sutunda sayı ve o kısımda yazı oluyor. kodlan bu sorunu nasıl aşabilirim ? Teşekkürler ederim.
