automatisch Speichern und Dateiname enthält Punkte

Question

Hallo,
wer kann helfen,
ich speichere mit diesen Makro meine Dateien automatisch.
Manche Dateinamen enthalten Punkte, wie kann ich das Problem lösen.
Bsp.123-456.001.0 soll gespeichert werden unter
123-456.001.0.xls
Bisher speichert es die Datei unter 123-456.001 also nicht als Exeldatei und ich muß sie von Hand umbenennen.

Sub Speichern()
Dim verz, dname As String
verz = Cells(76, 5)
dname = Cells(75, 5)
ActiveWorkbook.SaveAs Filename:=("K:\" & verz & "\" & dname), FileFormat:=xlNormal
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Für etwas hilfe bin ich dankbar!!
Gruß
Ulle

Answer 1

Hi Ulle,

ich habe zum Abspeichern von Dateien folgende Befehle und vielleicht kannst Du diese ja für Dich entsprechend umbauen.

Bei mir setzt sich der Dateiname aus zwei Zellen (Inhalt von B3 und aus Inhalt von P3) zusammen und am Ende wird das .XLS noch gleich dahintergehängt.

****** Makro
Dim strDateiname As String
Dim strAntwort As String


strDateiname = "Grp. " & Range("b3").Value & "KW " & Range("P3").Value & ".XLS"

ActiveWorkbook.SaveAs ("G:\Fertigung\Tischplattenfertigung\Gruppen\Gruppe 04\Lohnabrechnung\2009\" & strDateiname)
******

Leider bin ich nicht der VBA-Kenner um Dir gleich richtig helfen zu können und hoffe aber dennoch, daß ich Dir hiermit helfen konnte.

In diesem Sinne... have a nice Day... Gruß Helmut

Answer 2

Hallo Helmut,
ich bin zwar auch kein Profi, aber es war eine große Hilfe.
Habe mein Makro umgeschrieben und es geht!!!
Danke.

Hier mein Ergebnis:
Datei in bestimmtes Verzeichniss speichern
Sub Speichern()
Dim verz, dname As String
verz = Cells(76, 5)
dname = Cells(75, 5) & ".XLS"
ActiveWorkbook.SaveAs Filename:=("c:\" & verz & "\" & dname)
End Sub


Jch wünsche dir auch noch einen schönen Tag.
Ulle