Объединение скопированных данных в один рабочий лист

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

Sub copydata() Dim FolderPath As String, FilePath As String, FileName As String FolderPath = "C:\attach\" FilePath = FolderPath & "*.xlsx" FileName = Dir(FilePath) Dim erow As Long, lastrow As Long, lastcolumn As Long 'loops through directory as long as it is not blank and defines files as workbooks. Do While FileName <> "" Dim wb As Workbook Set wb = Workbooks.Open(FolderPath & FileName) 'nested loop for sheets in workbooks For counter = 3 To 9 'Sheets(“Sheet1”).Select wb.Worksheets(counter).Activate lastrow = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Row lastcolumn = ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column Range(Cells(2, 1), Cells(lastrow, lastcolumn)).Copy 'Sheets("Sheet1").Select Workbooks("ZMasterFile.xlsx").Worksheets(counter).Activate erow = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Row Cells(erow, 1).Select ActiveSheet.Paste Next wb.Close savechanges:=False FileName = Dir Loop erow = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Row Cells(erow, 1).Select 

Эта линия может вызвать у вас проблемы.

 'Sheets("Sheet1").Select Workbooks("ZMasterFile.xlsx").Worksheets(counter).Activate 

На линии secound вы активируете рабочий лист (счетчик)

Я думаю, вы должны поставить Worksheet («Sheet1»), если хотите, чтобы все данные находились на одном листе.

Конечно. Вероятно, лучше всего установить AddIn, который вы найдете по ссылке ниже.

http://www.rondebruin.nl/win/addins/rdbmerge.htm

Этот инструмент очень полезен! Попробуйте, и вы увидите!

Также см. Ссылку ниже. Вы увидите весь представленный там код, поэтому это отличный пример обучения.

http://www.rondebruin.nl/win/s3/win008.htm

Interesting Posts

PHP создает электронную таблицу Excel, а затем посылает ее по электронной почте в виде вложения

Как добавить значения в диапазон Excel

рассчитать стоимость отработанных часов

ClosedXML C # Как получить условное форматирование для excel для остановки, когда true

Чтение целых чисел из Excel с использованием oledb

Как заморозить рабочий лист несколькими способами в excel 2016?

Как создать многостраничную книгу Excel на клиентской машине?

Ошибка при попытке скопировать и вставить в Excel

Скопируйте содержимое таблицы в тело письма из папки «Входящие» Outlook в Excel

Excel vba, как объединить эти три ячейки?

Печать Excel с использованием макроса VBA не работает

VBA – вытащить данные из таблицы MS Word в рабочий лист MS Excel (НЕ специальная вставка)

Необходима помощь в Excel VBA

Закройте Excel полностью после закрытия заключительной книги

Экспорт таблицы SQL Server в файл Microsoft Excel xlsx

Давайте будем гением компьютера.