ник: scandal
Здравствуйте!
Пожалуйста, подскажите, почему следующий код не обновляет сводные таблицы, указанного файла MS Excel:
Private Sub btnExcelRefresh_Click()
Dim xlsReportPath As String, xlsReportFile As String
Dim exclApp As Object, sourceWB As Workbook
Dim result As Variant
xlsReportPath = "x:\Reports\"
xlsReportFile = "test.xlsx"
Set exclApp = CreateObject("Excel.Application")
With exclApp
Set sourceWB = .Workbooks.Open(xlsReportPath & xlsReportFile)
sourceWB.RefreshAll
sourceWB.Close SaveChanges:=True
End With
exclApp.Quit
Set exclApp = Nothing
End Sub
|