Datei öffnen und Mappe umbenennen
29.10.2018 08:51:19
SebastianMB
ich habe eine Excel-Datei, in der durch Klicken eines Buttons eine Datei geöffnet werden kann und diese dann ausgewertet wird. Jetzt hätte ich gerne, dass die Excel-Datei den Namen der ausgewählten Datei annimmt und in den gleichen Ordner gespeichert wird. Ist das Grundsätzlich möglich oder denke ich hier zu weit? Anbei mein Code.
Ich hoffe ich habe mich verständlich ausgedrückt.
Liebe Grüße
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
ThisWorkbook.Worksheets.Add.Name = "Auswertung"
End Sub