Egbert12345
Gebruiker
- Lid geworden
- 13 dec 2010
- Berichten
- 496
Beste forummers,
Ik heb met Office2010 een ledenprogramma gebouwd voor een vereniging. Nu gebruik ik Office2013 en gebeurt er iets vreemds. Het is niet mogelijk om een voorbeeld bestand bij te voegen, maar ik heb wel een stukje tekst uit VBA opgenomen. Misschien zien jullie in een oogopslag wat er niet goed is.
De macro wordt goed uitgevoerd, maar weigert categorisch terug te keren in de oorspronkelijke workbook. Hopelijk kunnen jullie hier iets mee.
m.vr.gr. Egbert
Sub Macro2()
' openen van de database
Dim DitPad As String
Application.ScreenUpdating = False:
Application.DisplayAlerts = False:
bestandsnaam_prog = ActiveWorkbook.Name ' naam oorspronkelijk bestand
DitPad = ActiveWorkbook.Path: zijpad = "\database en masters\":
DirDatabestand = DitPad & zijpad:
naam_database = Workbooks(bestandsnaam_prog).Sheets("assist").Range("H3") ' hier zoekt VBA de naam van de database
Workbooks.OpenText Filename:=DirDatabestand & naam_database: ' openen van de database
Workbooks(bestandsnaam_prog).Activate ' terugkeren naar oorspronkelijk bestamd
Application.ScreenUpdating = True:
End Sub
Ik heb met Office2010 een ledenprogramma gebouwd voor een vereniging. Nu gebruik ik Office2013 en gebeurt er iets vreemds. Het is niet mogelijk om een voorbeeld bestand bij te voegen, maar ik heb wel een stukje tekst uit VBA opgenomen. Misschien zien jullie in een oogopslag wat er niet goed is.
De macro wordt goed uitgevoerd, maar weigert categorisch terug te keren in de oorspronkelijke workbook. Hopelijk kunnen jullie hier iets mee.
m.vr.gr. Egbert
Sub Macro2()
' openen van de database
Dim DitPad As String
Application.ScreenUpdating = False:
Application.DisplayAlerts = False:
bestandsnaam_prog = ActiveWorkbook.Name ' naam oorspronkelijk bestand
DitPad = ActiveWorkbook.Path: zijpad = "\database en masters\":
DirDatabestand = DitPad & zijpad:
naam_database = Workbooks(bestandsnaam_prog).Sheets("assist").Range("H3") ' hier zoekt VBA de naam van de database
Workbooks.OpenText Filename:=DirDatabestand & naam_database: ' openen van de database
Workbooks(bestandsnaam_prog).Activate ' terugkeren naar oorspronkelijk bestamd
Application.ScreenUpdating = True:
End Sub