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