Съдържание
За да комбинирате работни книги в Excel, използвайте следния код. Този код ще вземе всички първи листове във всяка работна книга, намерена в директория:
| 123456789101112131415161718192021222324252627282930313233343536 | „Обединяване на работни книгиSub MergeWBs ()Application.EnableEvents = FalseApplication.ScreenUpdating = FalseDim path As String, ThisWB As String, lngFilecounter As LongЗатъмнете wbDest като работна книга, shtDest като работен лист, ws като работен листDim Filename As String, Wkb As WorkbookDim CopyRng As Range, Dest As RangeDim RowofCopySheet As IntegerRowofCopySheet = 2 'Ред, за да започнете от листовете, от които копиратеThisWB = ActiveWorkbook.Namepath = GetDirectory ("Изберете папка, съдържаща Excel файлове, които искате да обедините")Задайте shtDest = ActiveWorkbook.Sheets (1)Име на файл = Dir (път & "\*. Xlsm", vbNormal)Ако Len (Име на файл) = 0, тогава излезте от SubНаправете, докато Filename = vbNullStringАко не е Име на файл = ThisWB ТогаваЗадайте Wkb = Работни книги. Отворете (Име на файл: = път & "\" & Име на файл)Задайте CopyRng = Wkb.Sheets (1). Range (Клетки (RowofCopySheet, 1), Клетки (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Задайте Dest = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell). Row + 1)CopyRng.Cost DestWkb.Close FalseКрай АкоИме на файл = Dir ()ЦикълApplication.EnableEvents = ВярноApplication.ScreenUpdating = ВярноMsgBox "Макро завършен"End Sub |
Г -н Excel
