Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Arbeitsmappe öffnen, erstes Blatt drucken, Mappe schließen
Gruppe
Seite
Problem
Wie kann ich über VBA eine Arbeitsmappe öffnen, das erste Blatt drucken und die Mappe wieder schließen, ohne daß sie angezeigt wird?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain Sub OeffnenDruckenSchliessen() Dim vFile As Variant Application.ScreenUpdating = False Application.EnableEvents = False On Error GoTo ERRORHANDLER vFile = Application.GetOpenFilename( _ "Excel-Arbeitsmappe (*.xls), *.xls") If vFile = False Then GoTo ERRORHANDLER Workbooks.Open vFile Worksheets(1).PrintOut ActiveWorkbook.Close savechanges:=False ERRORHANDLER: Application.EnableEvents = True Application.ScreenUpdating = True End Sub