Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Open File VBA

Betrifft: Open File VBA von: Riman
Geschrieben am: 13.10.2014 12:49:21

Hallo,

ich möchte eine Opendialog zur der Code haben,hier öffne ich nur diese Excel Datei. Ich möchte das die Opendialog geöffnet wird, und ich mir die Datei aussuchen kann, die dann in die Variable MyGrossFileName übergeben wird.

MyGrossFileName = ActiveWorkbook.Path & "\Erfassungsliste_FITS_FN.xls"

Function openGross() As Boolean

    Dim MyGrossFileName As String
    Dim fso As Object
    Dim sFile As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    MyGrossFileName = ActiveWorkbook.Path & "\Erfassungsliste_FITS_FN.xls"
    
 
    MyWorkBook = ThisWorkbook.Name
    
    If fso.FileExists(MyGrossFileName) Then
        Set GrossWS = Workbooks.Open(MyGrossFileName)
        openGross = True
    Else
        openGross = False
        MsgBox ("File not found: " & MyGrossFileName)
    End If
    
End Function

  

Betrifft: AW: Open File VBA von: Steffi
Geschrieben am: 13.10.2014 13:04:14

Hallo,

meinst du so etwas in dieser Richtung?

    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Titel"
        .InitialFileName = "C:\"
        .AllowMultiSelect = False
        .Filters.Clear
        .Show
 
        If .SelectedItems.Count = 1 Then
            MyGrossFileName = .SelectedItems(1)
        End If

    End With
Gruß Steffi


  

Betrifft: AW: Open File VBA von: Riman
Geschrieben am: 13.10.2014 13:12:25

Das kenne ich, aber ich will die Einstellung zur der Code, also die Augewählte Datei soll in die Variable MyGrossFileName übergeben werden.


  

Betrifft: AW: Open File VBA von: Oberschlumpf
Geschrieben am: 13.10.2014 13:16:48

Hi

in der Zeile

MyGrossFileName = .SelectedItems(1)

wird die markierte Datei an die Variable MyGrossFileName übergeben - so, wie du es haben möchtest.

Hast du den Code von Steffi denn mal getestet?
Woran scheitert es?

Zeig uns mal die Datei, in der du den Code getestet hast. Vielleicht wird an einer anderen Stelle im Code der Inhalt von MyGrossFileName wieder ungewollt gelöscht.

Ciao
Thorsten


  

Betrifft: AW: Open File VBA von: Steffi
Geschrieben am: 13.10.2014 13:17:29

Das wird sie aber doch hier an dieser Stelle:

MyGrossFileName = .SelectedItems(1)

Gruß Steffi


  

Betrifft: AW: Open File VBA von: Riman
Geschrieben am: 13.10.2014 13:24:55

Ich entschulige mich sehr, die Code von Steffi hat jetzt funktioniert!

Danke an Alle :)