Automatisch genereren en opslaan excelbestand

[luuc96]

Beste,

Weet niet of ik te veel vraag met onderstaande maar zou er erg mee geholpen zijn. Bijgaand het macrobestand wat ik wil gebruiken.

Elke dag moet ik 1 á 2 keer het tabblad “Welke PERS welke pas” versturen via de mail. Dit moet in een nieuwe Excel zonder macro’s. Dit nieuwe Excel bestand moet ook elke keer de naam “Relatie pasnr mannr” krijgen. Het tabblad moet ook elke keer de benaming “Welke PERS welke pas” krijgen. De overige tabbladen verwijder ik ook handmatig.

Is dit überhaupt mogelijk om een macro uit te voeren en dat het bestand automatisch wordt opgeslagen onder de juiste benaming? Zo ja, kan iemand me daar bij helpen?

Zie graag jullie reactie tegemoet!

 

[JEC.]

Ik weet niet of ik het goed begrijp
Maar zoiets?

Sub Save()
Dim FileName As String
Set ws = Worksheets
For i = Worksheets.Count To 1 Step -1
    If ws(i).Name <> ws(1).Name Then
        Application.DisplayAlerts = False
        ws(i).Delete
        Application.DisplayAlerts = True
    End If
Next
Const Path As String = "C:\...\...\...\...\"
    Application.DisplayAlerts = False
    FileName = Path & Worksheets(1).Name & ".xlsx"
    ActiveWorkbook.SaveAs FileName, 51
    Application.DisplayAlerts = True
End Sub

 

[edmoor]

Kijk eens hier:
https://www.rondebruin.nl/win/s1/outlook/amail2.htm

 

[VenA]

Een kopie van een tabblad maken en opslaan als nieuw bestand gaat over het algemeen sneller.

Sub VenA()
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Sheets("Welke PERS welke pas").Copy
  With ActiveWorkbook
    .SaveAs ThisWorkbook.Path & "\" & .Sheets(1).Name & ".xlsx", 51
    .Close 0
  End With
End Sub

Verder staat er niet bij wel mailprogramma je gebruikt dus daar kan verder niet op ingaan.