將具體工作表另存爲具有數值的新工作簿

好的。我現在一直在大聲嘀咕我的大腦，並在互聯網上滾動更長時間，似乎無法解決如何將工作簿中的特定工作表保存爲僅具有值的新工作簿。快速回到故事，我有一個工作簿，其中一個是一個報表生成器。「標準報告」工作表由涉及工作簿中其他工作表中單元格的圖表和表格組成。我想創建一個宏，它將「標準報告」工作表保存爲只有當前值的自己的工作簿。將具體工作表另存爲具有數值的新工作簿

這甚至可能嗎？如果有人可以幫我一把，或者給我一些非常感謝的有用鏈接。

來源

2016-02-26 Jerremy Leedham

我建議將工作表複製到新的工作簿中，打破該工作簿中的鏈接，然後保存。考慮下面的內容（未經測試，僅旨在讓您指向正確的方向）。

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

其他資源：

來源

2016-02-26 06:07:13

感謝您的編碼！ @尼克，這是一個很好的起點。「所有圖表中的斷開鏈接」不是100％的工作，但我可以在這方面努力。 –

真棒，很高興它幫助！ –

將具體工作表另存爲具有數值的新工作簿

回答

相關問題