Herbers Excel-Forum - das Archiv

Öffnen von Dateien über Makro

Bild

Betrifft: Öffnen von Dateien über Makro
von: Matthes

Geschrieben am: 18.03.2005 08:42:50
Hi,
ich habe ein Makro, mit dem ich sämtliche Dateien in einem bestimmten Verzeichnis öffne. Aus diesen Dateien wird jeweils ein bestimmtes Blatt in die Mappe kopiert, in der ich das Makro hinterlegt habe, um die einzelnen Blätter anschließend aufzusummieren.
Problem: In manchen Einzeldateien befinden sich externe Verknüpfungen, die ich vor dem Kopieren gerne eliminieren möchte. Und ich möchte auch nicht bei jedem Öffnen der Einzeldateien gefragt werden, ob ich die Verknüpfungen aktualisieren will. Wie geht das?
So sieht mein Makro zum Öffnen bis dato aus, mit Application.DisplayAlerts = False komme ich nicht weiter ...
Sub OpenWKb()
Dim sfile As String, SPath As String
Application.ScreenUpdating = False
SPath = Worksheets("Cockpit").Range("b2").Value
If Right(SPath, 1) <> "/" Then
SPath = SPath & "\"
End If
sfile = Dir(SPath & "*.xls")
Do While sfile <> ""
Application.DisplayAlerts = False
Workbooks.Open SPath & sfile
sfile = Dir()
Application.DisplayAlerts = True
Loop
Application.ScreenUpdating = True
MsgBox "Dateien geöffnet"
End Sub


Vielen Dank vorab.
Gruß,
Matthes
Bild

Betrifft: AW: Öffnen von Dateien über Makro
von: Matthias G
Geschrieben am: 18.03.2005 09:06:56
Hallo Matthes,
ergänze den Open-Befehl:
Workbooks.Open Filename:=SPath & sfile, UpdateLinks:=0
Gruß Matthias
 Bild
Excel-Beispiele zum Thema "Öffnen von Dateien über Makro"
Alle Dateien im Verzeichnis öffnen Dateien listen
400 leere Textdateien anlegen XL-Dateien in UserForm listen
XL5/7-Dateien nach XL8 konvertieren Dateien aus Listbox auslesen und öffnen
Excel-Dateien eines Ordners listen Alle Dateien ab einem bestimmten Datum listen
Alle Dateien eines Verzeichnisses drucken Textdateien verbinden