Notifications
Clear all

Erro na grvação

3 Posts
2 Usuários
0 Reactions
903 Visualizações
(@evaldofs)
Posts: 0
New Member
Topic starter
 

boa tarde

Estou com um problema na planilha quando vou salvar, atraves de uma macro, segue o codigo abaixo:

Dim NOME As String
Dim SEC As String
Dim NUME As String
NUME = InputBox("Digite o NUMERO do ORÇAMENTO", "Salvando...")
NOME = InputBox("Digite o NOME do CLIENTE ", "Salvando...")
SEC = InputBox("Digite a SEQUENCIA do ORÇAMENTO", "Salvando...")

ActiveWorkbook.SaveAs Filename:="D:UsuáriosTerminalDesktopORÇAMENTOS - 2015" & "ORC - " & NUME & " - " & NOME & " - " & SEC & ".xlsm"

MENSAGEM DE ERRO
"Quando termina a entrada de dados acusa um erro em tempo de execução 1004
Esta extensão nao pode ser usada com o tipo de arquivo selecionado, altere a extensao de arquivo na caixa de texto Nome do arquivo ou selecione outro tipo de arquvo alterando opções Salvar como tipo:"

Como faço para solucionar este problema. Alguem pode me ajudar? obrigado

 
Postado : 02/12/2014 10:50 am
(@rlm)
Posts: 0
New Member
 

Experimente assim:
ActiveWorkbook.SaveAs Filename:="D:UsuáriosTerminalDesktopORÇAMENTOS - 2015" & "ORC - " & NUME & " - " & NOME & " - " & SEC & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled

 
Postado : 02/12/2014 11:26 am
(@evaldofs)
Posts: 0
New Member
Topic starter
 

Resolveu, muito obrigado

 
Postado : 02/12/2014 11:36 am