Office: Excel Dateien öffnen, umbennen und speichern

Hallo zusammen,

ich habe folgenden Code, der Excel-Dateien aus einem bestimmten Pfad nacheinander öffnen und unter einem bestimmten Dateinamen (Für den Dateinamen sollen aus der geöffneten Excel-Datei zwei Zellen ausgelesen werden...) wieder speichern soll.Es wird mir der Laufzeitfehler 1004 angezeigt. Was muss da geändert werden??
Danke schon im Voraus für jede Hilfe!*Smilie

Sub Schaltfläche1_Klicken()
strPath = "C:\Users\abecker\Desktop\Test\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.xls" 'Dateiextension ggf. anpassen
Dim strFile As String
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
dateiname = "Offer" & " " & ActiveSheet.Range("G29").Value & " " & ActiveSheet.Range("G8").Value
pfadname = strPath & dateiname & ".xls"
openworkbook.SaveAs pfadname
Workbooks(pfadname).Close
strFile = Dir() ' nächste Datei
Loop
End If
End Sub

:)

 

Hallo!

"openworkbook" gibt es nicht in VBA. Nutze "ActiveWorkbook".

Gruß, René

 

Moin,

sry..das war mein Fehler. Hatte auch ursprünglich "ActiveWorkbook.saveAs pfadname" stehen. Und da zeigt er mir den Fehler 1004 an und markiert mir genau diese Zeile auch gelb.

Er hat allerdings zumindest die erste Datei wie gewünscht erstellt. Und dann tritt der Fehler auf...*confused.gif*

 

"strFile = Dir() "? Damit dürfte der Pfad leer sein, also gibt es auch nichts zu öffnen.

 

hab es mal geändert. Allerdings meckert der immer noch über dieselbe Zeile...

so sieht es momentan aus...

Sub Schaltfläche1_Klicken()
strPath = "C:\Users\abecker\Desktop\Test\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.xls" 'Dateiextension ggf. anpassen
Dim strFile As String, dateiname As String, pfadname As String
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
dateiname = "Offer" & " " & ActiveWorkbook.Sheets("T-100.3 RFQ CoFo").Range("G29").Value & " " & ActiveWorkbook.Sheets("T-100.3 RFQ CoFo").Range("G8").Value
pfadname = "C:\Users\abecker\Desktop\TestNeu\" & dateiname & ".xls"
ActiveWorkbook.SaveAs pfadname
ActiveWorkbook.Close
strFile = Dir(strPath & strExt) ' nächste Datei
Loop
End If
End Sub

 

Ich versuche gerade über einen anderen Ansatz das Problem zu lösen...
Und zwar:
1)das Programm listet alle Dateinamen aus dem Verzeichnis in Spalte A auf.

2)Zusätzlich müsste zu jeder aufgelisteten Datei die Zelle A1 und A2 ausgelesen und in Spalte B und C aufgelistet werden.

3) Aus den Spalten A+B+C wird manuell der neue Dateiname in Spalte D eingegeben. Über einen Button wird die jeweilige Datei in den neuen Dateinamen umbenannt.

Hier der Code für Schritt 1. Wie setze ich jetzt Schritt 2 und 3 um???

Sub Schaltfläche1_Klicken()
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim Zeile As Integer

Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("C:\Users\abecker\Desktop\Test\")
Set fdateien = fVerz.Files

For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
Zeile = Zeile + 1
Cells(Zeile, 1) = fDatei.Name
End If
Next fDatei

End Sub

 

Einen schönen Abend!

Ich würde gern das dieses Thema nochmal aufgreifen ich habe den selben Code wie in der Nachricht hier drüber.

Durch den Code lasse ich mir die Dateinamen von Bildern anzeigen.

Die erste Zahl soll jedoch in Spalte B und Zeile 6 angezeigt werden.

Habe ihn jetzt so umgeschrieben, das dir Namen in Spalte B angezeigt werden.


If InStr(fDatei, "") > 0 Then
Zeile = Zeile + 1
Cells(Zeile, 2) = fDatei.Name

jedoch bekomme ich es nicht hin, dass es ab Zeile 6 beginnt, sondern weiterhin in Zeile 1.

habe es auch schon so versucht

If InStr(fDatei, "") > 0 Then
Zeile = Zeile + 1
Cells(6, 2) = fDatei.Name

aber da sieht man nur wie der Code alle Namen in der richtigen Spalte und Zeile lädt. Wirklich alle Namen in eine Zeile und dann wird nur der letzte Name zum Schluss angezeigt.

Wie müsste ich den Code ändern, damit es passt.

Die Bilder haben die Endung .png kann man die Endung durch den Code auch ausblenden, sodass nur der Name angezeigt wird?


Ich danke Euch :-)

 

Ich Grüße euch alle!

Hat wirklich niemand eine Idee? :-(

 

Du merkst doch zum zweiten Mal, dass es eine schlechte Idee ist, ein Thema zu entern, das etwas komplett anderes behandelt als das, was Du willst. Mach doch einfach ein eigenes Thema auf.

 

Ok ich danke dir. Ist vielleicht eine bessere Idee :-)