使用VBS浏览本地文件的3种方式，获取完整路径（vbs打开网页）干货分享

文章摘要

本文介绍了一种通过VBA脚本在IE浏览器中选择文件的方法，展示了如何利用VBA编写代码来实现这一功能。文章详细描述了函数`BrowseForFile()`的实现过程，包括创建IE对象、设置窗口大小、显示选择框、捕获用户点击的文件路径以及处理文件选择结果。通过执行该函数，可以在IE中打开一个带有输入框的对话框，用户可以选择一个文件路径，最终将路径返回给调用方。文章重点突出了代码的逻辑和关键步骤，适合需要在IE中进行文件选择操作的用户参考。

Function BrowseForFile( )
‘===========2, fileselect in IE======================’Another way to get file path
Dim objIE, strSelected
BrowseForFile=””
Set objIE=CreateObject( “InternetExplorer.Application” )
objIE.ToolBar=False
objIE.Resizable=False
objIE.StatusBar=False
objIE.Width=300
objIE.Height=100
objIE.visible=True
objIE.Navigate( “about:blank” )
Do Until objIE.ReadyState=4
Loop
‘ Center the dialog window on the screen
With objIE.Document.ParentWindow.Screen
objIE.Left=(.AvailWidth – objIE.Width ) \ 4
objIE.Top=(.Availheight – objIE.Height) \ 4
End With
objIE.Document.Write “<HTML><BODY><INPUT ID=””FileSelect”” NAME=””FileSelect”” TYPE=””file””><BODY></HTML>”
With objIE.Document.all.FileSelect
.focus
.click
strSelected=.value
End With
objIE.Quit
Set objIE=Nothing
If Trim(strSelected)=”” Then
Msgbox “You selected no file.”
Wscript.Quit
End If
BrowseForFile=strSelected
End Function

BrowseForFile