объединить несколько таблиц книг в одну таблицу на другой книге с помощью VBA - PullRequest
Новая
       36

объединить несколько таблиц книг в одну таблицу на другой книге с помощью VBA

0 голосов
/ 20 сентября 2018

Мне интересно, как я могу скопировать содержимое всех моих рабочих книг, называемых «Таблица1» (кроме заголовков), и вставить их в аналогично отформатированную таблицу «Таблица2» в основной книге.

Вот код, который я использовал для обновления 3200 рабочих книг, я надеюсь снова использовать этот шаблон.

Я только хочу скопировать используемые строки (не заголовки)затем добавьте значения следующей таблицы внизу таблицы.

«Таблица1» в каждой рабочей книге регистрирует некоторую информацию каждый раз, когда рабочая книга сохраняется.Я бы хотел, чтобы мастер «theFILE 1.1.xlsm» имел мастер-таблицу («Table2») на листе Master Edits. 

Sub Macro2() 

Application.ScreenUpdating = False

Dim sFile As String
Dim wb As Workbook
Dim FileName1 As String
Dim FileName2 As String
Dim wksSource As Worksheet
Const scWkbSourceName As String = "theFILE 1.1.xlsm"

Set wkbSource = Workbooks(scWkbSourceName)
Set wksSource = wkbSource.Sheets("Sheet1") ' Replace Sheet1 with the sheet name

Const wsOriginalBook As String = "theFILE 1.1.xlsm"
Const sPath As String = "E:\theFILES\"

SourceRow = 5

Dim tbl As ListObject
Set tbl = ws.ListObjects("Table2")
Dim newrow As ListRow
Set newrow = tbl.ListRows.Add


Do While Cells(SourceRow, "D").Value <> ""

Sheets("Sheet1").Select

FileName1 = wksSource.Range("A" & SourceRow).Value
FileName2 = wksSource.Range("K" & SourceRow).Value

sFile = sPath & FileName1 & "\" & FileName2 & ".xlsm"

Set wb = Workbooks.Open(sFile)
'''Enter Code for Copy/Paste Tables 

Sheets("EDITS").Visible = True
Sheets("EDITS").Select
ActiveSheet.ListObjects("Table1").Range.Select
'need to omit the header
Selection.Copy

Windows("theFILE 1.1.xlsm").Activate
Sheets("Master Edits").Select
Range("Table2[DATES]").Select
With newrow

    ActiveSheet.Paste

End With

Windows("wb").Activate
Sheets("EDITS").Visible = False

Windows("theFILE 1.1.xlsm").Activate
Sheets("Sheet1").Select



'''CLOSE WORKBOOK W/O BEFORE SAVE
Application.EnableEvents = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.EnableEvents = True

SourceRow = SourceRow + 1 ' Move down 1 row for source sheet

Loop

End Sub

Моя проблема в том, что мне не нужны заголовки.Мне нужно добавить новые строки для данных следующей таблицы.

Любая и вся помощь очень ценится.Спасибо!

...