Dateien aus Spalte A öffnen und speichern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Dateien aus Spalte A öffnen und speichern
von: Jens
Geschrieben am: 18.04.2005 10:22:44
Guten Morgen
wie kann ich über VBA die in Spalte A stehenden Dateien öffnen und mit dem
Namen in Spalte B speichern.
In A2 - A55 steht der Dateiname der zu öffnen ist und in B2 - B55 der Name unter der die Datei neu gespeichert werden soll. Der Pfad ist immer D:\Reporting
Danke und Gruß
Jens

Bild

Betrifft: AW: Dateien aus Spalte A öffnen und speichern
von: Harald E
Geschrieben am: 18.04.2005 11:30:31
Hallo Jens,
frei nach dem Motto...besser als nix
ungetestet aus dem Handgelenk, mit einer Warnung, dass Du dann am Ende 55 Dateien gleichzeitig geöffnet hast ;-))....sofern alle Dateien vorhanden sind.

Sub DateiOeffnen()
  Dim Filename As Long
for i = 2 to 55
  Filename = "D:\Reporting" & cells(i, 1).Value & ".xls"
  Workbooks.Open Filename  
ActiveWorkbook.SaveAs Filename:= "D:\Reporting" & cells(i, 2).Value & ".xls"
next i
End Sub

Gruß
Harald
Bild

Betrifft: AW: Dateien aus Spalte A öffnen und speichern
von: UweD
Geschrieben am: 18.04.2005 11:57:45
Hallo Jens
Hier meine Lösung:

Sub Sp_unter()
    Dim Pfad$, LR%, I%, UrDat$, Neu$, Ja$
    Dim doc As Object, olApp As Object
    Pfad = "D:\Reporting\"
    LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
    For I = 1 To LR
        UrDat = ActiveSheet.Cells(I, 1).Value
        Neu = ActiveSheet.Cells(I, 2).Value
        If Neu = "" Then
            MsgBox "Zielname in Zeile " & I & " fehlt."
            Exit Sub
        End If
        Ja = Dir(Pfad & UrDat)
        If Ja <> "" Then
            Workbooks.Open Pfad & UrDat
            ActiveWorkbook.Close Filename:=Pfad & Neu
        Else
            MsgBox "Datei: '" & UrDat & "' existiert nicht!"
        End If
    Next I
End Sub

Wenn du NICHTS an den Dateien änderst, könne das Makro die Datei eigendlich NUR copieren, ohne öffnen.. oder??

Gruß aus UD
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dateien aus Spalte A öffnen und speichern "