Hey Leute,
habe ein wahrscheinliches ziemlich einfaches Problem, finde aber keine passenden Lösungen im Netz.
Der Code funktioniert einwandfrei, ich würde nur gerne die Datei, die geöffnet werde soll mit Administratorrechten öffnen lassen, da diese im späteren Verlauf bearbeitet wird, und das ohne die passenden Berechtigungen nicht geht...
Public Sub openWB()
Dim sOpenFileName
'Pfad definieren, welcher geöffnet werden soll
sWbQuellePfad = ThisWorkbook.Path
ChDir (sWbQuellePfad)
'Den im Dialogfeld ausgewählten Namen auslesen, Filter definieren
sOpenFileName = Application.GetOpenFilename(FileFilter:="CSV-Dateien (*.csv), *.csv")
'Prüfen ob eine gültige Datei ausgewählt wurde
If sOpenFileName = False Then
Log "Datei konnte nicht geöffnet werden. Bitte öffnen Sie die Datei als Administrator."
Exit Sub
End If
'Gewählte Datei öffnen
Set wbQuelle = Workbooks.Open(sOpenFileName, Local:=True)
wbQuelle.Activate
End Sub
Danke und Grüße
Selina
|