Kapalı haldeki dosyadan sadece "A:H" kolonlarının çekilmesi

[hopeful]

Merhaba

Kapalı halde bulunan c:\datalar\veri1.xls dosyasının sheet1 sayfasındaki A dan H ye kadar kolonların (A:H) çekilmesinin kodunu yazabilir misiniz?

eğer veri dosyalarına yenileri eklenecekse yani;
c:\datalar\veri1.xls
c:\datalar\veri2.xls
c:\datalar\veri3.xls ...Her bir veri dosyası için aynı işlemi yapıp farklı kaydetmemi sağlayabilecek şekilde kodu geliştirebilir misiniz?

yardımlarınızı rica ederim

saygılar

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Kod her dosyadaki verileri altalta bir sayfaya aktaracaktır.

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\data").Files
Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=C:\data\" & dosya.Name
baglanti.Open yol
Set rs = baglanti.Execute("[Sheet1$a1:h65536]")
sat = WorksheetFunction.CountA([a:a]) + 1
Cells(sat, "a").CopyFromRecordset rs
rs.Close
baglanti.Close
Next
End Sub

 

[hopeful]

Aşağıdaki kodu deneyin. Kod her dosyadaki verileri altalta bir sayfaya aktaracaktır.

Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\data").Files
Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=C:\data\" & dosya.Name
baglanti.Open yol
Set rs = baglanti.Execute("[Sheet1$a1:h65536]")
sat = WorksheetFunction.CountA([a:a]) + 1
Cells(sat, "a").CopyFromRecordset rs
rs.Close
baglanti.Close
Next
End Sub

"For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\data").Files" satırında Compile eror syntax eror hatası veriyor.

 

[Levent Menteşoğlu]

Kodu deneyerek yazdım hata vermez, kopyalamayı eksik yapmış olabilirsiniz tekrar inceleyin.

 

[hopeful]

Kodu deneyerek yazdım hata vermez, kopyalamayı eksik yapmış olabilirsiniz tekrar inceleyin.

Run time error hatası veriyor.

Run-time error '-21447217900(80040e14)':
[Microsoft][ODBC Excel Driver] Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

 

[kpolat]

Sn leventm bende'de aynı hatayı verdi, eklememiz gereken bir referans mı var?

 

[Necdet]

Bende de hata verdi ama, aşağıda belirttiğim dosyadaki sayfa adının sheet1 olması durumunda Levent Bey'in kodları çalışıyor.

Set rs = baglanti.Execute("[[COLOR=red][B]Sheet1[/B][/COLOR]$a1:h65536]")

Denememde bende de 1. satırı kopyalamadı

 

[mfk2003]

Bu satıda belirli bir aralık değilde sadece tek bir hücre seçmek için satırı ne şekilde yazmalıyım;mesela a1 hücresini.

 

[mnz]

Peki bunun tam tersi olabilir mi?
Yani açık olan sayfanızin A dan H e kadar kolonları Kapalı dosya sayfasına eklemek?

 

[mnz]

Arkadaşlar bu önemli bir konu. Yardımcı olursanız sevinirim.
Kapalı dosyaya veri kaydı yapabiliyoruz. Ancak 2000 satırlık dosyanın sadece belirli kolonlarının aktarılması mümkünmü bilmiyorum.
Örn: Açık olan kitaptaki A - H kolonları arasını kapalı dosya A1 hücresinden itibaren aktarabilirmiyiz.

 

[Hakan ERDOST]

Bu kod ile verileri alt alta değilde yan yana nasıl alabiliriz.şöyleki alacağımız veriler d5:d18 aralığında iken bu verileri h5:h18 aralığından başlayarak yani sütunlara yan yana nasaıl aktarabiliriz.