Kendim yapsam üşengeç olduğum için makro yazardım. Sen bir tane yeni dosya yaratacaksın adına yeni.xls diyelim, daha sonra da diğer dosyaları tek tek açıp istediğin sheet adının üzerine sağ tuşla tıkla, "taşı veya kopyala" seçeneğine tıkla, kitap yazan yerden "yeni.xls" seç, sonraki sayfa kısmında da "sona taşı" seçeneğini seç, bunu 38 kere tekrarla :)
- kimlanbu
(11.08.16 11:39:11)
dosyalarin hepsini tek klasöre topla. bos excele asagidaki macro'yu ekle ve path kismini degistir.
Sub GetSheets()
Path = "C:\Users\xx\Desktop\xxx\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
Sub GetSheets()
Path = "C:\Users\xx\Desktop\xxx\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
- kimse
(11.08.16 11:45:26)
1
