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