verkenner laten sluiten ...

[kibus]

Beste kenners

onderstaande stukje vba gebruik om documenten te openen...via excel

gaarne wil ik de verkenner weer sluiten als het betandje niet is gevonden...
wie kan me daar mee helpen?

If Range("b2") = "2013" Then

Shell "explorer.exe " & Range("f2").Text
Else
Shell "explorer.exe " & Range("g2").Text

End If

alvast bedankt
edwin

 

[OctaFish]

Waarom gebruik je de verkenner om een bestand te zoeken? Kun je veel beter met DIR doen. Hoef je niks te doen verder, behalve als je het bestand dan wil openen.

 

[kibus]

het is juist de bedoeling dat het bestand wordt geopend net zoals hyperlink..r.. maar indien niet gevonden gaarne de verkenner weer sluiten ..(sommige bestandjes ziteen in een beveiligde schijf)

 

[snb]

gebruik om een bestand te openen:

Sub M_snb()
   Getobject "G:\OF\voorbeeld.xlsx"
End Sub

 

[kibus]

hartelijk dank voor uw reactie,

het te openen bestand wordt gemaakt door een fromule deze staat in een cel F2 hoe pas ik dat aan

GetObject Range("f2").Value werkt niet

 

[edmoor]

Wat staat er precies in F2?