code eenvoudiger maken

[ronsom]

Goedemorgen allemaal,

Ik heb een code opgenomen met de macrorecorder.
De code opent een .xls bestand en sluit het daarna weer als .xlsx bestand om het daarna weer te openen.
De verandering van .xls bestand naar .xlsx bestand wil ik omdat in het vervolg van de code met draaitabellen gewerkt gaat worden en ik functies beschikbaar wil maken die in een .xls bestand niet beschikbaar zijn.
Ik denk alleen dat het eenvoudiger kan maar weet niet hoe.
Hieronder het stukje code.

Workbooks.Open Filename:= _
        "C:\Users\onbekend\Documents\onbekend\Verkopen Per Prod.xls"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\onbekend\Documents\onbekend\Verkopen Per Prod.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
Workbooks.Open Filename:= _
        "C:\Users\onbekend\Documents\onbekend\Verkopen Per Prod.xlsx"

Ik hoop dat iemand me wil helpen.

Vriendelijke groet,

Ronsom

 

[snb]

sub M_snb()  
   c00="C:\Users\onbekend\Documents\onbekend\Verkopen Per Prod.xls"
   Workbooks.Open(c00).saveas c00 & "x",51
End sub

 

[ronsom]

Goedemorgen Snb,

Bedankt voor je code, het werkt prima en ik ga weer verder met de rest van de code.

Gr Ronsom