Сохраните конкретный лист как новую книгу с значениями

Question

Ok. Я уже несколько часов стучала по мозгу и прокручивалась по интернету еще дольше, и я не могу понять, как сохранить конкретный лист в рабочей книге как новую книгу с ценностями. Краткая история, у меня есть рабочая книга с кучами страниц, одна из которых является генератором отчетов. Лист «Стандартный отчет» состоит из графиков и таблиц, которые относятся к ячейкам на других листах книги. Я хочу создать макрос, который сохраняет лист «Стандартный отчет», поскольку он является собственной книгой с текущими значениями.

Возможно ли это? Если кто-то может дать мне руку или бросить мне полезные ссылки, которые будут чрезвычайно оценены.

Answer 1

Я бы рекомендовал скопировать лист в новую книгу, сломав ссылки в этой книге, а затем сохранить. Рассмотрим что-то вроде ниже (непроверенный, предназначенный для указания только в правильном направлении).

Sub StaticCharts() 

Dim sh As Worksheet 
Dim wb As Workbook 
Dim cht As ChartObject 
Dim scoll As Series 


'Assumes the active worksheet contains the charts; change below to an absolute reference if possible 
Set sh = ActiveSheet 

Set wb = Workbooks.Add 'Adds a new workbook 

sh.Copy Before:=wb.Sheets(1) 'Copies sheet with charts to new workbook 

'Delete empty sheets in destination workbook 
On Error Resume Next 
wb.Sheets(4).Delete 
wb.Sheets(3).Delete 
wb.Sheets(2).Delete 
On Error GoTo 0 

'Break links in all charts 
For Each cht In sht.ChartObjects 
    For Each scoll In cht.Chart.SeriesCollection 
     scoll.Values = scoll.Values 
     scoll.XValues = scoll.XValues 
     scoll.Name = scoll.Name 
    Next scoll 
Next cht 

End Sub 

Смотреть это (старый) статью для получения дополнительной информации: https://support.microsoft.com/en-us/kb/213443

Дополнительные ресурсы:

• How to copy sheets to another workbook using vba?
• http://www.thespreadsheetguru.com/the-code-vault/2014/8/15/loop-through-all-charts-in-activeworkbook
• http://windowssecrets.com/forums/showthread.php/154000-Break-Links-to-Source-in-Both-Workbook-and-Chart