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