
Set wb = application.workbooks.open(C:"xxx.xlsm") |
Private Sub Workbook_Open()
Application.DisplayAlerts = False
On Error Resume Next
Dim wb As Workbook
Set wb = Workbooks.Open("C:xxx.xlsm")
Workbooks.OpenXML (wb)
Application.CalculateFullRebuild
End Sub
|
