funktion nur einmal ausführbar ???? dann fehler
12.08.2003 08:59:44
rahel
ich habe einen code, der mir aus den feldern PFAD, MONTH, YEAR und FILE einen pfad zu einer .csv datei zusammensetzt.
nun muss ich ja zuerst überprüfen, ob der herausbekommene ordner überhaupt vorhanden ist. dieser setzt sich wie folgt zusammen:
PFAD\YEARMONTH\
also zum beispiel:
C:\Excel\200308\
hierzu verwende ich die folgende funktion:
Private Function GetDataFileName() As String
' open CSV-File and import data into sheet data
Dim fileName, folder As String
fileName = Sheets("MAIN").Range("path").FormulaR1C1
If fileName <> "" Then
If Right(fileName, 1) <> "\" Then
fileName = fileName & "\"
End If
End If
MsgBox (fileName)
folder = Sheets("MAIN").Range("year").FormulaR1C1 & _
Right(("0" & Sheets("MAIN").Range("month").FormulaR1C1), 2)
MsgBox (folder)
Dim fs As Object, f As Object
Set fs = CreateObject("Scripting.FileSystemObject")
ChDrive fileName
fileName = fileName & Sheets("MAIN").Range("year").FormulaR1C1 & _
Right(("0" & Sheets("MAIN").Range("month").FormulaR1C1), 2) & _
"\" & Sheets("MAIN").Range("file").FormulaR1C1
MsgBox (fileName)
If Not fs.folderexists(folder) Then
MsgBox ("Fehler: Der angegebene Ordner ist nicht vorhanden. " & _
"Die angegebene .csv Datei muss sich in einem Ordner " & _
"in Format des angegebenen Jahres und Monats (YYYYMM) " & _
"befinden.")
GetDataFileName = "ERROR"
Else
GetDataFileName = fileName
End If
End Function
beim ersten ausführen der funktion klappt dies auch einwandfrei. falls ich dann aber ein zweites mal die funktion ausführen will, erscheint mir die fehlermeldung.
wer kann mir helfen?
gruss, rahel
Anzeige