|
Mein Problem bezieht sich auf das format.
Mit nur "ActiveWorkbook.Save" klappt alles wunderbar, es wird aber als cvs exportiert. Für matlab benötige ich jedoch xlsx.
Mit dem geposteten Code wird das Problem gelöst, heisst das Format und der Namen stimmen, aber nicht der Zielspeicherpfad.
Mit einer anderen Lösung bei dem ich den Zielpfad angeben kann, klappt es dann nicht, weil ich wenn ich dann den variablen namen definiere, wird dieser exakt übernommen. Der exakte name endet aber mit .cvs.
Ich brauche also: Aktellen namen der bearbeiteten Datei aber als xlsx abgespeichert und den richtigen Pfad.
Aktuell klappt dies alles bis auf den Pfad.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Dim strVerzeichnis As String
Dim strDatei As String
Dim strTyp As String
Dim strDateiname As String
strTyp = "*.csv"
Application.ScreenUpdating = False
strVerzeichnis = strOrdner
strDateiname = Dir(strVerzeichnis & strTyp)
Do While strDateiname <> ""
Workbooks.Open Filename:=strVerzeichnis & strDateiname
Call clean_File
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
Application.DisplayAlerts = True
strDateiname = Dir
Loop
Application.ScreenUpdating = True
End Sub
|
Das Problem ist, dass die Datei nicht im gleichen Ordner wie die ursprungsdatei gespeichert wird. Ich hätte gerne als Pfad strOrdner. Das bekomme ich aber nicht hin.
|