Avatar billede florint Nybegynder
18. januar 2006 - 17:48 Der er 2 kommentarer og
1 løsning

Opret mappe på en bestemt placering hvis ikke den findes

Hej
Nedenstå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
Avatar billede kabbak Professor
18. januar 2006 - 18:52 #1
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

    If Dir("C:\etellerandet", vbDirectory) = "" Then
        Set fs = CreateObject("Scripting.FileSystemObject")
        fs.createfolder ("C:\etellerandet")
    End If


    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
Avatar billede florint Nybegynder
18. januar 2006 - 21:39 #2
Fungerer perfekt - tak for indsatsen. Læg venligst et svar så du kan få point.
Mvh
Avatar billede kabbak Professor
18. januar 2006 - 21:40 #3
et svar ;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester