in excel via vba file openen

[jan excel]

Hoi Allen,

Met onderstaande code kom ik in het normale "openen windows scherm" en kan ik een excel bestand gaan openen.
Echter ik zou de code graag op twee dingen aangepast zien maar ik krijg het zelf niet werkend naar mijn wens.

Wat dient erbij te komen.

1. de code dient ervoor te zorgen dat het openen window scherm automatisch in het pad gaat "N:\overzichten\" komt.
2. Nu kan ik alleen excel files openen met de Extensie XLS, graag zou ik de extensies van Excel 2010 toegevoegd zien.

Private Sub CommandButton5_Click()
    vFilename = Application.GetOpenFilename("XLS files (*.xls),*.xls", , "Selecteer bestand.", , False)
    If TypeName(vFilename) = "Boolean" Then Exit Sub
    If CStr(vFilename) = "" Then Exit Sub
    If Dir(CStr(vFilename)) <> "" Then
  
 End If

End Sub

Alvast bedankt.
Jan E

 

[spaarie]

Zo?

Private Sub CommandButton5_Click()
    ChDir "N:\overzichten\"
    fnaam = Application.GetOpenFilename("Excel Files(*.xls;*.xlsx;*.xlsm;*.xla;*.xlam),*.xls;*.xlsx;*.xlsm;*.xla;*.xlam", , False)
        If TypeName(fnaam) = "Boolean" Then Exit Sub
        If CStr(fnaam) = "" Then Exit Sub
        If Dir(CStr(fnaam)) <> "" Then
        End If
End Sub

 

[jan excel]

Hoi Spaarie,

Bedankt voor je reactie.
Kan nu wel de Excel files 2010 openen, echter gaat nog niet naar gewenste pad.
Het windows openen scherm gaat naar het standaard pad bibliotheken\documenten.

ChDir "N:\overzichten\" deze had ik ook al geprobeerd, echter zelfde resultaat als boven omschreven.

Is er een andere optie om dit werkend te krijgen ?


groet,
Jan E

 

[spaarie]

Bij mij doet ie het wel, maar misschien zo dan?

Private Sub CommandButton5_Click()
    ChDrive "N:"
    ChDir "N:\overzichten\"
    fnaam = Application.GetOpenFilename("Excel Files(*.xls;*.xlsx;*.xlsm;*.xla;*.xlam),*.xls;*.xlsx;*.xlsm;*.xla;*.xlam", , False)
        If TypeName(fnaam) = "Boolean" Then Exit Sub
        If CStr(fnaam) = "" Then Exit Sub
        If Dir(CStr(fnaam)) <> "" Then
        End If
End Sub

 

[Warme bakkertje]

Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long

Private Sub CommandButton5_Click()
    SetCurrentDirectoryA ("N:\Overzichten")
    fnaam = Application.GetOpenFilename("Excel Files(*.xls;*.xlsx;*.xlsm;*.xla;*.xlam),*.xls;*.xlsx;*.xlsm;*.xla;*.xlam", , False)
        If TypeName(fnaam) = "Boolean" Then Exit Sub
        If CStr(fnaam) = "" Then Exit Sub
        If Dir(CStr(fnaam)) <> "" Then
        End If
End Sub

 

[jan excel]

Hoi Spaarie en warme bakkertje,

Sorry voor de late reactie,

De code van spaarie laat nu inderdaad het openen windows scherm zien in de juiste directory.
Nu kan ik een excel file selecteren maar niet openen, althans komt niet in beeld.
ontbreekt er nog een stukje code om ook de geselecteerde file ook daadwerkelijk te openen.


De code van warme bakkertje geeft een foutmelding.

Ik denk dat onderstaande code ergens anders moet komen te staan, maar waar ? In This workbook werkt niet.

Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long


Wat is het toch fijn dat er vrijwilligers zijn zoals jullie die bereid zijn om een ander te helpen.

Groet,
Jan E

 

[Warme bakkertje]

Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long

Deze regel moet helemaal bovenaan als allereerste regel in de module waar de andere code zich ook bevindt.

 

[jan excel]

Goede morgen Warme bakkertje en Spaarie,

heb nu de regel helemaal bovenaan gezet echter krijg een foutmelding:
"er mogen alleen opmerkingen staan na End Sub ,End function of End Property"

wat gaat er fout ?

groet,
Jan

 

[Warme bakkertje]

Dat er nog ergens in je module een foute regel staat.
Zet gewoon de code zoals ik ze gepost heb in Post#5 helemaal bovenaan alle andere stukjes code die je daar eventueel al staan hebt.

 

[jan excel]

Hoi Warme bakkertje,

Ja inderdaad dit was het, bedankt tot zover.

Echter blijf nog met het probleem zitten als ik de gewenste Excel file in de "openen windows scherm" selecteer en op openen klik wordt die file niet geopend.
Weet jij hoe dit kan ?

 

[snb]

hou het simpel:

Sub M_snb()
   Application.Dialogs(1).Show "N:\overzichten"
End Sub

 

[jan excel]

Hoi Allen,

De laatste code van snb doet het helemaal goed.
Zo zie je maar weer, er zijn verschillende wegen die naar Rome leiden.

Allen bedankt !
Jan E