Help with inputbox

[daniels012]

I have code written with an input box that works fine.

myFile = InputBox("Enter a file name")
If myFile = "" Then Exit Sub

I would like to somehow let the user see the available file names to chose from while the input window open. Is this possible? The file names are in the directory c:\estimating\

 

[Ivan F Moala]

Hi daniels012

You will be better served by using the Excel functions for the FileOpen operations rather then an Inputbox. (if I understand you correctly)

Basic syntax for this is;

Sub GetOpen()
Dim StrCurDir As String
Dim vFileName As Variant

'// Store current Dir
StrCurDir = CurDir
'// Change to the Dir you need to lookin otherwise your Current!
If Len(Dir("C:\estimating\")) <> 0 Then ChDir ("C:\estimating\")

vFileName = Application.GetOpenFilename("xl Files,*.xls")
If TypeName(vFileName) = "Boolean" Then Exit Sub

Workbooks.Open vFileName
'// Do your thing


'// Restore back to last Dir
ChDir StrCurDir

End Sub

 

[d0wnt0wn]

just curios... what kind of estimate sheet you doing???

 

[d0wnt0wn]

errrrr curious i mean