Re: [nl-users] celinhoud d.m.v. macro toevoegen aan bestandsnaam

Beste Bijk,

Hier heb je mij in ieder geval verder op weg geholpen voor nieuwe 
mogelijkheden, bedankt.
Zijn deze codes ergens in een handboek terug te vinden?

Frank

Op 18-11-2012 16:47, bijk1904 schreef:
> Hallo Anne-Sophie,
>
> Zie deze code eens.
>
> Sub Main
>
>     dim objBoek as Object
>     dim objBlad as Object
>     dim objPlaats as Object
>     dim Initialen as String
>     dim Datum as Date
>
>     set objBoek = ThisComponent
>     set objBlad = objBoek.Sheets.GetByName("Invoerblad")
>
>     set objPlaats = objBlad.GetCellByPosition(3,1)
>     Let Initialen = objPlaats.GetString
>
>     set objPlaats = objBlad.GetCellByPosition(3,2)
>     Let Datum = objPlaats.GetValue
>
>     msgbox Initialen
>     msgbox format(datum, "dd-mm-yyyy")
>
> End Sub
>
> Onder de voorwaarde dat je een werkblad hebt met een tablad genaamd 
> "Invoerblad" waar in cell D2 tekst staat en in D3 een datum geeft hij 
> bij mij twee meldingen met de inhoud van de cellen. De variabelen 
> Initialen en Datum kan je dus ook gebruiken om een bestandsnaam mee 
> te  "componeren".
>
> bijvoorbeeld:
> args20(0).Value = "file:///w:/Dagstaten%20" & Initialen & 
> "/Invoerbestand%20dagstaten.week.1245."&Format$(Datum, 
> "mmdd.hhmm")&".sofieware.3.1.beta." & Initialen &".2.maandag.ods"
> of:
> args20(0).Value = 
> "file:///w:/Dagstaten%20Blazej/Invoerbestand%20dagstaten.week.1245."&Format$(Datum, 
> "mmdd.hhmm")&"." & Initialen & ".3.1.beta.Blazej.2.maandag.ods"
>
> Heb je hier wat aan?
>
> Groeten,
> Bijk
>
>
>
> Op 09-11-12 15:11, olphenamsterdam schreef:
> > Goede dag!
> >
> > Ik zoek de mogelijkheid om de inhoud van verschillende cellen d.m.v. 
> > van een macro in de bestandsnaam te krijgen.
> >
> > Op blad 2 (Invoerblad) is cel D2 voor de initialen, blad 2 
> > (invoerblad) is cel D3 de datum van de dag waarover verslag gedaan 
> > wordt en die af kan wijken van de computerdatum.
> >
> > Voor macro met de datum in de bestandsnaam maak ik nu gebruik van de 
> > volgende code:
> >
> > args20(0).Value = 
> > "file:///w:/Dagstaten%20Blazej/Invoerbestand%20dagstaten.week.1245."&Format$(Now, 
> > "mmdd.hhmm")&".sofieware.3.1.beta.Blazej.2.maandag.ods"
> >
> > Heeft iemand een oplossing voor mij?
> >
> > Vriendelijke groet
> >
> > Anne-Sofie van Olphen
>
>
> --
> groet Frank

--
Unsubscribe instructions: E-mail to users+help@nl.libreoffice.org
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/nl/users/
All messages sent to this list will be publicly archived and cannot be deleted