Копирование значений листа с закрытой книги - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы