bestand via vba in willekeurige map openen

[cor.de.kruijf]

Hallo,
onderstaande vba code zorgt dat een bestand geopend wordt, hoe kan ik dit veranderen zodat de lokatie van het bestand niet meer belangrijk is?

ChDir "C:\RCIE_MCN\XLS"
Workbooks.OpenText Filename:="C:\RCIE_MCN\XLS\var.xls", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True

mvg Cor

 

[edmoor]

Hoe bedoel je dat precies? In genoemd voorbeeld zal de code toch moeten weten waar het bestand var.xls staat om deze te kunnen openen.

 

[cor.de.kruijf]

@ Edmoor

Dat is nu precies wat ik bedoel
Is er een mogelijkheid om dit bestand op te zoeken wanneer vba niet weet waar het is.
een keuzelijst ofzo.

 

[Roncancio]

Best = Application.GetOpenFilename("Excel bestanden (*.xls), *.xls")
If Not Best = False Then Workbooks.Open Best

Bovenstaande code toont het windows verkenner menu.
Indien een bestand is geselecteerd en op openen wordt geklikt dan wordt het betreffende bestand geopend.

Met vriendelijke groet,


Roncancio

 

[edmoor]

Ja, dat kan door een explorer venster te openen waarin de gebruiker het betreffende bestand kan op zoeken.

 

[cor.de.kruijf]

@Roncancio

Dankjewel,
dat zocht ik, ik zet em op opgelost :thumb:

mvg Cor

 

[cor.de.kruijf]

@edmoor

edmoor ook bedankt, je zegt eigenlijk hetzelfde.

mvg Cor