Dateifenster - gleicher Pfad
04.06.2008 19:12:00
Christian
Ich habe hier ein Code der mir wenn ich auf die Zelle B3 klicke ein Fenster oeffnet in dem ich eine bestimmte Datei auswaehlen kann.
Kann ich den Code so umaendern, dass wenn sich das Fenster oeffnet immer der Pfad :
C:\Archivos de programa\Power Measurement\ION Setup\REPORT\ oeffnet ?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Dateiname As Variant, VerzeichnisAlt As String
'Textdatei mit Daten wählen
If Target.Address = "$B$3" Then
VerzeichnisAlt = VBA.CurDir 'Aktuelles Verzeichnis merken
Dateiname = Application.GetOpenFilename(FileFilter:="Dateien (*.txt),*.txt", _
Title:="Please select an ION.txt File")
If Dateiname = False Then
MsgBox "No file selected - The path is not changing"
Else
Target.Value = Dateiname
Target.Offset(0, -1).Select
End If
End If
End Sub
Ist das irgendwie moeglich ?
Schonmal vielen Dank im vorraus,
Christian