Скопируйте цвет темы Excel в новую книгу
Я хочу сделать макрос, который копирует два листа в новую книгу. Но цвет темы в новой созданной книге отличается.
Sub Export_File()
Dim Wb3 As Workbook
Dim strSaveName As String
strSaveName = Worksheets("Communication").Range("a2").Value
Set Wb3 = ThisWorkbook
'copy sheets to new workbook
Sheets(Array("Auswertung", "Communication")).Copy
ActiveWorkbook.SaveAs strSaveName
Workbooks(Wb3).Colors = Workbooks(strSaveName).Colors
End Sub
Эта строка не работает для меня:
Workbooks(Wb4).Colors = Workbooks(strSaveName).Colors
Я думаю, что это как-то связано с СетWb4 = ThisWorkbook Нужна помощь...
Привет