Este fórum está sendo desativado

[joaodias]

Pretendo criar um botão para guardar o excel com o nome de várias células.
Só consigo guardar em excel 97-2003. Gostaria de guardar em excel worksheet. Já tentei alterar o código para "FileName5 & ".xlsx" mas quando vou abrir dá-me erro "formato ou extensão do ficheiro não é válida"

Private Sub CommandButton21_Click()
Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Dim FileName3 As String
Dim FileName4 As String
Dim FileName5 As String
Path = "C:\Users\J. Dias\Desktop\doc\orçamenstos\"
FileName1 = Range("F3")
FileName2 = Range("F1")
FileName3 = Range("F2")
FileName4 = Range("I3")
FileName5 = Range("I2")
ActiveWorkbook.SaveAs Filename:=Path & FileName1 & " - " & FileName2 & " " & FileName3 & " - " & FileName4 & " " & FileName5 & ".xls", FileFormat:=xlNormal
End Sub

[osvaldomp]

Experimente:

Código: Selecionar todos

ActiveWorkbook.SaveAs  ...  & FileName5 & ".xlsm", FileFormat:=52

[joaodias]

Obrigado. Resultou mas guardou em Microsoft Excel Macro-Enabled Worksheet (.xlsm). O que eu pretendia era que guarda-se em Microsoft Excel Worksheet (.xlsx)

[osvaldomp]

Desculpe, como o arquivo tem macro eu imaginei que você quisesse salvar habilitado para macros.

Experimente este abaixo:

Código: Selecionar todos

Application.DisplayAlerts = False
 ActiveWorkbook.SaveAs  ...  & FileName5 & ".xlsx", FileFormat:=51
Application.DisplayAlerts = True

[joaodias]

Muito obrigado Osvaldo funcionou era isso que estava á procura. Já agora, dá para ele guardar sem o próprio botão "Private Sub CommandButton21_Click()"

[joaodias]

Estou agora com outro problema, gostaria de proibir a introdução de certos caracteres (\ / : * ? " <> |) uma vez que o Excel não aceita estes tipos de caracteres no nome. Como poderei fazer?