Makro-Abspeichern individuell

Nach dem erfolgreichen Umformatieren einer asc-Datei in Excel möchte ich diese unter dem gleichen Namen im selben Verzeichnis oder einem Unterverzeichnis als xls-Datei abspeichern. Das Problem ist, dass nach dem Aufruf speichern bspw. der Dateiname in Anführungszeichen vorgegeben ist ("Dateiname.asc"). Als Excel-Datei lässt sich deshalb diese Vorgabe erst nach Entfernen der Anführungszeichen vornehmen. Wie kann ich also in einem Makro erreichen, dass zum Abspeichern nur der Präfix übernommen wird aus der jeweiligen zu speichernden Datei.
Bei mir funktioniert es nur wenn der Dateiname im Makro vorgegeben ist, aber er soll natürlich aus der jeweilig zu speichernden Datei ohne Anführungszeichen übernommen werden. Ich hoffe, mir kann geholfen werden.
Mein Makro:
ActiveWorkbook.SaveAs Filename:="H:\Files\DRUCK\Dateiname.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWindow.Close
Gruß Paulo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Alles super, Sheldon. Funktioniert jetzt einwandfrei. Danke für das "Weihnachtsgeschenk".
Habe noch ein zweites Problem beim Erstellen einer Arbeitsmappe, in die mehrere Dateien eingefügt werden sollen. Habe das Makro mal beigefügt, das alllerdings nur funktioniert, wenn die Dateinamen mit denen des Makros identisch sind. Sollte aber als Schleife für alle geöffneten Dateien beliebigen Namens sein. Vielleicht kannst Du mir ja auch dabei weiterhelfen:

Sub Makro3()
Workbooks.Add
ChDir "H:\"
ActiveWorkbook.SaveAs Filename:="H:\Druck-Dateien\Arbeitsmappe-Druck.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWindow.WindowState = xlMinimized
Windows("File1.xls").Activate
Sheets("File1").Select
Sheets("File1").Move Before:=Workbooks("Arbeitsmappe-Druck.xls").Sheets(1)
Windows("File2.xls").Activate
Sheets("File2").Select
Sheets("File2").Move Before:=Workbooks("Arbeitsmappe-Druck.xls").Sheets(1)
Windows("File3.xls").Activate
Sheets("File3").Select
Sheets("File3").Move Before:=Workbooks("Arbeitsmappe-Druck.xls").Sheets(1)
ActiveWindow.WindowState = xlNormal
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Sub aaaa() Dim oWb As Workbook, tWb As Workbook Set tWb = Workbooks.Add tWb.SaveAs Filename:="H:\Druck-Dateien\Arbeitsmappe-Druck.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False ActiveWindow.WindowState = xlMinimized For Each oWb In Workbooks Select Case oWb.Name Case tWb.Name Case Else oWb.Sheets(1).Move Before:=tWb.Sheets(1) End Select Next ActiveWindow.WindowState = xlNormal tWb.Save tWb.Close End Sub

Sub aaaa() Dim oWb As Workbook, tWb As Workbook Set tWb = Workbooks.Add tWb.SaveAs Filename:="Paulo_Test.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False '"H:\Druck-Dateien\Arbeitsmappe-Druck.xls" ActiveWindow.WindowState = xlMinimized For Each oWb In Workbooks Select Case oWb.Name Case tWb.Name Case ThisWorkbook.Name Case Else oWb.Sheets(1).Move Before:=tWb.Sheets(1) End Select Next ActiveWindow.WindowState = xlNormal tWb.Save tWb.Close End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread