Vba 获取当前windows资源管理器路径
我正在使用shell打开windows资源管理器。 假设我转到桌面并退出windows资源管理器。 我想将我的路径存储到一个字段中,以便以后使用,这样当我重新打开浏览器时,它会将我带回到我所在的路径 以下是我目前掌握的情况:Vba 获取当前windows资源管理器路径,vba,forms,ms-access,Vba,Forms,Ms Access,我正在使用shell打开windows资源管理器。 假设我转到桌面并退出windows资源管理器。 我想将我的路径存储到一个字段中,以便以后使用,这样当我重新打开浏览器时,它会将我带回到我所在的路径 以下是我目前掌握的情况: Dim Foldername As String If ISNULL(Me.myfield.value) Then Foldername = "" Else Foldername = ? End If Shell "C:\WINDOWS\explorer.e
Dim Foldername As String
If ISNULL(Me.myfield.value) Then
Foldername = ""
Else
Foldername = ?
End If
Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus
您可以使用这些东西(未完全测试),这将获取windows资源管理器路径。或者看看使用office对话框,如果你只是得到一个文件路径,也许
' Using Microsoft Internet Controls Reference
Sub c()
Dim w As SHDocVw.ShellWindows
Set w = New SHDocVw.ShellWindows
For i = 0 To w.Count - 1
If w(i).Name = "Windows Explorer" Then
currentdb.Execute "delete * from [mystorage]"
currentdb.Execute "insert into [mystorage] (lastpath) values('" & w(i).LocationURL & "')"
' me.txtPrevExplorer.value=w(i).LocationURL
End If
Next i
End Sub
老实说,我没有比这更进一步的东西了,而且我在网上也找不到任何关于它的东西,所以我很笨。谢谢你的快速回答。我对vba很陌生,那么如何使用代码中的SQL将URL位置存储到像Me.myfield这样的字段中呢。你在4分钟内处理好了吗?????你没有让我生气,很明显你没有付出任何努力。:)祝您愉快。@Nathan_Sav有没有办法将LocationURL设置为其他路径?抱歉,在意识到我可以使用与IE相同的命令后,我找到了它。我使用了:w(I)。导航“C:/Users/[username]/Desktop/”