Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketxlsm om til xlsx
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Torben57 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 17.Mar.2019
Land: Danmark
Status: Offline
Point: 14 		Direkte link til dette indlæg Emne: xlsm om til xlsx
    Sendt: 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.
Til top



Til top
SpillOperator Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 30.Maj.2019
Status: Offline
Point: 73 		Direkte link til dette indlæg Sendt: 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:

FileFormat skal således sættes til den værdi, der korresponderer med xlsx formatet. Der er forskellige måder at gøre det på, men den mest informative, når man læser koden, er nok xlOpenXMLWorkbook.

Se den fulde liste over formater og deres værdier her:

Dvs, at du fx kan modificere din kode således:

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
Til top
Torben57 Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 17.Mar.2019
Land: Danmark
Status: Offline
Point: 14 		Direkte link til dette indlæg Sendt: 16.Jun.2019 kl. 21:39
Hej SpilOperator.

Det var en super fin forklaring og det virker perfekt.

Jeg siger så mange tak.

Torben57
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk