VB vraag inzake openen bestand

[gambino187]

Hoi,

Ik wil graag dat er een invoerscherm verschijnt waarin ik zelf een bestandsnaam kan ingeven die er geopend moet worden.
VB: Week 41

Als ik een macro maak en al een bestand opgeef dan opent de macro standaard dat bestand(logisch) maar ik moet elke week een ander bestand openen(ander weeknr).

Ik weet dat het kan, maar heb echt geen flauw idee hoe, ik heb overal al gezocht.
Kan iemand mij aub helpen?
Alvast bedankt voor de moeite!

Groetjes,
Paul

 

[Relleboer]

Met dit stukje code roep je het scherm op dat je krijgt als je openen kiest. Selecteer het bestand en hij word geopend.

file = Application.GetOpenFilename("Alle bestanden (*.*),*.*")
If file = False Then Exit Sub
Workbooks.Open Filename:=file

 

[gambino187]

Met dit stukje code roep je het scherm op dat je krijgt als je openen kiest. Selecteer het bestand en hij word geopend.

file = Application.GetOpenFilename("Alle bestanden (*.*),*.*")
If file = False Then Exit Sub
Workbooks.Open Filename:=file

TOP!
Het werkt, ik dacht al het kan niet moeilijk zijn!
Onwijs bedankt!

 

[gambino187]

TOP!
Het werkt, ik dacht al het kan niet moeilijk zijn!
Onwijs bedankt!

Nog 1 vraagje;
Hoe kan ik zorgen dat gelijk de juiste map opent waarin ik zelf het bestand moet kiezen?

 

[Relleboer]

Ligt eraan welke versie je gebruikt van excell

 

[gambino187]

Re:

Ligt eraan welke versie je gebruikt van excell

Excell 2003

 

[Relleboer]

kom ik van de week op terug als ik thuis ff tijd heb. dan maak ik het in orde voor je. met een beetje geluk morgen avond

 

[Relleboer]

Nog 1 vraagje;
Hoe kan ik zorgen dat gelijk de juiste map opent waarin ik zelf het bestand moet kiezen?

Het rode moet je vervangen voor de locatie waar je map staat en dan zal hij daar beginnen met het scherm openen

    ChDir "[COLOR="Red"]C:\Documents and Settings\Lab\Bureaublad\Excell projecten Jan-willem[/COLOR]"
    file = Application.GetOpenFilename("Alle bestanden (*.*),*.*")
    If file = False Then Exit Sub
    Workbooks.Open Filename:=file

 

[snb]

Of

Sub kies()
  on error resume next
  ChDir "C:\
  Workbooks.Open Application.GetOpenFilename ("Alle bestanden (*.*),*.*")
End Sub

 

[Relleboer]

Of

Sub kies()
  on error resume next
  ChDir "C:\
  Workbooks.Open Application.GetOpenFilename "Alle bestanden (*.*),*.*"
End Sub

Nou dit werkt bij mij niet in ieder geval

 

[snb]

Dan zet je er toch gewoon een paar haakjes bij (zie vorige post).

 

[Relleboer]

Dan zet je er toch gewoon een paar haakjes bij (zie vorige post).

je hebt helemaal gelijk was een haakje weggevallen met kopieeren.


hahahah meld je de post ff als opgelost