ChDir-Befehl funktioniert nicht einwandfrei
27.10.2003 16:55:25
Thomas
Ich habe einen Code verwendet, der nicht immer einwandfrei funktioniert. Ziel des Programms soll es sein, dass der Nutzer in einen schon vorherbestimmten Ordner(XY) springt und von dort aus weiter wählen kann. Die Funktion CHDir soll das ja eigentlich gewährleisten, aber sie tut es nicht. Bei der Einzelschrittanalyse springt der Editor zwar auf die Zeile, aber öffnet nicht den Ordner, sondern einen anderen. Auf meine Beobachtungen bezogen, vermute ich, dass es der Ordner ist, der zuletzt genutzt worden ist. Kann man dieses umgehen? Und wenn ja, wie?
Ich habe zur Sicherheit den Code mit angefügt.
Danke und Gruß
Thomas
Private Sub CommandButton1_Click()
Dim fFile As Variant
Dim myWord As Object
On Error Resume Next
Set myWord = GetObject("Word.Application.9")
ChDir "C:\XY"
fFile = Application.GetOpenFilename("Word-Dateien (*.doc),*.doc")
If fFile = False Then Exit Sub
If Err.Number <> 0 Then
'Fehlervariable leeren wenn Instanz noch nicht besteht
Err.Clear
'Zuweisung der Instanz
Set myWord = CreateObject("Word.Application.9")
'Instanz öffnen
myWord.Visible = True ': objWW.WindowState = wdWindowStateMaximize
Else
'Instanz besteht bereits
myWord.Activate
'Instanz in der Vordergrund bringen
myWord.Visible = True ': objWW.WindowState = wdWindowStateMaximize
End If
myWord.Application.Documents.Open fFile
End Sub