Print side | Luk vindue

Undgå bekræftelse af sletning af sheets

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3933
Udskrevet den: 01.Maj.2024 kl. 10:43


Emne: Undgå bekræftelse af sletning af sheets
Besked fra: Sarchian
Emne: Undgå bekræftelse af sletning af sheets
Posteringsdato: 12.Jun.2019 kl. 16:32
Spørgsmål 1:
Udklip fra en længere makro:

Sheets("Worklogs (2)").Select
    ActiveWindow.SelectedSheets.Delete

Når makroen sletter det pågældende ark åbner den en tekstboks, hvor man skal bekræfte sletningen - kan jeg ikke undgå den, så arket blot slettes uden videre?

Spørgsmål 2:
Jeg skal lave en makro, der udskriver de enkelte sheets hver for sig som pdf.filer med bestemte navne for hver fil. Navnet fremgår af en celle i de enkelte sheets.       


Svar:
Besked fra: SpillOperator
Posteringsdato: 12.Jun.2019 kl. 20:57
Ang. spørgsmål 1: Prøv med

Application.DisplayAlerts = False
[din kode]
Application.DisplayAlerts = True

Besked fra: SpillOperator
Posteringsdato: 14.Jun.2019 kl. 06:58
Ang spørgsmål 2: Prøv med disse to subs - en sub der går igennem alle arkene og sender dem et for et som argument til den næste sub, der eksporterer som pdf. Du kan læse detaljer om flere parametre ifm eksporten her:  https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.exportasfixedformat" rel="nofollow - https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.exportasfixedformat

Sub LoopThroughSheets()

    Dim ws As Worksheet
    Dim Folder As String
    
    Folder = "" 'Indsæt stien til den mappe, hvor du vil gemme pdf'erne

    For Each ws In ThisWorkbook.Worksheets
        SaveSheetAsPDF ws, Folder
    Next ws

End Sub

Sub SaveSheetAsPDF(ws As Worksheet, Optional Folder As String)
    
    Dim Name As String
    Dim FullPath As String
    
    Name = ws.Range("A1") 'erstat A1 med den celle, hvor du har filnavnet
    
    If Folder = "" Then
        Folder = Application.DefaultFilePath
    End If
    
    FullPath = Folder & "\" & Name
      
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        FileName:=FullPath 

End Sub


Print side | Luk vindue