Макрос сохранения данных

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  

 

 

Реклама