VBA GetOpenFileNameにアクセスできません

Question

私はWindows 7 office 2010の下で正常に動作するアクセスデータベースを持っていますが、Windows 10 office 2013ではそのコードの1つが機能しません。

ここに問題のあるコードがあります。 Windows 7の

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

End Subの

これまで私は、窓が開いてテキストボックスをクリックしたとき。ウィンドウズ10では何も起こらない場合は何も起こりません。私は、これは動作するはずだと思う

Answer 1

：ワークブック

として

点心のOpenFile

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) 

私は、ファイルをエクセル、その後、trueの場合、ファイルは、その後、私は、ファイルを開くseletedているかどうかを確認するためにフィルタとウィンドウが表示されます。