Makro för att spara som .xlsx .docx

[MH_]

Min dator struntar i gemener/versaler. 

MEN! när jag kollar så verkar 

ActiveWorkbook.SaveAs

Inte använda ActiveWorkbook.path utan någonting i stil med systemets aktuella mapp (CurDir - ish)

Så dina fel kan bero på att excel försöker skriva i mappar den inte skall skriva i.  Bahhh

Och Det verkar inte som att man kan ändra enbart sökvägen för  "ActiveWorkbook.SaveAs" 

https://learn.microsoft.com/sv-se/office/vba/api/excel.workbook.saveas

FileName: "A string that indicates the name of the file to be saved. You can include a full path; if you don't, Microsoft Excel saves the file in the current folder."

 

Så du får nog köra word-koden och klistra ihop det nya namnet/sökvägen här också

 

Sub PutinÄrEnSfinkterprotes()
Dim iX As Integer
Dim strFilnamn As String

iX = ActiveWorkbook.FileFormat
strFilnamn = ActiveWorkbook.Path & "\" & _
Replace(ActiveWorkbook.Name, ".xls", ".xlsx", , , vbTextCompare)

If (iX = 16) Or (iX = 27) Or (iX = 29) Or (iX = 33) Or (iX = 39) Or (iX = 39) Or (iX = 56) Or (iX = 43) Or (iX = -4143) Then
    ActiveWorkbook.SaveAs Filename:=strFilnamn, FileFormat:=xlOpenXMLWorkbook
End If
    
    ActiveWorkbook.Close
End Sub

(vbTextCompare gör sökningen okänslig för stora/små bokstäver)

[Mikael63]

Tackar, ja det fungerar på den fil jag hade problem med tidigare (men inte lyckades återskapa felet).

Jag tog bort

50 minuter sedan, MH_ sade:

ActiveWorkbook.Close

eftersom den aktiva boken blir den nya (den gamla verkar inte vara öppen) och jag kan då fortsätta att jobba i den.
Möjligen skulle man kunna döpa om den gamla .xls till .old eller .bak

Tillägg:

Eller.. om filen först får döpas om till .xlsx även fast det inte är det, sedan kollas vilken typ det är och är det en äldre fil, men nu med nytt filtillägg, sparas den. Jag vill ogärna ha något "delete" om det skulle skita sig någonstans...

Redigerad Mars 21 av Mikael63
eller