Outro Codigo VBA para alterar extensão

[Douglas ianes]

Olá pessoal,

 

tenha uma macro criada para salvar as informações de uma planilha em outra.

 

após isso preciso que ela mude a planilha que esta rodando a macro de xlsm para xlsx e salve.

consegui criar cópia em PDF mas alterar o formato ainda não.

 

podem me ajduar.

[Basole]

@Douglas ianes veja este exemplo:

 

Exemplo salvar como *.xlsx

[Douglas ianes]

@Basole não consegui entender o exemplo que meu deu.

muito complexo para meus conhecimentos rsrs.

o mais proximo que cheguei do que eu preciso foi isso.

 

  Dim NomPastTrab As String

NomPastTrab = VBA.Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))

 ActiveSheet.ExportAsFixedFormat Type:=xlsx, Filename:= _
        ThisWorkbook.Path & "\" & NomPastTrab _

 

Mas esta criando em PDF e não xlsx igual eu preciso.

[Basole]

Veja se e isso: 

 

Sub Copy_ActiveSheet_1()
'Working in Excel 97-2016
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set Sourcewb = ActiveWorkbook

    'Copy the sheet to a new workbook
    ActiveSheet.Copy
    Set Destwb = ActiveWorkbook
    
                        FileExtStr = ".xlsx": FileFormatNum = 51
    
    'Save the new workbook and close it
    TempFilePath = ThisWorkbook.Path & "\"
    TempFileName = VBA.Left(ThisWorkbook.Name, (VBA.InStrRev(ThisWorkbook.Name, ".", -1, VBA.vbTextCompare) - 1))

    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        .Close SaveChanges:=False
    End With

    MsgBox "You can find the new file in " & TempFilePath

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

 

[Douglas ianes]

@Basole Exatamente isso.

 

rodou perfeito.

Muito obrigado pela ajudar.

 

adicionado 31 minutos depois

@Basole é possivel após executar a macro manter somente o arquivo xlsx e deleter o arquivo xlsm.

 

Sub DeleteActiveWorkbook() Dim xFullName As String xFullName = Application.ActiveWorkbook.FullName ActiveWorkbook.Saved = True Application.ActiveWorkbook.ChangeFileAccess xlReadOnly Kill xFullName Application.ActiveWorkbook.Close False End Sub

 

seria assim?

[Basole]

@Douglas ianes veja este exemplo: 

 

 

 

 

 

Auto_Destroi.zip

[Douglas ianes]

@Basole deu quase tudo certinho, somente o excel.application.quit que não esta fechando a aplicação.

 

mas ja da pra eu usar a planilha como eu queria.

muito obrigado pela ajuda.