Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei über Button einlesen

Datei über Button einlesen
17.08.2006 08:30:50
Christian
Hallo,
habe kleines Problem.
Wie kann ich über einen Button es ermöglichen eine Datei einlesen zu lassen die der Benutzer aber erst aussucht und somit variabel vom Speicherplatz ist.
Gruß
Christian

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

Betreff
Datum
Anwender
Anzeige
AW: Datei über Button einlesen
17.08.2006 08:51:42
EtoPHG
Hallo Christian,
So:

Sub openDatei()
Dim sFileToOpen As Variant
Dim sSaveCurDir As String
Dim sSaveCurDrive As String
On Error Resume Next
sSaveCurDir = CurDir()
sSaveCurDrive = Left(CurDir(), 1)
sFileToOpen = Application.GetOpenFilename("Excel Datei (*.xls), *.xls", , "Excel Datei öffnen")
If sFileToOpen <> False Then
Application.Workbooks.Open (sFileToOpen)
ActiveWorkbook.RunAutoMacros xlAutoOpen
End If
ChDrive (sSaveCurDrive)
ChDir (sSaveCurDir)
On Error GoTo 0
End Sub

Gruss Hansueli
AW: Datei über Button einlesen
17.08.2006 10:38:46
Christian
Super Danke.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige