TXT处理.rar
以下是引用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里直接转过来的，后来研究了下已经却换成你说的方法了，谢谢