[color=lightgreen]'[/color]
[color=blue]Sub[/color] GetTextFileAlan()
[color=blue]Dim[/color] strFileName [color=blue]As[/color] [color=blue]String[/color]
[color=blue]Let[/color] strFileName = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt") [color=lightgreen]' prompt user for a FileName[/color]
[color=blue]If[/color] strFileName = [color=blue]False[/color] [color=blue]Then[/color]
MsgBox "You did't select a text file!", vbExclamation, "Canceled"
[color=blue]Exit[/color] [color=blue]Sub[/color] [color=lightgreen]' user cancelled, so get out of Sub[/color]
[color=blue]Else[/color]
[color=blue]End[/color] [color=blue]If[/color]
[color=lightgreen]'[/color]
[color=blue]End[/color] [color=blue]Sub[/color] 'GetTextFileAlan()
[color=lightgreen]'[/color]
'
[color=blue]Sub[/color] GetFileAlan()
[color=blue]Dim[/color] StrOpenFileTypesDrpBx [color=blue]As[/color] [color=blue]String[/color] [color=lightgreen]'The Drop Box options in GetOpenFilename Dialogue Window[/color]
[color=blue]Let[/color] StrOpenFileTypesDrpBx = "Excel (*.xlsx),*.xlsx,OpenOffice (*.ods),*.ods,All Files (*.*),*.*,ExcelMacros (*.xlsm),.xlsm"
[color=lightgreen]'"DrpBxMsg1(DisplydFileType1),*.DisplydFileType1 , DrpBxMsg1(DisplydFileType2),*.DisplydFileType2 , DspBxMsg3(..etc...."[/color]
[color=blue]Dim[/color] strFileName [color=blue]As[/color] [color=blue]String[/color] [color=lightgreen]'Complete Path on Computer string[/color]
[color=blue]Let[/color] strFileName = Application.GetOpenFilename(StrOpenFileTypesDrpBx, 1, "Name up left in Dialogue box", , [color=blue]False[/color]) [color=lightgreen]'All optional Arguments[/color]
[color=lightgreen]''("DrpBxMsg1(DisplydFileType1),*.DisplydFileType1 , DspBxMsg2(..etc....", Default DrpBx Index , "DialogueWindow(Form)Name" , Button-Mac Only , MultipleFileSelectionOption )[/color]
[color=blue]If[/color] strFileName = [color=blue]False[/color] [color=blue]Then[/color]
MsgBox "You did't select a file!", vbExclamation, "Canceled"
[color=blue]Exit[/color] [color=blue]Sub[/color] [color=lightgreen]' user cancelled, so get out of Sub[/color]
[color=blue]Else[/color]
[color=blue]End[/color] [color=blue]If[/color]
[color=lightgreen]'[/color]
[color=blue]End[/color] [color=blue]Sub[/color] 'GetFileAlan()