Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei über Button einlesen

Forumthread: 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
Anzeige

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
Anzeige
AW: Datei über Button einlesen
17.08.2006 10:38:46
Christian
Super Danke.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige