calls the browse folder window Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

'32-bit API declarations

Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Function GetDirectory(Optional Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(Msg) Then
bInfo.lpszTitle = "Select a folder."
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Range("A1") = GetDirectory
Else
GetDirectory = ""
End If
End Function

No	Macro Name
1	calls the browse folder window
2	lists all macros in macros in excel files in a folder of your choice
3	excel operators hk
4	dialog box without userform
5	calculator on / off
6	create shortcut to desktop
7	desktop icon creation
8	prints all sheet / pages with data or scans but does not print
9	Search for a word in 30 excel files
10	specify file path and extension list in detail
11	show file path list in detail fields of files file path etcâ € ¦
12	browse folder xls list
13	specify the number of copies to print from the printer
14	send alert e-mail from microsoft outlook
15	open my documents folder with alt + f4
16	excel fonts 2
17	Organize paths in folder and file macros
18	folder opening
19	Inputbox add year as summer
20	inserts months as sheet / pages Specifies days in detail

Excel Free Macros (VBA)

Calls The Browse Folder Window

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords