访问VBA GetOpenFileName不起作用

Question

我有一个访问数据库，在Windows 7 Office 2010下工作正常。但是在Windows 10 Office 2013中，它的一个代码无效。

这是有问题的代码。

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

End Sub

在Windows 7中，当我点击文本框打开窗口时，

。但在Windows 10中，如果我点击没有任何反应。

Answer 1

我认为这应该有效：

Dim OpenFile As Workbook

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)

我向带有过滤器的窗口显示excel文件，然后检查文件是否为真，然后我打开文件。