dosya birleştirme yardım.

[cagriyildirim]

Sorun şu, aşağıdaki programı personal macro workbook olarak kaydettiğim zaman program çalışmıyor, ama this workbooka olarak kaydettiğimde program eksiksiz çalışıyor. this workbook olarak kaydedince exceli kapatım açtığımda makro silinmiş oluyor ve her defasında kodu yeniden yazmak zorunda kalıyorum.

Sanırım sorun (ThisWorkbook.Worksheets(1).Activate) kodunda.





dosya birleştiren program


Sub MergeSheets()
Dim SrcBook As Workbook
Dim fso As Object, f As Object, ff As Object, f1 As Object

Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.Getfolder("C:\Temp\")
Set ff = f.Files

For Each f1 In ff
Set SrcBook = Workbooks.Open(f1)
Range("A1:IV" & Range("A65536").End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Activate
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
SrcBook.Close
Next
End Sub

 

[cagriyildirim]

yok mu yardım edebilecek. tam açıklayamadım mı sorunu yoksa?

 

[Necdet]

Merhaba,

Yeni bir modül açıp kodlarınızı oraya kopyalayınız. Dosyayı inceleyiniz.

 

[cagriyildirim]

teşekkürler, çok yardımcı oldu.

 

[cagriyildirim]

yine yukardaki programla ilgili bir sorunum var, programda temp dosyasında excel workbookları çağırıyorduk. benim istediğim, diyelimki tempte 9 tane dosya var ben bunları çağırdığımda ilk 3 tanesi 1. sheete kopyalansın, sonra gelen 3 tanesi 2.sheete kopyalansın, ondan sonraki 3 tane 3. sheete kopyalansın.....
yapmak mümkünmü, şimdiden teşekkürler