[Opgelost] Automatisch csv bestanden selecteren.

[Opgelost] Automatisch csv bestanden selecteren.

Berichtdoor Martin73 » ma okt 08, 2012 8:32 am

Goede morgen,
Als matige tot redelijke VBA programmeur in Ecxel probeer ik nu een macro voor calc te schrijven. De bedoeling is dat ik met de druk op een knop

1) automatisch de optie bestand openen start
2) alleen de csv files te zien krijg
3) deze inlees.

Nu is Basic anders dan VBA, dus ben ik ook op het net aan het zoeken geweest en met een stukje gejatte code, die ik wat heb aangepast kom ik redelijk ver.
Ik krijg het alleen nog niet voor elkaar om alleen de csv-files in mijn zoek lijstje te krijgen. Ik krijg nog steeds alles. Hoe pak ik dit aan?

Dit is mn code:

Option explicit

Sub OpenWaarnemingnl
Dim FileNaam as String
FileNaam = BestandOpenenDialoog ("Kies een bestand")

' Nu gaat ie naar Function BestandOpenenDialoog
print "Gekozen bestand: "+FileNaam

end Sub


Function BestandOpenenDialoog(Titel as String) as String
Dim Bestandkiezer as Variant
Dim Bestanden as Variant
Bestandkiezer = createUnoService("com.sun.star.ui.dialogs.FilePicker")
Bestandkiezer.Title = Titel
Bestandkiezer.execute()
Bestanden = bestandkiezer.getFiles()
BestandOpenenDialoog=bestanden(0)
End function
Laatst bijgewerkt door eremmel op ma okt 08, 2012 2:29 pm, in totaal 1 keer bewerkt.
Reden: Melding opgelost toegevoegd.
Open Office 3.2 op Vista
Martin73
 
Berichten: 10
Geregistreerd: vr dec 24, 2010 12:05 am

Re: Automatisch csv bestanden selecteren.

Berichtdoor eremmel » ma okt 08, 2012 10:01 am

Martin, Even de FilePicker in google gedaan en toen kwam ik een voorbeeld tegen met een Filter.
Op de pagina FilePicker Service kun je zien dat er ook een XFilterManager interface is. Deze kun je gebruiken lijkt me.

Succes,
Erik
Is uw vraag beantwoord; pas uw initiële bericht aan: zet er [Opgelost] voor en vink de V aan
LO4.2.8.2 W10 vanwege ORB; AOO4.1.4, LO5.2.5.1,LO6.0.5.2 op W7ESP1 64
Het is Microsoft marketing die laat geloven dat computers geschikt zijn voor niet technici
eremmel
 
Berichten: 621
Geregistreerd: di sep 01, 2009 10:11 am
Woonplaats: Barneveld, Nederland

Re: Automatisch csv bestanden selecteren.

Berichtdoor Martin73 » ma okt 08, 2012 11:25 am

Hoi Erik,
Ik zal deze vanavond even goed bestuderen.
Alvast hartelijk dank!
Groet Martin
Open Office 3.2 op Vista
Martin73
 
Berichten: 10
Geregistreerd: vr dec 24, 2010 12:05 am

Re: Automatisch csv bestanden selecteren.

Berichtdoor Martin73 » ma okt 08, 2012 11:44 am

Jup het werk!
Martin
Open Office 3.2 op Vista
Martin73
 
Berichten: 10
Geregistreerd: vr dec 24, 2010 12:05 am

Re: [Opgelost] Automatisch csv bestanden selecteren.

Berichtdoor RPG » di okt 09, 2012 3:07 pm

Hallo

Het zou mooi zijn als je de complete oplossing op dit forum plaatst. Zo mogelijk voorzien van Nederlands commentaar. Dit Nederlands forum is onder anderen opgericht voor diegenen die moeite hebben met het Engels wat meestal de gebruikte taal is in dien macros gebruikt worden.

Romke
LibreOffice 6.1.6.3 op openSUSE Leap 15
RPG
 
Berichten: 3939
Geregistreerd: wo apr 15, 2009 1:01 am
Woonplaats: Apeldoorn, Nederland


Keer terug naar Macro's

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast