Wat ik moet doen:
ik heb een tabel in een ene excel werkboek die ingevuld wordt aan de hand van een aantal parameters.
Ik zou deze 'entries' moeten kunnen opslaan in een database op naam van de account manager (dewelke bij het opstarten van het originele werkboek gevraagd wordt en vervolgens opgeslaan).
Wat ik heb zover:
Sub databasing()
Dim sDatabasename As String
sDatabasename = "c:\mijn documenten\" & Range("'Direct Mail tool'!G17") & Format(Now(), "yy") & ".xls"
Workbooks("SPOT V3").Worksheets("summary direct mail").Activate
ActiveSheet.Range("A12").CurrentRegion.Select
Selection.Copy
Workbooks.Open Filename:=sDatabasename
ActiveSheet.Range("A1").CurrentRegion.Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("sDatabasename.Name").Close
ActiveWorkbook.Protect Password:="pricing", _
Structure:=True, Windows:=True
End Sub
De lijn in bold geeft echter een error...
Iemand een idee wat het probleem kan zijn of hoe ik dit best aanpak?
ik heb een tabel in een ene excel werkboek die ingevuld wordt aan de hand van een aantal parameters.
Ik zou deze 'entries' moeten kunnen opslaan in een database op naam van de account manager (dewelke bij het opstarten van het originele werkboek gevraagd wordt en vervolgens opgeslaan).
Wat ik heb zover:
Sub databasing()
Dim sDatabasename As String
sDatabasename = "c:\mijn documenten\" & Range("'Direct Mail tool'!G17") & Format(Now(), "yy") & ".xls"
Workbooks("SPOT V3").Worksheets("summary direct mail").Activate
ActiveSheet.Range("A12").CurrentRegion.Select
Selection.Copy
Workbooks.Open Filename:=sDatabasename
ActiveSheet.Range("A1").CurrentRegion.Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("sDatabasename.Name").Close
ActiveWorkbook.Protect Password:="pricing", _
Structure:=True, Windows:=True
End Sub
De lijn in bold geeft echter een error...
Iemand een idee wat het probleem kan zijn of hoe ik dit best aanpak?
