Öffnen im Hintergrund geht nicht.
26.12.2007 12:59:00
Wolfgang
ich würde gerne über nachstehenden Code zunächst im Hintergrund die angesprochene Datei "Seriendruck" die sich unter angegebenem Pfad in Tabelle "Basis", A30 befindet öffnen. Irgendwie läuft der untenstehende Code nicht. Was mache ich falsch bzw. müßte ich verändern? - Danke auch jetzt schon wieder für die Rückmeldungen.
Gruß - Wolfgang
Option Explicit
'Öffnen von Seriendruck im Hintergrund
Sub GetOb()
Dim wb
Dim oeffOrt As String
oeffOrt = Sheets("Basis").[A30]
Application.ScreenUpdating = False
Set wb = GetObject(oeffOrt & "Seriendruck.xls")
wb.Close False 'oder True, wenn gespeichert werden soll
Set wb = Nothing
Application.ScreenUpdating = True
End Sub
Anzeige