Ausschreiben von Dateien per VBA SaveAs
Dateien
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfiles für die Simulationen schnell und sauber generieren kann. Leider funktioniert das ganze nicht so wie ich es will.
Das Makro soll mir verschiedene Tabellenblätter als txt File (genauer .dat) abspeichern, aber _ das Excelfile unberührt lassen! Hab mir also über Makro aufzeichen mal den grundsätzlichen Code erschaffen und mit Hilfe von Internetrecherche versucht meine Zellbezüge zur Speicherung zu erstellen. Dies schaut nun wie folgt aus :
Sub Makro4()
' Makro4 Makro
' Beschreibung x
' Tastenkombination: Strg+q
Dim Messdatum As String
Dim Messpunkt As String
Dim Pfad As String
Messdatum = Sheets("Input_Parameter").Range("C8").Value
Messpunkt = Sheets("Input_Parameter").Range("C1").Value
Pfad = "I:\max\mustermann\Messpunkte\" & "Messdatum" & "\" & "MP" & "_" & "Messpunkt" & "\"
Sheets("input").Select
ActiveWorkbook.SaveAs Filename:=Pfad & "input" & ".dat", FileFormat:=xlText, _
CreateBackup:=False
Sheets("hansi").Select
ActiveWorkbook.SaveAs Filename:=Pfad & "hansi" & ".dat", FileFormat:=xlText, _
CreateBackup:=False
Sheets("lua").Select
ActiveWorkbook.SaveAs Filename:=Pfad & "lua" & ".dat", FileFormat:=xlText, _
CreateBackup:=False
Sheets("us_in").Select
ActiveWorkbook.SaveAs Filename:=Pfad & "us_in" & ".dat", FileFormat:=xlText, _
CreateBackup:=False
Sheets("us_ex").Select
ActiveWorkbook.SaveAs Filename:=Pfad & "us_ex" & ".dat", FileFormat:=xlText, _
CreateBackup:=False
End Sub
Nach dem ich den Einleseteil angehängt habe funktioniert nichts mehr...
Weiters ändert es mein xlsm durch die SaveAs Funktion, wie kann ich das umgehen?
Wäre euch sehr dankbar
Mfg