Как ссылаться на книгу при работе с двумя книгами, в то время как у одного из них нет определенного имени жесткого кодированного файла

У меня есть несколько книг, содержащих несколько рабочих листов. Каждая книга предназначена для каждого человека. Поэтому я хочу объединить все листы в одну новую книгу и сохранить книгу для каждого человека в отдельности. Я не могу понять, как переключаться между новой книгой и существующей. Я не хочу ссылаться на существующий файл, который содержит несколько листов, по имени файла, потому что имя файла для каждого человека меняется.

Sub MergeSheets() Dim i As Integer Dim Newbook As Workbook Dim ws As Worksheet Dim PersonName As String PersonName = ActiveWorkbook.Sheets("Person Profile").Range("D3") Set Newbook = Workbooks.Add Set ws = Newbook.Worksheets("Sheet1").Name = "Merged" ActiveWorkbook.Sheets("Person Profile").Activate ActiveSheet.UsedRange.Select Selection.Copy Destination:=Newbook.Range("A1") For i = 2 To Sheets.Count Sheets(i).Activate UsedRange.Select Selection.CurrentRegion.Select Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=ws.Range("A65536").End(xlUp).Row Next Newbook.SaveAs "C:\Users\Documents\" + PersonName + ".xls" End Sub 

Вы можете использовать название workook

 Sub test() Dim workBook1 As Workbook Dim workBook2 As Workbook Dim workBook3 As Workbook Set workBook1 = Workbooks("Book1") 'If opened Set workBook2 = Workbooks("Book3") 'If opened 'if not opened Workbooks.Open Filename:="C:\Users\Rui\Documents\Benfica.xlsx" set workBook3 = Workbooks("Benfica.xlsx") End Sub 
Interesting Posts

Как получить массив содержимого в диапазоне ячеек из критериев поиска в excel

Преобразование 2-мерной матрицы в одномерную (без петлирования)

Остановить Excel от оценки содержимого ячеек?

В Excel VBA, как изменить диапазон ячеек, который был передан как пользовательский ввод функции

Excel сбой и неправильное использование файлов, написанных с использованием Apache POI (в формате Excel 87-2003 .XLS)

Столбец с пустыми строками опущен

Экспорт таблицы хэшей с помощью словаря свойств в CSV

Формула Excel перестала работать

Создание списка из информации, присутствующей в таблице

Как гиперссылка локального местоположения файла VBA

Найти значение и удалить целую строку

Почему метод Apache POI OPCPackage close () не сохраняет / не записывает содержимое, чтобы открыть файл с возможностью записи?

Ошибка Excel VBA 91, пытаясь экспортировать данные определенных листов в текстовый файл

Условное форматирование – выделить ячейки, где формула отличается?

C # предотвращает изменение файла excel

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