Undersøg om dokumentet er åben inden den gemmer

Prøv at vise VBA-koden..

Uha den er meget lang og indviklet. Men her en den funktion der sender, og her problemet kommer når rapport.xlsx er åben:

Sub send_rapport()


    Workbooks.Open "\\ms-files1\Rapportering\rapport.xlsx"
    strFileName = "\\ms-files1\Rapportering\" & Range("R2").Value & Range("A3").Value & Range("S2").Value & Range("T2").Value & Range("U2").Value & ".xlsx"
    ActiveWorkbook.SaveAs Filename:=strFileName

    'ActiveWorkbook.SendMail Recipients:="michael"      'bruget når jeg afprøver systemet
 
    Workbooks.Open "\\ms-files1\Rapportering\rapport.xlsx"
   
    Windows("rapport.xlsx").Activate
    Range("A3:G133").Select
    Selection.ClearContents

    Range("A3").Select
    ActiveWorkbook.Save
    ActiveWorkbook.Close


    MsgBox ("Det var det! Forsat god dag")

End Sub

Prøv:

Hej store-Morten.
Min excel fil er på mit arbejde og jeg kommer først derud 2 juledag så du får svar der om det virke. Glæder mig til at prøve den.

God jul

Hej Morten
Den virker fint som en ekstra funktion, men jeg prøver at indsætte formlen ind i send funktionen så når man trykker på send knappen skal den i steden for at skrive Filen er ikke åben bare sende rapporten, men er den åben skal den skrive luk filen. Jeg kan få den til at sende unden problemer når dokumentet er lukket, men åbner jeg den og trykker send så kommer msgBox med tekst og derefter lukker den ned, og når jeg så åbner excel igen er begge filer åbne.
Håber det er til at forstå.

Erstat:: msgbox "Filen er ikke åben"
Med din "send_rapport" kode.

den del virker, det er når filen den skal sende er åben at det går galt, så lukker den excel ned.

Koden tjekker om filen der skal sendes er åben?
Er den det, stoppes koden, er den ikke, sendes filen.

Jeg har ikke kikket på din "send" kode?
Denne må jo ikke åbne den fil der skal sendes!

Det som har virket fint er at den åbner filen, omdøber den til et nyt navn og sender den til en modtager. Så åbner den filen og renser filen så den er klar til en ny omgang.
Fejlen jeg har oplevet er at hvis filen er åben så kommer den med en Debug. Så derfor skal den undersøge om den er lukke. Hvis den er åben skal den bare skrive det og ikke lukke alt ned.

Hej Morten
Det hjælper at lukke alt ned og starte forfra og se på det igen, og nu virker det som jeg ønsker det takke være dit indlæg. send et svar og du får point.

Det var dejligt.
Du får et 'Svar'