Opret mappe på en bestemt placering hvis ikke den findes
HejNedenstående makro gemmer en kopi på en bestemt placering (oprettet før brug af makroen) og vedhæfter en kopi til en mail samtidig.
Kan det lade sig gøre at få makroen til at checke om en bestemt mappe findes, hvis den findes skal den bare bruge makroen som den er - hvis ikke så skal mappen oprettes?
På forhånd tak
Mvh
Sub Finish()
Dim Navn As String
' Finish Macro
'
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Cells.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Range("G11").Select
Navn = Format(Now(), "dd-mm-yyyy hh_nn_ss") ' der tillades ikke colon (:) i filnavnet, ret selv i formater
ActiveWorkbook.SaveAs Filename:="C:\etellerandet\" & Navn & ".xls"
If Application.MailSystem <> xlNoMailSystem Then ' tjekker om der et mailsystem
With ActiveWorkbook
.SendMail _
Recipients:="mailadresse", _
Subject:="Angaaende"
End With
Application.MailLogoff
Else
MsgBox "Microsoft postsystem er ikke installeret.", vbInformation, "Postmeddelelse"
End If
ActiveWorkbook.Close
End Sub
