Как насчет экспорта в новый XLS, просто содержащий этот лист? Это было бы самым простым решением, сохранив не только содержимое, но и форматирование этого листа.
Для получения некоторого исходного кода VBA, просто используйте макро-рекордер и запишите команды, когда вы делаете это вручную - «Новый документ», щелкните правой кнопкой мыши на имени листа, «Копировать лист в новый документ» и для импорта ». Откройте существующий документ ", щелкните правой кнопкой мыши по имени листа," Скопируйте лист в существующий документ ".
Например, копирование листа в новую рабочую книгу:
set wb = ActiveWorkbook
set newWb =Workbooks.Add()
wb.ActiveSheet.Copy newWb.ActiveSheet