Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dateien öffnen, Verknüpfungen aktualisieren, speichern, schießen

Gruppe

Öffnen

Problem

Die in Spalte A genannten Dateien sollen geöffnet, die Verknüpfungen aktualisiert gespeichert und wieder geschlossen werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub OeffnenSchliessen()
   Dim iRow As Integer
   Dim sFile As String
   On Error GoTo ERRORHANDLER
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      sFile = Cells(iRow, 1).Value
      If Dir(sFile) <> "" Then
         Workbooks.Open _
            Filename:=sFile, _
            updatelinks:=True
         ActiveWorkbook.Close savechanges:=True
      End If
      iRow = iRow + 1
   Loop
ERRORHANDLER:
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub