Копирование значений листа с закрытой книги - VBA
Формулировка задачи:
Подскажите пожалуйста, как можно скопировать лист не сохраняя формат листа (объединенные ячейки, цвета, границы таблицы и т.п.), а просто вставить в др. лист как значение? - у меня есть нижеуказанный макрос который копирует с сохранением формата если можно то его изменить
Решение задачи: «Копирование значений листа с закрытой книги»
textual
Листинг программы
Sub копировать123() Application.ScreenUpdating = False 'отключаем обновление экрана Application.DisplayAlerts = False ' отключаем вывод сообщений ' открываем файл-донор и с листа копируем всю иинформацию Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "массив.xlsx" Sheets("Лист1").Select Cells.Select Selection.Copy 'активируем окно с файлом-приемником и вставляем инфу Windows("отчет — копия.xlsm").Activate Worksheets("стереть").Select Cells(1, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ' активируем окно с файлом-донором и закрываем его без сохранения Windows("массив.xlsx").Activate ActiveWorkbook.Close SaveChanges = False ' активируем окно с файлом-приемником Windows("отчет — копия.xlsm").Activate Application.ScreenUpdating = True 'включаем обновление экрана Application.DisplayAlerts = True 'включаем вывод сообщений End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д