Har du set hvor smart det kan være?

• Word - Smart Office Skabelon system
• Word - Søg og erstat i flere dokumenter
• Excel - File Export
• Excel - Data Management (Freeware)

SmartOffice - GetSaveAsFileName

Public Sub GetSaveAsFileName()
    ' Flemming Vadet, November 2001, fv@smartoffice.dk
    Dim vntFileName As Variant
    
    ChDrive "D"
    ChDir "D:\Temp"
    
    vntFileName = Application.GetSaveAsFileName(ThisWorkbook.Name, _
        "Excel Files (*.xls),*.xls")
    
    If vntFileName <> False Then
        ThisWorkbook.SaveAs vntFileName 
    End If
End Sub