Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
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
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Explorer öffnen & Dateien auswählen

Explorer öffnen & Dateien auswählen
04.11.2021 11:30:46
SteffenS
Hallo Zusammen,
ich möchte per VBA gern den Explorer öffnen und mehrere Dateien auswählen.
Hierzu habe ich folgende Pfad erhalten, allerdings kann ich nur eine Datei markieren.
Das funktioniert:
oeffnen = Shell("Explorer /Select," & "C:\Temp\test.txt", vbMaximizedFocus)
Das funktioniert nicht:
oeffnen = Shell("Explorer /Select," & "C:\Temp\*.txt", vbMaximizedFocus)
Gibt es eine Möglichkeit mehrere Dateien zu markieren?
Danke Euch.
VG Steffen

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Explorer öffnen & Dateien auswählen
04.11.2021 12:30:54
Rudi
Hallo,
z.B.

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.InitialFileName = "c:\test\"
If .Show = -1 Then
For i = 1 To .SelectedItems.Count
Workbooks.Open .SelectedItems(i)
Next i
End If
End With
Gruß
Rudi
AW: Explorer öffnen & Dateien auswählen
04.11.2021 13:07:21
SteffenS
Hi,
danke für die Info.
Für mich wäre allerdings wichtig das es über den Explorer funktioniert, da der User mit den selektierten Dateien weiter verfahren soll.
Habt ihr noch eine Idee?
VG Steffen
AW: Explorer öffnen & Dateien auswählen
04.11.2021 13:51:05
volti
Hallo Steffen,
ich fürchte, das wird nicht funktionieren.
Ich habe weder einen speziellen Comandlineschalter für Multiselect gefunden noch funktionieren meine ausprobierten Mehrfachübergaben mit diversen Trennern bzw. die Platzhalterform.
Lasse mich aber auch gerne eines besseren belehren. :-)
Gruß
Karl-Heinz
Anzeige
AW: Explorer öffnen & Dateien auswählen
04.11.2021 14:37:24
Udo
Hallo Steffen,
weis nicht ob das das ist was du suchst ...
schau dir mal das an
https://www.herber.de/bbs/user/148947.xlsm
Hab alles unnötige rausgelöscht und nur die Link Aufnahme & Aufrufen der Link"e" drinn gelassen.
Evtl. musst du es dir halt noch anpassen, bei mir ist es Teil einer grossen Datei, aber damit kannste
in Excel Explorern
LG Udo
AW: Explorer öffnen & Dateien auswählen
04.11.2021 15:50:26
SteffenS
Hi, danke für die tolle Mappe.
Leider benötige ich tatsächlich den Zugriff über den Explorer.
Vielleicht hat jemand ja so etwas schon einmal umgesetzt.
LG Steffen
Anzeige
Welche Funktion...
04.11.2021 16:13:20
Yal
... gibt es bitte sehr im Datei Explorer, die der Dialog nicht ergibt?
Wenn Du das untersucht hast, wirst Du wahrschienlich feststellen, dass alles was Du brauchst vorhanden ist.
Und wenn nicht, wäre die Lösung im Explorer zu suchen und nicht in Excel.
VG
Yal
Explorer öffnen & Dateien auswählen
07.11.2021 16:20:26
Anton
Hallo Steffen,
suchst du sowas?:

Sub b()
 'https://stackoverflow.com/questions/9355/programmatically-select-multiple-files-in-windows-explorer
  Dim objShell As Object, datei As Object, win As Object  
  Dim ordner, auswahl(), gefunden As Boolean, pfad  
  ordner = "C:\temp" 'anpassen
  auswahl = Array("cursor.png", "cursor_1.png", "test.txt") 'anpassen
  gefunden = False
  Set objShell = CreateObject("Shell.Application")  
  objShell.explore ordner
  Do
    For Each win In objShell.Windows  
      If InStr(1, UCase(win.FullName), "EXPLORER") > 0 Then    
        If UCase(win.document.folder.self.Path) = UCase(ordner) Then gefunden = True    
        For Each pfad In auswahl  
          For Each datei In win.document.folder.items  
            If UCase(pfad) = UCase(datei) Then  
              win.document.SelectItem datei, 9
              Exit For  
            End If  
          Next
        Next
      End If  
    Next
  Loop Until gefunden = True  
  Set objShell = Nothing  
End Sub  

mfg Anton
Anzeige
Wechsel des Dateimanagers
08.11.2021 11:16:50
Martin
Hallo Steffen,
im Prinzip sprichst du über VBA den Windows-Explorer per Kommandozeile an. Der Windows-Explorer unterstützt jedoch keine Mehrfachselektion von Dateien per Kommandozeile.
Eine mögliche Alternative wäre die Installation eines zusätzlichen "Dateimanagers" mit Unterstützung der Datei-Mehrfachselektion über Kommandozeile. Zum Beispiel gibt es beim TotalCommander einen solchen Kommandozeilenbefehl "SELECTFILES".
Viele Grüße
Martin

19 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
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
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
Anzeige
Pfad im Windows Explorer mit Überprüfung öffnen?
Sergej

Hallo Anton, hallo Herber-Forum,
ich kann auf dein letzten Beitrag vom 31.12.2017 nicht antworten, da der Beitrag archviert ist: https://www.herber.de/cgi-bin/callthread.pl?index=1598952
Ich habe dein Code getestet in dem ich diesen logischerweise in einem Modul eingefügt und gestartet...
02.01.2018 12:52:59
Thread-ID: 1599745
8 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 - Dateien Auswählen Menü von Windows
Windows

Hallo
Meine Frage:
Ich arbeite zwar nicht mit Excel (sondern mit SolidWorks) aber jetzt bräuchte ich eine "Datei auswählen" Form um mehrere Dateien gleichzeit auszuwählen und dann sollen die Pfade der Dateien in einem Array abgelegt werden. Weis jemand zufällig eine schon fertige Form u...
28.06.2018 12:44:20
Thread-ID: 1631006
7 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
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
2
7
4
4
7
2
6
1
5
3
3
1
7
2
14
1
13
5