Supportnet / Forum / Tabellenkalkulation

Hallo an alle, kann mir jemand bitte sagen wie ich ein bestimmten ordner name per vba ermitteln. dieser ordner liegt immer fix unter folgendem pfad C:\Programme\Gemeinsame Dateien\Name Dieser ordner ("Name") hat immer den namen des User danke an alle die mir tipps geben gruss Horidoo

Hallo!

Hiermit kriegst Du den Namen des Users:
MsgBox "Excel-Benutzername: " & Application.UserName

Was meinst Du nun mit "ermitteln"? Du weißt jetzt zumindest, wie er heißen müsste. Ob er existiert, ist eine andere Frage.

Gruß,
CaroS

Hi Caros,

eigentlich würde ich gerne den ordner name ermitteln wollen.

ist den der weg das gleiche
gruss
Horidoo

Hi,

folgendes Makro listet alle Excel - Tabellen in aufgeführtem Pfad auf:

Sub Dateisuchen()
Dim strMldg As String
Dim Pfad As String
Dim i As Integer
Pfad = "C:\Programme\Gemeinsame Dateien"

With Application.FileSearch
ChDir Pfad
 .LookIn = Pfad
 .SearchSubFolders = True
 .FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
 For i = 1 To .FoundFiles.Count
  strMldg = strMldg & Chr(10) & .FoundFiles(i)
 Next i
  MsgBox strMldg, vbInformation, "gefundene Dateien"
Else: End If
End With
End Sub

Oh, ich les gerade, du willst gar nicht Dateien sondern Ordner auslesen? Keine Ahnung, in dem Beispiel werden zumindest die Subfolder mit aufgeführt. Wäre dann natürlich sinnvoll zu wissen, was vom Prinzip her drin steht an Dateien, hier wird im Beispiel nur nach Excel - Dateien gesucht, gibt aber noch mehr Möglichkeiten.
Sozusagen als Arbeitsanregung.

Gruß Primut

hi primus,

ich möchte nur den namen des ordners der unter folgenden pfad liegt
C:\Programme\Gemeinsame Dateien\Name


dieser ordner mit "name" fängt immer mit axx1* an

gruss

Horidoo

Hey,

mir ist leider nicht ganz klar, was du überhaupt willst!
Du bist hier vom Prinzip her in einem Forum für Tabellenkalkulation mit großem Schwerpunkt Excel gelandet.
Das hat erstmal ziemlich wenig mit Namen von unbekannten Ordnern suchen zu tun!
Sicherlich läßt sich Excel auch mittels VBA programmieren, und wie sich Dateien in entsprechendem Pfad anzeigen lassen, habe ich mit angeführtem Makro gezeigt. Von der Sache her ist das schon die Hälfte, wie sich nur Ordner suchen lassen ohne Dateien ist mir nicht bekannt, wenn es überhaupt geht, das wäre auch noch die Frage!
Wenn du ein spezielles Excel-Problem mit dem Ordner hast, erklär es einfach genauer, vielleicht gibt es ja noch andere Möglichkeiten.

Im übrigen
warum schaust du nicht einfach nach?

Gruß Primut

Hallo

 Sub Ordner_auflisten()
Dim a$, i%,Pfad$
pfad = "C:\Programme\Gemeinsame Dateien\Name\"
ActiveSheet.Columns("C:C").ClearContents
a = Dir(pfad, vbDirectory)
Do Until a = ""
a = Dir
    If a <> "." And a <> ".." Then
      If (GetAttr(pfad & a) And vbDirectory) = vbDirectory Then
        i = i + 1
        Cells(i, 3) = a
        End If
    End If
Loop
ActiveSheet.Columns("C:C").AutoFit
End Sub

Gruß[h3]{[h1]^Ó_¤[sup...fürLau

• Batch Anzahl Ordner ermitteln XP
• Suchfunktion in Excel
• Firefox Pfad ermitteln