Excel Dosyalarını Birleştirme

[tamer2012]

arkadaşlar,

öncelikle office 2007 türkçe kullanıyorum

bir klasör içerinde sütün özellikleri aynı olan birden fazla excel dosyasını,

aynı klasörde yeni oluşturulacak bir excel dosyasında ve aynı kitap (sayfa) da alt alta listelemek istiyorum.

örenek bir dosya oluşturana minnettar kalacapım

 

[Orion1]

Dosyanız ektedir.
Ado ile verileri aldım.
Başka bir dosyada çalıştırmak isterseniz vbe de tools==> refenceden microsoft activex data object library 2.x yüklemelisiniz.
Ayrıca diğer dosyalarda sayfa adlarını Hareket olarak değiştirdim.

Sub verileri_al_59()
'Tools==>Referenceden microsoft activex 2.x DataObject library seçildi.
Dim conn As ADODB.Connection, rs As ADODB.Recordset
Dim dosya As String, sat As Long
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Application.ScreenUpdating = False
Range("A2:K" & Rows.Count).ClearContents
sat = 2
dosya = Dir(ThisWorkbook.Path & "\*.xls")
Do While dosya <> "" And dosya <> ThisWorkbook.Name
    conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\" & _
    dosya & ";extended properties=""excel 8.0;hdr=no;imex=1"""
    rs.Open "select * from [Hareket$A2:K" & Rows.Count & "];", conn, adOpenKeyset, adLockReadOnly
    If rs.RecordCount > 0 Then
        Range("A" & sat).CopyFromRecordset rs
        sat = sat + rs.RecordCount
    End If
    conn.Close
    dosya = Dir
Loop
Set rs = Nothing: Set conn = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, "VERİLER ALINDI"
End Sub

 

[şansalpetrol]

arkadaşlar,

öncelikle office 2007 türkçe kullanıyorum

bir klasör içerinde sütün özellikleri aynı olan birden fazla excel dosyasını,

aynı klasörde yeni oluşturulacak bir excel dosyasında ve aynı kitap (sayfa) da alt alta listelemek istiyorum.

örenek bir dosya oluşturana minnettar kalacapım

sanırım işini görebilecek aynı konu

http://www.excel.web.tr/f50/excel-2010-formul-surukleme-sorunu-t111984.html

 

[tamer2012]

teşekkürler,

ancak

conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\" & _
dosya & ";extended properties=""excel 8.0;hdr=no;imex=1"""


bu satırlarda hata verdi.

ayrıca ben 3 dosya örnek verdim ancak 10 larca dosya var bu şekilde. Yani kitap isimlerini tek tek hareket olarak değiştirmek zor.

 

[Orion1]

teşekkürler,

ancak

conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\" & _
dosya & ";extended properties=""excel 8.0;hdr=no;imex=1"""


bu satırlarda hata verdi.

ayrıca ben 3 dosya örnek verdim ancak 10 larca dosya var bu şekilde. Yani kitap isimlerini tek tek hareket olarak değiştirmek zor.

Başka bir dosyada çalıştırmak isterseniz vbe de tools==> refenceden microsoft activex data object library 2.x yüklemelisiniz.
yukarıdaki referansı seçtinizmi.
Ayrıca klasörde istediğiniz kadar dosya olsun farketmez.

 

[tamer2012]

Başka bir dosyada çalıştırmak isterseniz vbe de tools==> refenceden microsoft activex data object library 2.x yüklemelisiniz.
yukarıdaki referansı seçtinizmi.
Ayrıca klasörde istediğiniz kadar dosya olsun farketmez.

Orion1 ilgin için çok teşekkürler,

ancak çözüm bulamıyorum. Eminim bu benim excel bilgimin yetersiz olmasından kaynaklanıyordur. ben karşılaştığım sorunlara ilişkin ekran görüntüsünü ek yaptım.

xp kullanıyorum, office 2007 türkçe. sorun nerede tam bulamadım.

Umarım yardımlarını esirgemezsin ve bu sorunu çözeriz.

 

[numan şamil]

Merhaba
Halit Hocanın bir çalışmasını ekte gönderiyorum
Umarım işinizi görür
1) Birleştirilecek dosyalarınızın hepsi bir klosörde olmalıdır
2) birleştir dosyası bu klosör dışında olmalıdır
Ekli dosyada
birleştir dosyasındaki butono basıp dosyalar klosörünü seçip denermisiniz

 

[Merhum İdris SERDAR]

.


Buraya bakın.

http://www.excel.web.tr/f48/dosya-birle-tirme-ucuncu-defa-konu-actym-cozum-t113881.html


.

 

[sunkid]

Merhaba
Halit Hocanın bir çalışmasını ekte gönderiyorum
Umarım işinizi görür
1) Birleştirilecek dosyalarınızın hepsi bir klosörde olmalıdır
2) birleştir dosyası bu klosör dışında olmalıdır
Ekli dosyada
birleştir dosyasındaki butono basıp dosyalar klosörünü seçip denermisiniz

üstad gönderdiğin dosyayı inceledim ayrı sheetler de değil de aynı sayfa içinde alt alta veriyi getirtmek mümkün müdür?