Ik exporteer/importeer men databases bij het sluiten en openen van het bestand.
(Zou kan ik het werkbaar bestand steeds aanpassen en overschrijven zonder de databases te raken)
Nu blijkt dat na een export en terug import de macro's niet meer werken.
Hoe kan ik dit oplossen ?
Alvast bedankt !
(Zou kan ik het werkbaar bestand steeds aanpassen en overschrijven zonder de databases te raken)
Nu blijkt dat na een export en terug import de macro's niet meer werken.
Hoe kan ik dit oplossen ?
Alvast bedankt !
Code:
Sub Export_Sheets()
Application.ScreenUpdating = False
Sheets("DB_1").Select
ActiveSheet.Select
ActiveSheet.Copy
ThisFile = "E:\TEST\Databases\DB_1.xlsx"
ActiveSheet.SaveAs Filename:=ThisFile
ActiveWorkbook.Close
Sheets("DB_2").Select
ActiveSheet.Select
ActiveSheet.Copy
ThisFile = "E:\TEST\Databases\DB_2.xlsx"
ActiveSheet.SaveAs Filename:=ThisFile
Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub
Sub Import_sheets()
Sheets("DB_1").Delete
Sheets("DB_2").Delete
DB1 = "E:\TEST\Databases\DB_1.xlsx"
Set TargetBook = Application.ActiveWorkbook
Set SourceBook = Workbooks.Open(DB1)
SourceBook.Sheets("DB_1").Select
SourceBook.Sheets("DB_1").Move After:=TargetBook.Sheets(1)
DB2 = "E:\TEST\Databases\DB_2.xlsx"
Set TargetBook = Application.ActiveWorkbook
Set SourceBook = Workbooks.Open(DB2)
SourceBook.Sheets("DB_2").Select
SourceBook.Sheets("DB_2").Move After:=TargetBook.Sheets(1)
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub