|
Hallo,
ich möchte den ziel pfad als variable angeben. Die ich vorher in so definiert habe. Zudem soll der Dateiname, der Ursprungsdateiname sein. Das klappt so leider nicht!
Ich habe eine Ordner auswahl über die der Pfad gewählt wird.
Sub Clean_Complete_Folder()
Dim strOrdner As String
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\Users\... Tests"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
strOrdner = .SelectedItems(1)
If Right(strOrdner, 1) <> "\" Then strOrdner = strOrdner & "\"
Else
strOrdner = ""
End If
End With
If strOrdner = "" Then MsgBox ("No folder chosed!") Else MsgBox strOrdner
Der ordner pfad heißt also strOrdner und ist ein string. Ich weiß nicht wie exakt ich das angeben muss, damit es klappt.
Mehrere versuche haben dazu geführt, dass es zwar im ordner landet und den Dateinamen hat, aber dann eben eine csv ist, weil der Dateiname ursprünglich auch auf csv endet. Also wird quasi xlOpenXMLWorkbook über priorisiert. ( Die Datei war sogar xlsx wenn ich sie umbenannt habe aber der name war eben falsch, sodass ich sie ohne manuelles umbennenn nicht einlesen kann.
Also Dateiname sei : strdateiname (string)
Pfad sei : strordner (string)
Format: xlsx
wie muss ich das genau angeben? Ich schaffe es leider nicht :/
|