Zugriff VBA GetOpenFileName funktioniert nicht

Question

Ich habe eine Zugriffsdatenbank, die unter Windows 7 Office 2010 gut funktioniert. Aber in Windows 10 Office 2013 ein Code davon funktioniert nicht.

Hier ist der Code, der ein Problem hat.

Private Sub Text0_Click() 
Dim s As String 
s = MyGetOpenFileName 
Me.Text0.Value = s 

End Sub

in windows 7, wann immer ich öffne die Textbox die Fenster klicken. aber in Windows 10 wenn ich klicke passiert nichts.

Answer 1

ich denke, das sollte funktionieren:

Dim Openfile als Arbeitsmappe

fPath = Application.GetOpenFilename(FileFilter:="Excel files, *.xl; *.xlsx; *.xlsm; *.xlsb; *.xlam; *.xltx; *.xls; *.xlt ", Title:="You can type the title for Your window here") 

If fPath = False Then 
    Exit Sub 
End If 

Set OpenedFile = Workbooks.Open(fileName:=fPath, UpdateLinks:=0, IgnoreReadOnlyRecommended:=True) 

ich das Fenster mit Filter zeigen Dateien in Excel und dann prüfen, ob Datei dann, wenn wahr seleted I Datei öffnen.