[求助]Application.GetOpenFilename报错
写了个处理文档的代码，换了个机器运行的时候Application.GetOpenFilename报错。百度了下说是缺少dao.dll文件，按照网上的办法加载还是不行，麻烦大家帮忙看下应该怎么解决，或者有没有其他的办法可以浏览电脑中的文档
TXT处理.rar
(10.13 KB)
以下是引用apull在2022-4-10 02:10:24的发言：
Application.GetOpenFilename 这玩意是VBA的，vb里没有这个
vb要用CommonDialog控件。也可以也可以代码实现
Dim fileDlg As Object
Set fileDlg = CreateObject(")
fileDlg.DialogTitle = "选择文件"
fileDlg.Filter = 文本文件|*.txt|"
fileDlg.FilterIndex = 2
fileDlg.ShowOpen
If fileDlg.FileName <> "" Then
F1$=fileDlg.FileName
Else
msgbox "没有选择文件"
return
End If
Application.GetOpenFilename 这玩意是VBA的，vb里没有这个
vb要用CommonDialog控件。也可以也可以代码实现
Dim fileDlg As Object
Set fileDlg = CreateObject(")
fileDlg.DialogTitle = "选择文件"
fileDlg.Filter = 文本文件|*.txt|"
fileDlg.FilterIndex = 2
fileDlg.ShowOpen
If fileDlg.FileName <> "" Then
F1$=fileDlg.FileName
Else
msgbox "没有选择文件"
return
End If
之前是vba里直接转过来的，后来研究了下已经却换成你说的方法了，谢谢