Soru Excel Dosyalarından Excele Veri Alma

[okan32]

Merhaba Arkadaşlar
Örnek olarak göndermiş olduğum iki adet excel dosyasından Ziraat Katılım Aktarma isimli excel dosyama verileri almak istiyorum. bir şeyler yapmaya çalıştım ama kod hata veriyor çözemedim. yardımlarınız için şimdiden teşekkürler

 

[okan32]

Merhaba Arkadaşlar
Örnek olarak göndermiş olduğum iki adet excel dosyasından Ziraat Katılım Aktarma isimli excel dosyama verileri almak istiyorum. bir şeyler yapmaya çalıştım ama kod hata veriyor çözemedim. yardımlarınız için şimdiden teşekkürler

Sub Veri_çek()

Select Case MsgBox("Verileri Çekmeden Önce Sayfayı Sil Butonuna Tıklayınız???", vbYesNo Or vbQuestion Or vbDefaultButton1, "> > > D İ K K A T < < <")
Case vbYes
Dim Con As Object, Rs As Object, Sorgu As String
Set Con = CreateObject("AdoDB.Connection")
Set Rs = CreateObject("AdoDB.RecordSet")
Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\_reports_MemurRaporlar_BankaListesi.xls" & _
";Extended Properties=""Excel 12.0;Hdr=yes"""
Sorgu = "Select [TC KIMLIK NO],[ADI SOYADI],[IBAN NO],[MAAŞ TUTARI] From [7_Kurum_BankaListesi$A20:AB55]"
Rs.Open Sorgu, Con, 1, 3
Range("R2").CopyFromRecordset Rs
Rs.Close: Con.Close
Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\_reports_4BKKRaporlar_BankaListesi.xlsx" & _
";Extended Properties=""Excel 12.0;Hdr=yes;IMEX=1"""
Sorgu = "Select [TC KIMLIK NO],[ADI SOYADI],[IBAN NO],[MAAŞ TUTARI] From [BankaListesi$F25:AE50]"
Rs.Open Sorgu, Con, 1, 3
SonSatir = Range("R65536").End(xlUp).Row + 1
'Cells(SonSatir, "M").CopyFromRecordset Rs 'İstersek böylede yapabiliriz
Range("R" & SonSatir).CopyFromRecordset Rs
Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
MsgBox ("Veriler Başarı İle Çekildi...")

Case vbNo

MsgBox ("Veri Çekme İşlemini iptal ettiniz...")

Exit Sub
End Select

End Sub

Kırmızı yazı rengi olan yerde yerde hata veriyor

 

[Haluk]

Kodun içindekileri silip aşağıdakileri kullanın...

      Sorgu = "Select [TC KIMLIK NO],[ADI SOYADI],[IBAN NO],[MAAŞ TUTARI] From [7_Kurum_BankaListesi$A16:AB]"

         
         
      Sorgu = "Select [TC KIMLIK NO],[ADI SOYADI],[IBAN NO],[MAAŞ TUTARI] From [BankaListesi$F18:AE]"

.

 

[Haluk]

Dosya uzantılarını da kontrol edin ..... xls / xlsx ....

.

 

[okan32]

Kodun içindekileri silip aşağıdakileri kullanın...

      Sorgu = "Select [TC KIMLIK NO],[ADI SOYADI],[IBAN NO],[MAAŞ TUTARI] From [7_Kurum_BankaListesi$A16:AB]"

        
        
      Sorgu = "Select [TC KIMLIK NO],[ADI SOYADI],[IBAN NO],[MAAŞ TUTARI] From [BankaListesi$F18:AE]"

.

Çok Teşekkür ederim Haluk Hocam gayet güzel oldu