erstellten Ordner öffnen
27.01.2003 11:16:24
Bolli
Ich erstelle mit folgender anweisung einen Ordner mit
dem Namen in Zelle B1. Wie öffne ich nun diesen Ordner,
um eine Datei darin zu speichern?
Sub SetDir()
Dim iRow As String
Dim sDir As String, sVerz As String
Sheets("Kopfdatei").Select
iRow = Range("B1")
sVerz = ActiveWorkbook.Path & "\"
sDir = sVerz & "\" & iRow
If Left(sDir, 1) = "\" Then sDir = Right(sDir, Len(sDir) - 1)
On Error Resume Next
MkDir sDir
sDir = ""
End Sub
Ich habe es mit
ChDir = "aber was kommt da rein?"
vor dem 'End Sub'
ausprobiert, geht nicht!
Vielen Dank für Eure hilfe
Bolli