发布网友 发布时间:2022-04-24 10:55
共1个回答
热心网友 时间:2023-10-10 15:11
以下代码,楼主可以参考,打开文件夹,选择文件后自动打开
Sub text()
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = ThisWorkbook.Path & "\"
.Title = "请选择对应文本文件"
.AllowMultiSelect = False
If .Show Then f = .SelectedItems(1) Else Exit Sub '
End With
Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler " & f, vbMaximizedFocus
End Sub