Hej igen.
Jeg har et script som idag exporterer data i pdf format. Men det jeg skal bruge nu er en export til XLMS format. Jeg synes ikke rigtig den løsning jeg har idag kan bruges da den åbentbart kun kan bruges til pdf og xps.
Nogen som kan hjælpe med tilpasningen?
***************************************
Sub Eksport_Energi_Signatur() On Error GoTo Fejl Application.ScreenUpdating = False twbk = ThisWorkbook.Name Sheets("energisignatur").Select
Dim DataSti, Filnavn As String Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders DataSti = "C:\Temp\" 'Der hvor filen skal gemmes, husk at afslutte med \ 'Tjekker om mappen 'DataSti' eksisterer, hvis ikke oprettes den If Dir(DataSti, vbDirectory) = "" Then MkDir DataSti End If
'Finder år til filnavnet Aar = DatePart("yyyy", Sheet3.Range("G10").Value)
'Gemmer energisignatur enkeltvis som .pdf For Each sh In Sheet1.Range("sagsnavn").Cells
Workbooks(twbk).Sheets("Forside").Range("E8").Value = sh
Ark2.ExportAsFixedFormat _ Type:=xlTypepdf, _ Filename:=DataSti & Sheet3.Range("E8").Text & "-" & Aar & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ From:=1, To:=Sheets.Count * 2, _ OpenAfterPublish:=False Next sh
Application.ScreenUpdating = True MsgBox "Energisignaturen er gemt i mappen " & DataSti, vbInformation Sheets("Forside").Activate Exit Sub Fejl: Application.ScreenUpdating = True MsgBox "Der er sket en fejl", vbCritical End Sub
------------- Hygge - Kim Excel 365 DK user
|