Laufwerk variabel
10.11.2004 10:15:12
Eva
habe eine Frage zu folgendem Code. Zur Zeit greife ich damit direkt auf einen Pfad über den Laufwerksbuchstaben zu. Dies müsste aber variabel erfolgen, da jeder user sein Laufwerk variabel zu einem Buchstaben zuordnen kann.
Gibt es eine Möglichkeit nur den Laufwerksnamen wie drssm015\mp3\ ... anzusprechen?
Vielen Dank
eva
Sub CheckOpen()
Application.ScreenUpdating = False
'Prüfung, ob Datei "01.xls" geöffnet ist
If IfFileOpen("01.xls") = False Then
'Pfadangabe beachten
Workbooks.Open Filename:="F:\03_mp3\Excel_Vba\01.xls", UpdateLinks:=0
End If
'Prüfung, ob Overview aktiviert ist
Application.ScreenUpdating = False
End Sub
Function IfFileOpen(01 As String) As Boolean
Dim TemplateIFD As String
On Error GoTo nonexistent
TemplateIFD = Workbooks(01).Name
IfFileOpen = True
Exit Function
nonexistent:
IfFileOpen = False
End Function