Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1680to1684
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Unterordner öffnen nur Teilstring bekannt

VBA Unterordner öffnen nur Teilstring bekannt
21.03.2019 12:09:38
difi
Hallo Zusammen,
wie kann ich per VBA einen Unterordner öffnen bei dem nur ein Teilstring bekannt ist.
bsp.
D:/Test/
Unterordner (XXX abcd XXXXXX)
Der Teilstring [bsp. "abcd"] ist Variabel und steht in einer Zelle A2
Wie kann ich das an Shell "Explorer.exe /e übergeben.
Ich wäre Dankbar für eure Hilfe
LG

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Unterordner öffnen nur Teilstring bekannt
21.03.2019 13:37:37
Nepumuk
Hallo,
warum einen Ordner in Windows öffnen? Was hast du damit vor?
Gruß
Nepumuk
AW: VBA Unterordner öffnen nur Teilstring bekannt
21.03.2019 13:49:54
difi
Hallo Nepumuk
ich möchte über den Ordner eine Datei aus dem vorhandenen Inhalt öffnen.von
Es können Officedateien sein aber auch CAD Dateien.
Desweiteren können auch noch weitere Unterordner vorhanden sein.
Gruß
difi
AW: VBA Unterordner öffnen nur Teilstring bekannt
21.03.2019 15:48:32
Nepumuk
Hallo,
teste mal:
Option Explicit

Public Sub Beispiel()
    Const FOLDER_PATH As String = "D:/Test/" 'Anpassen
    Dim astrFolders() As String
    Dim ialngFolders As Long
    astrFolders = GetFolders(FOLDER_PATH)
    For ialngFolders = LBound(astrFolders) To UBound(astrFolders)
        If astrFolders(ialngFolders) Like "*" & Cells(2, 1).Text & "*" Then
            Call Shell(PathName:="Explorer.exe /e " & _
                astrFolders(ialngFolders), WindowStyle:=vbNormalFocus)
            Exit For
        End If
    Next
End Sub

Private Function GetFolders(ByVal pvstrPath As String) As String()
    Dim astrFolders() As String
    Dim strFolder As String, strPath As String
    Dim ialngIndex1 As Long, ialngIndex2 As Long
    Redim Preserve astrFolders(ialngIndex1)
    astrFolders(ialngIndex1) = pvstrPath
    ialngIndex1 = 1
    ialngIndex2 = 1
    strPath = pvstrPath
    Do
        strFolder = Dir$(strPath & "*", vbDirectory)
        Do Until strFolder = vbNullString
            If strFolder <> "." And strFolder <> ".." Then
                If GetAttr(strPath & strFolder) And vbDirectory Then
                    Redim Preserve astrFolders(0 To ialngIndex1)
                    astrFolders(ialngIndex1) = strPath & strFolder & "\"
                    ialngIndex1 = ialngIndex1 + 1
                End If
            End If
            strFolder = Dir$
        Loop
        If ialngIndex1 = ialngIndex2 Then Exit Do
        strPath = astrFolders(ialngIndex2)
        ialngIndex2 = ialngIndex2 + 1
    Loop
    GetFolders = astrFolders
End Function

Gruß
Nepumuk
Anzeige
AW: VBA Unterordner öffnen nur Teilstring bekannt
22.03.2019 06:19:45
difi
Hallo Nepumuk
der Code Funktioniert leider nicht.... geöffnet wird der Ordner Dokumente im aktuellen User Verzeichnis.
Gruß
difi
AW: VBA Unterordner öffnen nur Teilstring bekannt
22.03.2019 08:02:22
Nepumuk
Hallo,
gibt es den Ordner:
Const FOLDER_PATH As String = "D:/Test/" 'Anpassen
überhaupt?
Gruß
Nepumuk

245 Forumthreads zu ähnlichen Themen

Mit VBA Explorer mit bestimmten Verzeichnis öffnen
Martin

Hallo liebe Excelianer,
bislang habe ich (unter Windows XP und Excel 2003) über VBA das Verzeichnis, in dem sich meine Exceldatei befindet, über folgendes Makro geöffnet:
Sub Pfad() Shell "Explorer ," & Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - Len( _ ThisWorkbook.Nam...
21.12.2009 18:56:33
Thread-ID: 1125440
2 Beiträge
Anzeige
Datei mit VBA öffnen im selben Ordner
Hei.Fisch

Hallo werte Excel und VBA-Gemeinde,
ich komme hier leider nicht weiter:
Ich möchte die Datei Kundenanalyse per VBA öffnen. Sie liegt im gleichen Ordner wie
die Excel-Datei, die das VBA-Programm enthält. Dieses soll die Datei Kundenanalyse öffnen, aus den darin enthaltenen Daten neu...
06.06.2011 11:37:51
Thread-ID: 1217411
3 Beiträge
vba Bestimmten Ordner öffnen
Andre
Hallo liebes forum,
kann mir jemand eine hilfestellung geben, ich habe eine userform auf dieser ist eine textbox die wird mein öffnen automatisch gefüllt.
nun will ich den dazugehörigen ordner mit button öffnen und den inhalt anzeigen lassen.
Danke
11.01.2015 07:23:40
Thread-ID: 1402032
8 Beiträge
Anzeige
Datei öffnen mit Datumsabhängigen Pfad & Namen
Matthias

Hallo liebe Experten :)
ich hab mal wieder ein Problem bei VBA :(
Ich will im Makro ein neues Workbook öffnen - soweit so gut bekomm ich das auch hin. Jetzt ist das allerdings ein Makro was ich monatlich ausführen muss und die zu öffnende Datei ändert sich auch jeden Monat und auch der...
08.11.2016 12:20:34
Thread-ID: 1523677
6 Beiträge
VBA Unterordner Tabelle öffnen
Mia

Hi,
For Each myfolder In folder.SubFolders
MsgBox (myfolder.Name)
If myfolder.Name Like "Ordner*" Then
fso.OpenTextFile (myfolder)
End If
Next
alles was dick markiert ist funktioniert ich möchte aber im letzten Schritt die Excel file im Ordner öffnen und in dieser ei...
02.03.2018 14:02:05
Thread-ID: 1611964
3 Beiträge
VBA Ordner suchen und öffnen
Dominic

Moin,
Ich habe in einer Excel Tabelle Projektnummern und jedes Projekt hat einen Ordner auf dem Server, kann ich mittels VBA im Ordner auf dem Server Projekte (wo die Unterordner der Projekte drin sind) den Ordner des Projekts mittels der Projektnummer finden? Der name der Projektordner ist...
22.11.2018 16:53:06
Thread-ID: 1658997
2 Beiträge
vba - explorerfenster für Profies
Heiko
Hallo erst mal,
hallo Profies.
Ich möchte meine Daten CD's archivieren.
Wie kann ich die cd struktur (Tree) über VBA speichern, so dass sie wie im
exlorer mit + bzw - gespeichert wir und ich die unterverzeichnisse durchklicken kann.
keine textdatei.
für eine Lösung wäre ich dankb...
04.05.2004 23:24:09
Thread-ID: 424278
4 Beiträge
VBA Ordner per Schleife öffnen
Excel

Hallo zusammen,
Ich habe einen Ordner auf dem Desktop (Projekt). In diesem befinden sich mehrere Unterordner. Diese besitzen widerum jeweils 2 bis 3 weitere Unterordner, in welchen sich widerum PDF Dateien befinden.
Wie schaffe ich es die PDFs zu auszuschneiden und eine Ebene höher einz...
09.12.2020 10:57:53
Thread-ID: 1798551
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
2
7
6
5
2
1
3
3
1
2
1
1
13
1
3
4
2
1
8
5
3
2
3