Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Pfad in TextBox eintrgaen
02.04.2006 13:25:30
Josef
Hallo!
Ich würde bitte folgende VBA Lösung suchen:
Wenn ich über ein Öffnen Dialog Fenster eine Datei, egal ob Excel Oder Word auswähle, dann soll der komplette Pfad incl. Dateinamen in eine TexBox eingetragen werden.Die Einträge in der Textbox sollen dann in ein Arbeitsblatt der Reihe nach in die Spalte B eingetragen werden.
Danke
Josef

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

Betreff
Datum
Anwender
Anzeige
Den Namen der jeweiligen Datei habe ich aber..
02.04.2006 14:19:36
Josef
Hallo!
Der Name der gewünschten Datei wird in die Zelle eingetragen, jedoch fehlt mir noch die Pfadangabe dazu.
Dim temp As Boolean
Dim name, path As String
Dim zahl As Integer
Dim strTemp As String
Dim lc As Integer
Dim Kanal As Byte
Dim laenge As Long
Dim DatLaenge As Integer

Private Sub CommandButton1_Click()
temp = Application.Dialogs(xlDialogOpen).Show
If temp = True Then
zahl = Workbooks.Count
path = Workbooks(zahl).FullName
name = Workbooks(zahl).name
Workbooks(zahl).Close (0)
TextBox1.Text = name
Cells(1, 1) = TextBox1.Text
End If
End Sub

Josef
Anzeige
AW: Den Namen der jeweiligen Datei habe ich aber..
02.04.2006 16:33:54
chris
Hallo Josef,
wenn ich dich richtig verstanden habe hilft dir das.
Dim temp As Boolean
Dim name, path As String
Dim zahl As Integer
Dim strTemp As String
Dim lc As Integer
Dim Kanal As Byte
Dim laenge As Long
Dim DatLaenge As Integer

Private Sub CommandButton1_Click()
temp = Application.Dialogs(xlDialogOpen).Show
If temp = True Then
zahl = Workbooks.Count
path = Workbooks(zahl).FullName
name = Workbooks(zahl).name
Workbooks(zahl).Close (0)
TextBox1.Text = path
Cells(1, 1) = TextBox1.Text
End If
End Sub

Rückmeldung wäre nett !
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige