|
problem solved
Sub Makro3()
'
' Makro3 Makro
' Does open files, update source + close files
'
' Tastenkombination: Strg+Umschalt+C
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "C:\Users\gillnerc\desktop\desktop\Automatization DailyRec.&Disb\prior day\"
StrTyp = "*.xlsx"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname <> ""
Workbooks.Open Filename:=strVerzeichnis & Dateiname
Dateiname = Dir
Loop
Windows("DailyRec&Disb.MasterfileEU_VBA.xlsm").Activate
ActiveWorkbook.Changelink Name:="AT_Masterfile.xlsx", NewName:= _
"AT_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="BEL_Masterfile.xlsx", NewName:= _
"BEL_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="BENL_Masterfile.xlsx", NewName:= _
"BENL_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="DE_Masterfile.xlsx", NewName:= _
"DE_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="ES_Masterfile.xlsx", NewName:= _
"ES_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="FR_Masterfile.xlsx", NewName:= _
"FR_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="IT_HY_Masterfile.xlsx", NewName:= _
"IT_HY_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="NO_Masterfile.xlsx", NewName:= _
"NO_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="PL_Masterfile.xlsx", NewName:= _
"PL_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="PT_Masterfile.xlsx", NewName:= _
"PT_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="RUS_Masterfile.xlsx", NewName:= _
"RUS_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="SK_Masterfile.xlsx", NewName:= _
"SK_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Changelink Name:="UK_Masterfile.xlsx", NewName:= _
"UK_Masterfile.xlsx", Type:=xlExcelLinks
ActiveWorkbook.Save
Windows("UK_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("SK_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("RUS_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("PT_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("PL_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("NO_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("IT_HY_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("FR_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("ES_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("DE_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("BENL_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("BEL_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
Windows("AT_Masterfile.xlsx").Activate
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
|