[求助]Application.GetOpenFilename报错 - 编程论坛

#2

apull2022-04-10 02:10

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

#3

独木星空2022-04-10 22:04

回复楼主 loyxqing

提问，回答，都是一种艺术。会提问者，懂得问题的症结；能回答者，精通问题之要害。

#4

loyxqing2022-04-12 09:13

以下是引用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

之前是vba里直接转过来的，后来研究了下已经却换成你说的方法了，谢谢