I have this excellent macro saving pdf's and exporting with date added:

Option Explicit

Dim FileName As String
Dim s As String

Dim swExportPDFData As SldWorks.ExportPdfData
Dim swModel As SldWorks.ModelDoc2
Dim swApp As SldWorks.SldWorks

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
s = Date
s = Format(Date, "yymmdd")

'Save Drawing
swModel.Save3 0, 0, 0

'Checks to make sure current file