Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
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
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfad im Windows Explorer öffnen?

Pfad im Windows Explorer öffnen?
26.12.2017 21:42:31
Sergej
Hallo Leute,
ich habe eine Frage: Ist es möglich im Code (s. unten) eine Überprüfung einzubauen, ob das Verzeichnis bereits im Windows Explorer Sitzung geöffnet ist, bevor es nochmal geöffnet wird?
Sub test()
strFullPath = "C:\Export\2017"
If Dir(strFullPath, vbDirectory)  "" Then
Shell Environ("WinDir") & "\explorer.exe /n,/e," & strFullPath, vbNormalFocus
Else
MsgBox "Pfad nicht vorhanden!", vbCritical
End If
End Sub
Beste Grüße,
Sergej

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

Betreff
Datum
Anwender
Anzeige
AW: Pfad im Windows Explorer öffnen?
26.12.2017 22:28:16
EtoPHG
Hallo Sergej,
Ganz einfach: 
Sub test()
Static bOpened As Boolean
Dim strFullPath As String
strFullPath = "C:\Export\2017"
If Dir(strFullPath, vbDirectory)  "" Then
Shell Environ("WinDir") & "\explorer.exe /n,/e," & strFullPath, vbNormalFocus
Else
MsgBox "Pfad " & IIf(bOpened, "immer noch", "") & " nicht vorhanden!", vbCritical
End If
bOpened = True
End Sub
Gruess Hansueli
AW: Pfad im Windows Explorer öffnen?
26.12.2017 22:52:57
Sergej
Hallo Hansueli,
da haben wir uns mißverstanden. In meinem Fall existiert das Verzeichnis, dann wird zum erstmal Windows Explorer in dem vordefiniertem Pfad geöffnet. Soweit OK.
Wenn ich jetzt nochmals / zum zweiten Mal das Makro ausführe, sollte vorher geprüft werden, ob Windows Explorer Prozzes in dem vordefiniertem Pfad bereits geöffnet ist. Falls ja, dann nicht zum zweiten Mal Windows Exolorer in selbem Pfad öffnen.
Beste Grüße,
Sergej
Anzeige
Pfad im Windows Explorer öffnen?
27.12.2017 15:41:43
Anton
Hallo Sergej,
so?:
Code:

Sub bb()
  Dim objShell As Object, win As Object  
  Dim strFullPath As String, gefunden As Boolean    
  strFullPath = "C:\temp\pdf s" 'Pfad anpassen
  gefunden = False
  If Dir(strFullPath, vbDirectory) <> "" Then  
    Set objShell = CreateObject("Shell.Application")  
    For Each win In objShell.Windows  
      If InStr(1, UCase(win.FullName), "EXPLORER") > 0 Then    
        If LCase(win.document.folder.self.Path) = LCase(strFullPath) Then  
          AppActivate win.locationname
          gefunden = True
          Exit For  
        End If  
      End If  
    Next
    If gefunden = False Then objShell.explore (strFullPath)  
    Set objShell = Nothing  
  Else
    MsgBox "Pfad nicht vorhanden!", vbCritical
  End If  
End Sub  

mfg Anton
Anzeige
AW: Pfad im Windows Explorer öffnen?
30.12.2017 17:36:14
Sergej
Hallo Anton,
ich habe es getestet. Bei mir wird das Windwos Explorer trotzdem jedes Mal im selbem Pfad geöffnet.
Beste Grüße,
Sergej
wie hast du es getestet?
31.12.2017 14:21:56
Anton
Hallo Sergej,
kannst du hier dein Code posten?
mfg Anton

15 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
Label click Windows Explorer öffnen
Noureddine

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Formular erstellt mit einem Label. Ich möchte gerne, sobald ich das Label anklicke, das der Windows Explorer sich öffnet, jedoch möchte ich auch bestimmen welches Verzeichnis sich als Startbildschrim öffnet.
Kann mir hier jema...
28.09.2015 16:47:06
Thread-ID: 1449798
5 Beiträge
Datei im IE 11 Explorer mit VBA öffnen
Bernd

Hallo Forum,
ich möchte im Internet Explorer 11 im Fenster "Downloads anzeigen und nachverfolgen" den Button "Öffnen" mit VBA ansprechen, um eine heruntergeladene Datei zu öffnen.
Wie geht das?
Meine bisherige Suche im Internet war erfolglos...
03.02.2017 12:52:11
Thread-ID: 1539223
5 Beiträge
Anzeige
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 Unterordner öffnen nur Teilstring bekannt
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...
21.03.2019 12:09:38
Thread-ID: 1682533
6 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
7
4
4
7
2
1
5
3
3
1
2
14
1
13