SaveAs mit variablem Pfad
31.10.2018 09:10:41
SebastianMB
folgendes Problem habe ich. Ich öffne durch anklicken einer Schaltfläche eine dat.-Datei. Diese wird dann in Excel ausgewertet. Am Ende der Auswertung soll die dat.-Datei in dem selben Ordner mit der Endung .xlsm gespeichert werden.
Mit der SaveAs-Anweisung bekomme ich es nur hin wenn ich den Code und Name ein gebe. Dieser sollte aber ausgelesen werden und als Variable gespeichert werden. Ich hoffe mir kann jemand hlefen.
ActiveWorkbook.SaveAs "C:\beispiel.xlsm"
Anbei der Ausschnitt des Codes:
Public Sub importMessdaten()
Dim Arr2
'Dim A
Dim Datei2
Dim FSO2
Dim L2 As Long
Dim Tmp2 As Variant
Dim vnt_Ausgabe2 As Variant
Dim I2 As Integer
Dim Str_String2 As String
Dim dateiname2 As String
Dim z2 As Integer
'#############################
'Zweite datei einfügen
Application.ScreenUpdating = False
dateiname2 = Application.GetOpenFilename
Set FSO2 = CreateObject("Scripting.FilesystemObject")
Set Datei2 = FSO2.OpentextFile(dateiname2) 'Anpassen
Str_String2 = Datei2.readall
Datei2.Close
'#####################
Arr2 = Split(Str_String2, vbCrLf) 'Nach Datensätzen splitten
ReDim vnt_Ausgabe2(UBound(Arr2), 200) '200 Spalten reichen ?
For L2 = 0 To UBound(Arr2)
Tmp2 = Split(Arr2(L2), ",") 'Jeden Datensatz nach Werten splitten
For I2 = 0 To UBound(Tmp2)
vnt_Ausgabe2(L2, I2) = Tmp2(I2) 'Jeden Wert in das Array vnt_Ausgabe umschaufeln
Next
Next
'Ausgeben. Anpassen.
Sheets.Add
ActiveSheet.Name = "Import Messdaten"
Sheets("Import Messdaten").Range("A1").Resize(UBound(vnt_Ausgabe2) + 1, UBound(vnt_Ausgabe2, 2)) = vnt_Ausgabe2