Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1352to1356
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
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei öffnen Dialog - nur Pfad schreiben

Datei öffnen Dialog - nur Pfad schreiben
17.03.2014 11:04:01
Steffen
Grüßt euch - Mahlzeit.
Kann mir jemand sagen, wie ich den "Datei öffnen"-Dialog bzw "Link öffnen"-Dialog verwenden kann, damit mir der komplette Pfad der ausgewählten Datei in eine Zelle/Variable geschrieben wird? Ich muss die Datei nicht öffnen - brauch nur den Pfad.
Mit Application.Dialogs(xlDialogInsertHyperlink).Show kann ich nicht den kompletten Pfad einlesen, vielleicht hängt es auch dort irgendwo? Ich bekomme statt:
C:\User\Pfad\Unterpfad\Datei.jpg nur Unterpfad\Datei.jpg.
Weiß da jemand Rat?
VG Steffen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei öffnen Dialog - nur Pfad schreiben
17.03.2014 11:25:33
Rudi
Hallo,
eine Möglichkeit: 
Sub aaaa()
Dim sTmp, sPfad As String
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
If .Show = -1 Then
sTmp = .SelectedItems(1)
sTmp = Split(sTmp, "\")
ReDim Preserve sTmp(UBound(sTmp) - 1)
sPfad = Join(sTmp, "\")
End If
End With
End Sub

Gruß
Rudi

AW: Datei öffnen Dialog - nur Pfad schreiben
17.03.2014 13:24:04
Steffen
Perfekt. Habe nur folgendes Codeschnippsel gebraucht:
Private Sub img_photo_Click()
Dim eintrag As Integer
Dim linkphoto As String
'#Neues Foto einstellen#
'Dialog zum Linkerfassen
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
If .Show = -1 Then
linkphoto = .SelectedItems(1)
End If
End With
'Linkphoto in wert_photo schreiben
ThisWorkbook.Sheets("sys").Range("wert_photo") = linkphoto
'Ansicht aktualisieren /
img_photo.Picture = LoadPicture(linkphoto)
Me.Repaint
End Sub
Herzlichsten Dank!!!
Anzeige

302 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