[Opgelost] Automatisch csv bestanden selecteren.
Geplaatst: 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
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