İçindekiler
Çalışma kitaplarını Excel'de birleştirmek için aşağıdaki kodu kullanın. Bu kod, bir dizinde bulunan her çalışma kitabındaki tüm ilk sayfaları alacaktır:
| 123456789101112131415161718192021222324252627282930313233343536 | 'Çalışma Kitaplarını BirleştirAlt BirleştirmeWB'leri()Application.EnableEvents = YanlışApplication.ScreenUpdating = YanlışYolu String As, ThisWB As String, lngFilecounter As LongDim wbDest As Workbook, shtDest As Worksheet, ws As WorksheetDosya Adı Dize Olarak Dim, Çalışma Kitabı Olarak WkbAralık Olarak Dim CopyRng, Aralık Olarak HedefTamsayı olarak RowofCopySheet DimRowofCopySheet = 2 ' Kopyaladığınız sayfalarda başlamak için satırThisWB = ActiveWorkbook.Namepath = GetDirectory("Birleştirmek istediğiniz Excel dosyalarını içeren bir klasör seçin")shtDest = ActiveWorkbook.Sheets(1) olarak ayarlayınDosya adı = Dir(yol & "\*.xlsm", vbNormal)Len(Filename) = 0 ise Sub'dan ÇıkınDosya Adı = vbNullString'e Kadar YapınDosya Adı Değilse = ThisWB O zamanSet Wkb = Workbooks.Open(Filename:=path & "\" & Filename)CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) ayarlaHedef Set = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)CopyRng.Kopya HedefiWkb.Kapat YanlışBitirDosya adı = Dir()DöngüApplication.EnableEvents = DoğruApplication.ScreenUpdating = DoğruMsgBox "Makro Tamamlandı"Alt Bitiş |
Bay Excel
