Hi all,
Elke maand moet ik meerdere excel bestanden opslaan van format xlsb naar xlsm. Ik wil dit graag automatiseren doormiddel van een Macro. Ik wil dat de files op de achtergrond worden geopend (zodat de gebruiker dit niet ziet), de files worden opgeslagen en daarna weer worden gesloten. Zonder dat de gebuiker moet klikken op alle allerts.
Ik heb nu de onderstaande code geschreven, maar met deze code wordt het bestand op de "voorgrond geopend". Je ziet dat het bestand wordt geopend moet eerst op alle updates en messages drukken, daara wordt het bestand opgeslagen en gesloten. Mijn bedoeling is dus juist dat je niet ziet dat de file wordt geopend en dat je niet op alle messages moet drukken. Kan iemand mij helpen op de onderstaande code aan te passen?
Private Sub CommandButton1_Click()
MsgBox "Copy Start"
Dim path As String
Dim filename As String
Application.DisplayAlerts = False
Workbooks.Open ("W:\International\FINANCE & PM\Supply Chain\21 EMEA GOPS\03 Reporting\AMS Centralized Functions\L1 Report\Volumes\OB Volumes\BG_Hub_Bulgaria\DC_Data_2019_ACT.xlsb")
ActiveWorkbook.SaveAs filename:= _
"W:\International\FINANCE & PM\Supply Chain\21 EMEA GOPS\03 Reporting\AMS Centralized Functions\L1 Report\Volumes\OB Volumes\BG_Hub_Bulgaria\DC_Data_2019_ACT.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Workbooks.Close
Application.DisplayAlerts = True
MsgBox "Done with the copy!"
End Sub
Elke maand moet ik meerdere excel bestanden opslaan van format xlsb naar xlsm. Ik wil dit graag automatiseren doormiddel van een Macro. Ik wil dat de files op de achtergrond worden geopend (zodat de gebruiker dit niet ziet), de files worden opgeslagen en daarna weer worden gesloten. Zonder dat de gebuiker moet klikken op alle allerts.
Ik heb nu de onderstaande code geschreven, maar met deze code wordt het bestand op de "voorgrond geopend". Je ziet dat het bestand wordt geopend moet eerst op alle updates en messages drukken, daara wordt het bestand opgeslagen en gesloten. Mijn bedoeling is dus juist dat je niet ziet dat de file wordt geopend en dat je niet op alle messages moet drukken. Kan iemand mij helpen op de onderstaande code aan te passen?
Private Sub CommandButton1_Click()
MsgBox "Copy Start"
Dim path As String
Dim filename As String
Application.DisplayAlerts = False
Workbooks.Open ("W:\International\FINANCE & PM\Supply Chain\21 EMEA GOPS\03 Reporting\AMS Centralized Functions\L1 Report\Volumes\OB Volumes\BG_Hub_Bulgaria\DC_Data_2019_ACT.xlsb")
ActiveWorkbook.SaveAs filename:= _
"W:\International\FINANCE & PM\Supply Chain\21 EMEA GOPS\03 Reporting\AMS Centralized Functions\L1 Report\Volumes\OB Volumes\BG_Hub_Bulgaria\DC_Data_2019_ACT.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled
Workbooks.Close
Application.DisplayAlerts = True
MsgBox "Done with the copy!"
End Sub