Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

FIledialog unter O2k

Forumthread: FIledialog unter O2k

FIledialog unter O2k
11.12.2004 09:41:51
Justus
Moin, könnte mir bitte mal jemand sagen, wie folgebnder Code für Office2000 umzusetzen ist?
Mit API und dem Kram habe ich echt keinen Schimmer :-(
Sub Bildsuchen()
Dim dlg As FileDialog
Dim si As Variant
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
    With dlg
        'Darf der User mehrere Dateien auswählen - Nein
        .AllowMultiSelect = False
        'Name des Buttons des Dialogs
        .ButtonName = "Bild auswählen"
        'FIlter - welche Dateien darf er auswählen
        .Filters.Add "Bilder", "*.gif; *.jpg; *.jpeg; *.bmp"
        .Filters.Add "Alle", "*.*"
        .FilterIndex = 0
        'Welches Verzeichnis soll geöffnet werden
        .InitialFileName = ThisWorkbook.path
        'Anzeige des Dialogs - die Dateien als Details
        .InitialView = msoFileDialogViewDetails
        'Titel halt
        .Title = "Meine Bilderdatenbank der Züge"
    End With
If dlg.Show = True Then
    
    'Die ABfrage für den selektierten Eintrag
    For Each si In dlg.SelectedItems
    
        If MsgBox("Soll dieses Bild  - " & si & " -  übernommen werden?", vbYesNo + vbQuestion, "Abfrage...!") = vbYes Then
            ActiveCell.Value = Dir(si)
        Else
            MsgBox "Die Aktion wurde abgebrochen", vbCritical, "Abbruch...!"
            Exit Sub
        End If
        
    Next
    
End If
End Sub
Danke für eure Hilfe
Justus
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: FIledialog unter O2k
Tobias
Hallo Justus,
Leider ist es unter Office 2000 nicht so luxuriös, Es kann z.B. kein Text für den 'Open'
Button gesetzt werden auch '.InitialView' kann nicht ausgewählt werden.

Sub Bildsuchen()
Dim varBilder As Variant
ChDir (ThisWorkbook.Path)
varBilder = Application.GetOpenFilename( _
FileFilter:="Bilder, *.gif; *.jpg; *.jpeg; *.bmp, Alle, *.*", _
FilterIndex:=1, _
Title:="Meine Bilderdatenbank der Züge", _
MultiSelect:=False)
If varBilder <> False Then
ActiveCell.Value = varBilder
Else
MsgBox "Die Aktion wurde abgebrochen", vbCritical, "Abbruch...!"
End If
End Sub

Gruss
Tobias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige