Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dialog fileopen

Dialog fileopen
18.04.2005 11:04:14
Martin
Hallo Excel-Gemeinde,
habe folgendes VBA-Problem:
Die Prozedur

Sub öffnen()
Application.Dialogs(xlDialogOpen).Show
End Sub

habe ich ja noch hinbekommen. Gibt es aber darüber hinaus die Möglichkeit hier den Pfad vorzugeben, so dass man nur noch die einzelne Datei auswählt? Ein Tipp wäre nett. Herzlichen Dank im Voraus!
VG, Martin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dialog fileopen
18.04.2005 11:25:19
Ralf
Hallo Martin,
z. B. so:
Option Explicit

Sub öffnen()
Dim strVerzeichnis As String
strVerzeichnis = "C:\Temp"
ChDir strVerzeichnis
Application.Dialogs(xlDialogOpen).Show
End Sub

Hoffe es hilft.
Gruß
Ralf
AW: Dialog fileopen
18.04.2005 11:38:39
Martin
Hm, macht er irgendwie nicht. habe nur einen anderen Pfad angegeben:

Sub öffnen()
Dim strVerzeichnis As String
strVerzeichnis = "O:\abc Schriftart.u. Logos W95-NT"
ChDir strVerzeichnis
Application.Dialogs(xlDialogOpen).Show
End Sub

Wird dennoch der Standard-Pfad angezeigt. Gibt's noch 'ne andere Möglichkeit?
Gruß, Martin
Anzeige
AW: Dialog fileopen
18.04.2005 12:00:18
Ralf
Hallo Martin,
arbeite mit der UNC-Pfad, da der Laufwerksbuchstabe veränderbar ist.

Sub öffnen()
Application.Dialogs(xlDialogOpen).Show ("\\Server-co\Web\Eigene Webs\cdhall") 'anpassen
End Sub

Hoffe es hilft.
Gruß
Ralf

115 Forumthreads zu ähnlichen Themen

VBA: getopenfilename in pt-sourcedata einfügen
Peter

Hallo.
Ich möchte per Makro für ein pt mittels Öffnen-Methode eine andere Excel-Datei (mit Bereich "data") als Datenquelle zuordnen. Mit dem ua VBA-Code sind die Datentypen nicht verträglich.
Bitte und Danke. lg. Sub OPEN_PROGNOSE() Dim Fname As Variant Dim srcdata As String ' Change dr...
06.10.2015 18:39:19
Thread-ID: 1451092
2 Beiträge
Anzeige
VBA GetOpenFileName
Frank

Hallo,
ich habe folgendes Problem. Ich habe mir ein Makro erstellt, dass
so aussieht:
Sub Öffne_Anästhesie()
' Öffne_Anästhesie Makro
' Makro am 05.05.2003 von Thelen aufgezeichnet
ChDir "c:\daten\Dienstpläne\Anästhesie\2003"
Application.GetOpenFilename
End Sub<...
05.05.2003 11:40:44
Thread-ID: 252279
4 Beiträge
openfiledialog auch ohne steuerelement?
flostel

hallo ...
ist es möglich einen openfiledialog auch ohne steuerelement einzubauen?
danke
07.03.2005 10:33:49
Thread-ID: 581205
6 Beiträge
Anzeige
xlDialogOpen/FindFile ohne Open
Thomas

Hallo Experten,
kennt jemand eine Möglichkeit, den OpenFileDialog einzublenden und nur den ausgewählten Dateinamen zurückzugeben, ohne die ausgewählte Datei zu öffnen?
Mit dem Befehl Application.Dialogs(xlDialogOpenFile).Show bzw. Application.Dialogs(xlDialogFindFile).Show
wird d...
27.11.2007 14:08:00
Thread-ID: 930107
3 Beiträge
VBA Txt-File sichern über Dialog
W
Hallo Forum,
ich möchte mir gelegentlich Informationen aus einem bestimmten Tabellenblatt als externe File (z. B. ".txt") sichern. Dabei möchte ich aber weder den Pfad noch den File-Namen vorgeben. Das sollte dann im Save-As-Dialog bestimmt werden. Danach möchte ich allerdings den Pfad und den N...
28.05.2021 15:10:44
Thread-ID: 1833062
2 Beiträge
Application.FileDialog(msoFileDialogSaveAs)
Philipp

Hallo,
ich möchte nur bestimmte Dateiformate beim speichern zulassen. Die Filterfunktion funktioniert hier nicht (oder jedenfalls bei mir)
Sub test Set oFileDialog = Application.FileDialog(msoFileDialogSaveAs) With oFileDialog .Title = "Auto Report Save as" .ButtonName = "speichern" ....
02.12.2009 13:51:33
Thread-ID: 1121409
5 Beiträge
Application.FileDialog(msoFileDialogSaveAs)
Philipp

Hallo,
ich möchte nur bestimmte Dateiformate beim speichern zulassen. Die Filterfunktion funktioniert hier nicht (oder jedenfalls bei mir)
Ich arbeite übrigens in WORD und dort gibt es die Application.GetSaveAsFilename Anweisung nicht.
Sub test Set oFileDialog = Application.FileDia...
03.12.2009 16:39:39
Thread-ID: 1121602
2 Beiträge
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
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
5
3
5
4
2
1
4
1
4
5
16
1
5
2
1
5
9
3
5
6
4
2
5
8