[Opgelost] Automatisch csv bestanden selecteren.

Martin73
Berichten: 10
Lid geworden op: vr dec 24, 2010 12:05 am

[Opgelost] Automatisch csv bestanden selecteren.

Bericht door Martin73 »

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 gewijzigd door eremmel op ma okt 08, 2012 2:29 pm, 1 keer totaal gewijzigd.
Reden: Melding opgelost toegevoegd.
Open Office 3.2 op Vista
eremmel
Berichten: 670
Lid geworden op: di sep 01, 2009 10:11 am
Locatie: Barneveld, Nederland

Re: Automatisch csv bestanden selecteren.

Bericht door eremmel »

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
W11 21H2 (build 22000), LO 7.4.1.2(x64)
Het is Microsoft marketing die laat geloven dat computers geschikt zijn voor niet technici
Martin73
Berichten: 10
Lid geworden op: vr dec 24, 2010 12:05 am

Re: Automatisch csv bestanden selecteren.

Bericht door Martin73 »

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

Re: Automatisch csv bestanden selecteren.

Bericht door Martin73 »

Jup het werk!
Martin
Open Office 3.2 op Vista
RPG
Berichten: 4667
Lid geworden op: wo apr 15, 2009 1:01 am
Locatie: Apeldoorn, Nederland

Re: [Opgelost] Automatisch csv bestanden selecteren.

Bericht door RPG »

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 7.4.3.2 op openSUSE Leap 15.4
Plaats reactie