Print side | Luk vindue

xlsm om til xlsx

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=3937
Udskrevet den: 23.Nov.2024 kl. 06:45


Emne: xlsm om til xlsx
Besked fra: Torben57
Emne: xlsm om til xlsx
Posteringsdato: 15.Jun.2019 kl. 12:54
Hej.

Er der nogen der kan hjælpe mig. Jeg har er kode (se længere nede) og den virker rigtigt godt. Den tager celle indhold fra flere celler som fil navn og gemmer og lukker på en knap i mit ark men som .xlsm.

Jeg kunne godt tænke mig den gemt som .xlsx og uden at markroen virker mere.

Er der nogen der kan give en hjælp til hvordan det kan gøre, gerne med lidt forklaring så jeg evt. kan bruge den en anden gang.

Sub GemSom()
    Dim Path As String
    Dim Filename1 As String
    Dim Filename2 As String
    Path = "F:\PDC\1_Kvalitet\Rapportering til Q-Dept\0_Ugerapport\Aktuel uge\9-Line\"
    Filename1 = Range("B3")
    Filename2 = Range("N4")
    Filename3 = Range("C4")
    Filename4 = Range("I3")
    ActiveWorkbook.SaveAs Filename:=Path & Filename1 & " " & Filename2 & " " & Filename3 & " " & Filename4
    Application.Wait Now + TimeSerial(0, 0, 3)
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
End Sub

Hilsen Torben Jensen.


Svar:
Besked fra: SpillOperator
Posteringsdato: 15.Jun.2019 kl. 13:36
Hej,

Workbook.SaveAs metoden har en række yderlige parametre du kan specificere, herunder FileFormat.

Læse mere om parametrene her:
https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.saveas" rel="nofollow -
Se den fulde liste over formater og deres værdier her:
https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat" rel="nofollow - ActiveWorkbook.SaveAs _ 
Filename:=Path & Filename1 & " " & Filename2 & " " & Filename3 & " " & Filename4, _
FileFormat:=xlOpenXMLWorkbook

Du vil så blive bedt om at bekræfte, at du ønser at gemme den filen uden makroer. Hvis du vil undgå dette, kan du bare flytte din kodelinje Application.DisplayAlerts = False op, så den står før ActiveWorkbook.SaveAs.

Håber det kan hjælpe dig videre :-)

Bedste hilsner
SpillOperator

Besked fra: Torben57
Posteringsdato: 16.Jun.2019 kl. 21:39
Hej SpilOperator.

Det var en super fin forklaring og det virker perfekt.

Jeg siger så mange tak.

Torben57


Print side | Luk vindue