Werkblad opslaan in een (keuze) subdirectory

[mnitschke100]

Ik heb een bestand
Het wordt opgeslagen onder C:\Jaap\[namefromcellA3].xls

Dim SaveName As String
SaveName=ActiveSheet.Range("A3"). Tekst
ActiveWorkboot.SaveAs Filename:="c:\Jaap" & Savename &. xls.

Ik zou het graag willen opslaan in een directory naar keuze
Zoals c:\Jaap\2007\[name].xls
2007 komt uit een cel (A2. )
Die cel wordt gevuld via een keuzelijst met invoervak

Ik zou graag iets willen maken zoals onderstaand, maar krijg een foutmelding.
Helaas ben ik niet zo goed met VBA voor Excel.

Dim SaveName As String
SaveName=ActiveSheet.Range("A3"). Tekst
Dim Year As String
Year=ActiveSheet.Range("A2").Tekst
ActiveWorkboot.SaveAs Filename:="c:\Jaap" & "\" & Year & Savename &. xls.

Hoe zou ik het werkend kunnen krijgen dat ik de subdirectory via de keuzelijst kan aanpassen?

Graag hulp

Michael

Michael

 

[Wigi]

Michael,

vooraleer het lastige werk aan te pakken, verbeter eerst eens de typefouten zoals:

Range("A3")[U]. T[/U]e[U]ks[/U]t

ActiveWorkboo[U]t[/U].

Zet code ook tussen de code tags hier op het forum, dat is het # icoon.

 

[mnitschke100]

oplossing

De oplossing was gelukkig eenvoudig.

De typfoutjes eruit gehaald. Via tekst samenvoegen een cel gemaakt met de gegevens:
c:\jaap\jaar\klantnummer\ op cel V7
in cel AA3 via tekst samenvoegen de bestandsnaam zonder extensie en het volgende invullen:

Dim SaveLok As String
SaveLok = ActiveSheet.Range("V7")
Dim SaveName As String
SaveName = ActiveSheet.Range("AA3")
ActiveWorkbook.SaveAs Filename:=SaveLok & SaveName & ".xls"

Bedankt voor het meedenken, ik kan weer verder