Hallo,
meine VZ Abfrage funktioniert nicht. Evtl. ist die Zeichenlänge ca. 110 zu lang?
Ich stelle die Exceldatei mit dem Modul_AutoRng auf https://max-mg.de ein. Stelle im Modul: Suche "hasi"
Wenn ich das Unterverzeichnis manuell erstelle funktioniet wb.SaveAs Filename:
' If Dir("C:\Test", vbDirectory) = "" Then 'Beispiel oK
' MkDir ("C:\Test")
' End If
csvDir = ThisWorkbook.Path & csvSub 'Adresse des Unterverzeichnisses
'MsgBox (csvDir)
If Dir("csvDir", vbDirectory) = "" Then ' hasi funktioniert nicht. Länge csvDir ~110 Zeichen
MkDir ("csvDir")
MsgBox "Das Verzeichnis " & (csvSub) & " wurde erstellt!", vbInformation
End If
wb.SaveAs Filename:=csvDir & csvName & NameExtension, _
FileFormat:=xlCSV, _
CreateBackup:=False, _
Local:=True 'Speichert im Pfad der Exceldatei
|