Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1628to1632
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
Inhaltsverzeichnis

VBA - Dateien Auswählen Menü von Windows

VBA - Dateien Auswählen Menü von Windows
28.06.2018 12:44:20
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 und mit welchen Bibliotheken wird diese eingebunden? die Dateiendungen sind z.B. .sldprt .sldasm

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Dateien Auswählen Menü von Windows
28.06.2018 12:58:46
Windows
Hallo,
z.B.
Sub aaa()
Dim varr(), i
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
If .Show = -1 Then
ReDim varr(1 To .SelectedItems.Count)
For i = 1 To .SelectedItems.Count
varr(i) = .SelectedItems(i)
Next
End If
End With
End Sub

Gruß
Rudi
AW: VBA - Dateien Auswählen Menü von Windows
28.06.2018 13:42:09
Windows
Hallo,
Mir wird dieser Fehler angezeigt, was muss ich importieren damit ich den Code ausführen kann?
Userbild
welche Version hast du? owT
28.06.2018 14:12:05
Rudi
welche Version hast du? owT
28.06.2018 14:12:06
Rudi
AW: welche Version hast du? owT
28.06.2018 14:26:15
fabian
Hallo im Excel VBA funktioniert es aber hab ja den SolidWorks VBA, dort habe ich:
Public xlapp As Excel.Application
Set xlapp = New Excel.Application
Private Sub Auswählen_Click()
Dim varr(), i
With xlapp.FileDialog(msofiledialogtype)
.AllowMultiSelect = True
If .Show = -1 Then
ReDim varr(1 To .SelectedItems.Count)
For i = 1 To .SelectedItems.Count
varr(i) = .SelectedItems(i)
Next
End If
End With
End Sub

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige