default to server forder

[Johnny42]

can the Application.GetOpenFilename be defaulted to a folder on my server ?
this doe not work....

Dim sFname As String
ChDir "\\Srvsho01\Afwdata\DataImp"
  
    sFname = Application.GetOpenFilename( _
        FileFilter:="Excel Workbooks,*.xls", _
        Title:="Open a File", _
        MultiSelect:=False)
    
    If sFname <> "False" Then
        Workbooks.Open sFname
    End If

 

[PHV]

You may try something like this:

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .InitialFileName = "\\Srvsho01\Afwdata\DataImp"
    .AllowMultiSelect = False
    .Filters.Add "Excel Workbooks", "*.xls", 1
    If .Show Then
        Workbooks.Open .SelectedItems(1)
    End If
End With
Set fd = Nothing

You have to reference the Microsoft Office Object Library

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[IvanMoala]

If you use a version < 2002 then you will need to resort to API's to do this.

Ivan F Moala

http://www.xcelfiles.com