Excel宏請求：另存爲複製和打破數據連接

我有一個MASTER Excel電子表格用作模板，所以我可以用鏈接到我的數據透視表的新數據表刷新連接（.csv文件）。Excel宏請求：另存爲複製和打破數據連接

現在我有一個宏保存爲特定的路徑複製，因爲我想保持原來的完好無損。

Sub SaveCopyPath() 

With ActiveWorkbook 
    .SaveCopyAs "C:\Users\Me\" & Format(Date, "mmddyyyy") & "-" & [A1] & ".xlsm" 
End With 

End Sub

我正在尋找一個VBA代碼，將只適用於我保存爲COPY這些：
1. BREAK在數據表
2. 刪除TAB1和TAB2上的連接只保存副本並保留數據透視表&「數據」完好保存在副本中。

來源

2016-08-27 Dataletx

我看到你編輯了這個問題，添加源是csv的事實。如果您提供更多指導，我可以在下面修改我的答案。連接在一個結構化的表中？或者只是在一張紙上？ –

數據從CSV中提取並添加到數據模型中，在我的「數據」表中查看爲表格。我能夠通過使用ActiveWorkbook.Connections（「ModelConnection」）來獲得此功能。刪除 – Dataletx

酷！這就是我希望能爲你工作的。 –

這使用ListObject.Unlink方法刪除該數據連接。其餘的應該是直截了當的：

Sub SaveCopyPath() 
Dim SavedCopy As Excel.Workbook 

ActiveWorkbook.SaveCopyAs "C:\Users\Me\" & Format(Date, "mmddyyyy") & "-" & [A1] & ".xlsm" 
Workbooks.Open "C:\Users\Me\" & Format(Date, "mmddyyyy") & "-" & [A1] & ".xlsm" 
Set SavedCopy = ActiveWorkbook 
With SavedCopy 
    .Worksheets("Data").ListObjects(1).Unlink 
    Application.DisplayAlerts = False 
    .Worksheets(1).Delete 
    .Worksheets(1).Delete 
    Application.DisplayAlerts = True 
    .Close True 
End With 

End Sub

來源

2016-08-27 22:05:13

Excel宏請求：另存爲複製和打破數據連接

回答

相關問題