Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

arrFileName

arrFileName
23.05.2006 14:27:03
Ulf
Hallo ihr Excelprofis
Ich brauche mal Hilfe
Option Explicit

Sub öffnen()
Dim arrFileName As Variant
arrFileName = Application.GetOpenFilename( _
"Exceldateien (*.xls), *.xls, Alle Dateien (*.*), *.*", 1, _
"Exceldateien auswählen...", MultiSelect:=False) ' Ausgewählte Dateien des Öffnen-Dialoges in Feld ablegen
MsgBox arrFileName
'Ich möchte jetzt nur den Pfad und extra nur den Workbooknamen
End Sub

im voraus vielen Dank
mfg Ulf

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: arrFileName
23.05.2006 14:40:42
Dan
'Ich möchte jetzt nur den Pfad und extra nur den Workbooknamen
Dim lngLastBackslashPos As Long
Dim sPfad As String
Dim sWorkbookName As String
lngLastBackslashPos = InStrRev(arrFileName, "\")
If (lngLastBackslashPos &gt 0) Then
sPfad = Left(arrFileName, lngLastBackslashPos)
sWorkbookName = Right(arrFileName, Len(arrFileName) - lngLastBackslashPos)
End If
Gruss Dan
AW: arrFileName
23.05.2006 14:42:48
Ulf
Hallo Dan
Danke klappt super
mfg Ulf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige