Abel Visscher
Gebruiker
- Lid geworden
- 28 mei 2007
- Berichten
- 171
Beste,
ik wil graag door middel van een code meerdere mappen toevoegen aan het pad waarin mijn Excel-bestand zich bevindt.
bv. mijn Excel-bestand bevind zich in: C:\Gebruikers\ikke\Mijn documenten\Excel.
WorkBook.path is dan: C:\Gebruikers\ikke\Mijn documenten\Excel
Nu wil ik graag dat doormiddel van 3x een celverwijzing (A1, A2 en A3) drie mappen toevoegen, "HoofdMap" met daarin "Submap1" en daar dan weer in "Submap2"
A1 = Hoofdmap
A2 = Submap1
A3 = Submap2
Ik ben al even aan het puzzelen en zoeken geweest en heb het e.e.a. in elkaar gepuzzeld maar deze code werkt 1 keer en voegt een map toe wat ook logisch is.
Dit is wat ik tot nu toe heb:
Ik hoop dat iemand mij op weg kan helpen.
Bij voorbaat dank voor reacties.
Groeten Abel
ik wil graag door middel van een code meerdere mappen toevoegen aan het pad waarin mijn Excel-bestand zich bevindt.
bv. mijn Excel-bestand bevind zich in: C:\Gebruikers\ikke\Mijn documenten\Excel.
WorkBook.path is dan: C:\Gebruikers\ikke\Mijn documenten\Excel
Nu wil ik graag dat doormiddel van 3x een celverwijzing (A1, A2 en A3) drie mappen toevoegen, "HoofdMap" met daarin "Submap1" en daar dan weer in "Submap2"
A1 = Hoofdmap
A2 = Submap1
A3 = Submap2
Ik ben al even aan het puzzelen en zoeken geweest en heb het e.e.a. in elkaar gepuzzeld maar deze code werkt 1 keer en voegt een map toe wat ook logisch is.
Dit is wat ik tot nu toe heb:
Code:
Sub PdfMakenEnOpslaanInMap()
Dim Dir As String
Dim BestandsNaam As String
Dir = ActiveWorkbook.Path + "\" & ActiveSheet.Range("A1") & "\" <== hier moeten nog twee mappen bij.
MkDir ActiveWorkbook.Path + "\" & ActiveSheet.Range("A1") & "\"
BestandsNaam = ActiveSheet.Range("A8").Value
ActiveSheet.Range("B4:D10").ExportAsFixedFormat Type:=xlTypePDF, FileName:=Dir + BestandsNaam, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
Ik hoop dat iemand mij op weg kan helpen.
Bij voorbaat dank voor reacties.
Groeten Abel