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

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

--
Afsluiting
Get Ubuntu <http://www.ubuntu-nl.org/> FireFoxIcon 
<http://www.mozilla.com/firefox/> ThunderbirdIcon 
<http://www.mozilla.com/thunderbird/>

Een mens heeft twee oren en één mond, om twee keer zoveel te luisteren 
als te praten.

(Chinees gezegde)

--
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