Macro uitbreiden met browse functie

[tobi-wan]

Hoi,

voor het overzichtelijk maken en eventuele sorteer mogelijkheden heb ik een macro gemaakt die een raportageoverzicht van een telefoon centrale importeerd in excel.
Nou zou ik graag een browse functie willen inbouwen zodat ik kan browsen naar het te importeren bestand en eventueel een naam opgeven om daarna het bestand weer op te slaan.
Nu moet ik steeds handmatig mijn macro aanpassen.

Kunnen jullie mij opweg helpen.

Alvast bedankt.

(files:Bekijk bijlage juni2010.txt - Bekijk bijlage Mitel SMDR Import.xls)

 

[Haije]

tobi-wan,

als je dit toevoegt aan je macro, krijg je dan wat je zoekt?

Workbooks.Open Application.GetOpenFilename("Helpmij tekst files (*.txt),*.txt")

 

[tobi-wan]

Nog niet helemaal, Nu krijg ik inderdaad wel een browserscherm maar hij opend daarna het bestand inplaats van importeren met de opgegeven variabelen uit de macro.

 

[Warme bakkertje]

FileToOpen = Application.GetOpenFilename("Helpmij tekst files (*.txt),*.txt")
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileToOpen, Destination:=Range("$A$1"))

 

[tobi-wan]

Dat was precies wat ik zocht. Bedankt voor de snelle oplossing.