ich habe ein Makro, dieses copiert einige bereiche einer Tabelle, öffent eine neue Mappe kopiert dort diese Zellen ein und speichert die Datei ab, nun möchte ich, dass diese neue Mappe unter genau dem Namen gespeichert wird, wie die Ursprungsdatei, nur mit der endung .html
wie komme ich an den Namen der Ursprungsdatei!?
hier nmein bisheriger Code:
Sub alshtmkl()
ActiveSheet.Range("A1:R60").Copy
Workbooks.Add
ActiveSheet.Paste.Select
ActiveWorkbook.SaveAs Filename:="H:Test.htm", _
FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
End Sub
hier wird die Datei unter dem namen test.htm abgespeichert. ich möchte aber wie bereits beschrieben den namen der urpsrungsdatei mit endung .html
Danke für eure Hilfe,
Gruß Markus