Макрос сохранения данных
Option Explicit Dim client As New EPMAddInAutomation Sub Save_Click() 'client.SaveAndRefreshWorkbookData 'Will send all data from all worksheet client.SaveAndRefreshWorksheetData 'Will send all data from actual worksheet End Sub