Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Öffnen Dialog Dateiauswahl

VBA Öffnen Dialog Dateiauswahl
02.11.2006 14:06:24
Micha
Hey Leute
Gesucht wird ein VBA-Script, das einen "Öffnen-Dialog" öffnet, welches dem User ermöglicht, eine Datei auszuwählen, die nach entsprechender Auswahl automatisch weiterverarbeitet wird.
(in der Weiterverarbeitung soll aus dieser Datei der Inhalt aus einer bestimmten Zelle in das Hauptdokument kopiert werden)
hat jemand von euch einen Vorschlag wie ich das realisiere? Danke für eure Hilfe!!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Öffnen Dialog Dateiauswahl
02.11.2006 14:10:18
Rudi
Hallo,
siehe Application.GetOpenFilename
Gruß
Rudi
AW: VBA Öffnen Dialog Dateiauswahl
02.11.2006 14:47:22
Ptonka
Hallo Micha,
ich hatte mal ein ähnliches Problem.
Mein Code öffnet die Suchbox und die ausgewählte Datei wird im u.a. Code inkl. dem
vollständigen Pfad in Zelle B3 und nur der Dateiname in Zelle B5 geschrieben.
Vielleicht kannst Du den Code ja für Deine Zwecke abwandeln.

Sub Datei_finden()
Dim var As Variant
Dim icounter As Integer
Range("B3").Value = ""
Range("B5").Value = ""
Range("B3").Select
var = Application.GetOpenFilename("Alle-Dateien (*.*),*.*,", MultiSelect:=True)
On Error GoTo ERRORHANDLER
For icounter = 1 To UBound(var)
Wert = var(icounter)
'MsgBox icounter & ". Datei von " & UBound(var) & ": " & var(icounter)
Next icounter
Range("B3").Value = Wert
Wertlänge = Len(Wert)
For k = 1 To Wertlänge
Wertrechts = Right(Wert, k)
Slash = Left(Wertrechts, 1)
Select Case Slash
Case Is = "\"
Wertname = Right(Wert, k - 1)
Range("B5").Value = Wertname
GoTo weiter
End Select
Next k
weiter:
Range("B3").Select
Exit Sub
ERRORHANDLER:
Beep
MsgBox "Abbruch !"
Range("B3").Select
End Sub

Liebe Grüße,
Ptonka
Anzeige
AW: VBA Öffnen Dialog Dateiauswahl
02.11.2006 15:42:13
micha
wie funktioniert das mit der Application.GetOpenFilename Methode genau? damit ich anschließend Werte daraus kopieren kann?
AW: VBA Öffnen Dialog Dateiauswahl
02.11.2006 16:15:14
Rudi
Hallo,

Sub tt()
Dim strDatei, wks As Worksheet
strDatei = Application.GetOpenFilename
If strDatei <> False Then
Set wks = Workbooks.Open(strDatei).Sheets(1)
Else
Exit Sub
End If
'hier dann die Daten kopieren
'und die Datei wieder schließen
wks.Parent.Close False
Set wks = Nothing
End Sub
Gruß
Rudi

86 Forumthreads zu ähnlichen Themen

VBA: Dateiöffnen-Dialog?
André

Moin zusammen,
ich möchte in VBA einen Dateiöffnen-Dialog einblenden, in dem der User eine XLSM-Datei auswählen soll. Wenn er den Dialog bestätigt, soll die Datei aber nicht geöffnet werden, sondern den Dateinamen (inkl. Pfad) brauche ich in einer Variablen. Wie mache ich das?
Gruß, And...
15.06.2009 11:23:17
Thread-ID: 1081521
6 Beiträge
Anzeige
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
Anzeige
Fileopen-Dialog sortieren
Pepi

Hallo zusammen
Ist es möglich, in einem Ordner bestimmte Files (*.xls) sortiert nach Filename, Mutationsdatum, etc. aufwärts oder abwärts sortiert anzuzeigen, auszuwählen und zu öffnen.
vielen Dank
mfg
Pepi
16.02.2010 13:23:42
Thread-ID: 1138878
5 Beiträge
Per VBA Excel Datei öffnen und Register wechseln
christoph

Hallo, ich habe als VBA Laie folgendes Problem. Ich möchte im Rahmen eines Makros eine andere bereits geöffnete Exceldatei aktiveren und in dieser neu aktivierten Datei das Registerblatt wechseln - was leider nicht funktioniert. Bisher habe ich folgenden VBA Code zum aktivieren der Datei und...
31.03.2010 15:03:42
Thread-ID: 1149665
9 Beiträge
'Datei öffnen' - Dialog mit Filter
Stefan

Guten Morgen zusammen,
ist zwar noch früh, aber ich frage schon mal in die Runde, ob mir jemand helfen kann.
Ich habe verschiedene Dateien (auch Word, bekomme ich aber mit CreateObject hin), die alle zum Anfang des Dateinamens eine Ordnungszahl (z.B. 130) haben. Nun möchte ich den 'Öffn...
08.04.2010 08:29:26
Thread-ID: 1150564
13 Beiträge
VBA Datei Speichern Unter Dialog mit HTML+Paramete
norman

Hi Leutz,
steh gerade auf dem Schlauch (sonst wäre ich ja nicht hier :)) Excel bietet mir den "Datei Speichern unter"-Dialog ja per VBA an: GetSaveAsFilename.
Jetzt will ich aber HTML speichern, und da gibt es ne Menge Parameter, die ich im GetSaveAsFilename vermisse! (Gesamte Arbeitsma...
17.07.2010 02:36:55
Thread-ID: 1167530
14 Beiträge
Makro auf Dateien anwenden über Dialog
Bernd

Hallo,
ich würde gerne ein bestimmtes Makro auf mehrere Dateien nacheinander anwenden und diese Dateien dann am Ende wieder schließend.
Folgende Schritte sollten abgearbeitet werden:
1.
Ich öffne über eine Art Menüdialog ein Verzeichnis,
2.
Dort kann ich entweder das ge...
28.09.2010 09:45:44
Thread-ID: 1179619
9 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
5
8
1
3
2
4
8
12
13
8
5
3
10
3
5
4
3
3
3
4
6
3
9
1
6