Herbers Excel-Forum - das Archiv

Dateien aus Spalte A öffnen und speichern

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
Excel-Beispiele zum Thema "Dateien aus Spalte A öffnen und speichern "
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