Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Common File Operations Simplified

Sub TestGetFile()      Dim nIndex As Integer      Dim sFile As String      sFile = GetExcelFile("Testing GetExcelFile Function")      If sFile = "False" Then          Debug.Print "No file selected."          Exit Sub      End If      Debug.Print sFile  End Sub  Function GetExcelFile(sTitle As String) As String      Dim sFilter As String      Dim bMultiSelect As Boolean      sFilter = "Workbooks (*.xls), *.xls"      bMultiSelect = False      GetExcelFile = Application.GetOpenFilename(FileFilter:=sFilter, _          Title:=sTitle, MultiSelect:=bMultiSelect)  End Function