title image


Smiley Worddateien und PDF Dateien in Dialogfenster anzeigen
Hallo!



Mit



Private Sub CommandButton12_Click()

Dim temp As Boolean

Dim name, path As String

Dim nr As Integer

temp = Application.Dialogs(xlDialogOpen).Show

If temp = True Then

nr = Workbooks.Count

path = Workbooks(nr).FullName

name = Workbooks(nr).name

Workbooks(nr).Close (0)

TextBox17.Text = path

End If

End Sub



werden in einem Öffnen Dialog Fenster alle Excel Dokumente aus einem gewünschten Ordner angezeigt.

Wie müßte ich bitte vorgehen, wenn ich mit dem Öffnen Dialog Fenster auch Word sowie PDF Dateien anzeigen möchte?

Nach der Auswahl einer Datei möchte ich den Pfad plus dem Dateinamen in ein Arbeitsblatt eintragen lassen.



Bei Excel funktioniert es dank Hajo so



Private Sub CommandButton20_Click()

Sheets("Tabelle2").Select

If Range("A1") = "" Then

Range("A1") = TextBox16.Text

Else

Range("a65536").End(xlUp).Offset(1, 0).Value = TextBox16.Text

End If

If Range("B1") = "" Then

Range("B1") = TextBox17.Text

Else

Range("a65536").End(xlUp).Offset(1 - 1, 1).Value = TextBox17.Text

End If

End Sub



Danke



Josef



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: