Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
excel pra exe
 
Notifications
Clear all

excel pra exe

 
2024 - VBA & Macros
Post Recente por BetoRubini 11 anos atrás
5 Posts
2 Usuários
0 Reactions
1,167 Visualizações
RSS
 BetoRubini
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

olá fazendo uma pesquisa encontrei esse topico no forum do tomás vasquez
http://www.tomasvasquez.com.br/forum/vi ... dHhfvnV8pl

me deparei com o mesmo erro citado aqui

Não sei se na versão paga isso é possível, mas na Trial infelizmente, não. Toda vez que implementar algo deverá compilar novamente. Caso não haja, penso que uma forma de diminuir a dor de cabeça nessa hora é criar dois arquivos, um como banco de dados e o outro como programa.

Depois poste seus comentários sobre seus testes. Eu estou testando e ficando cada vez mais surpreso, até mesmo simulando erros de compilação o arquivo se torna seguro. Uma falha que percebi é utilizando o "Application.Quit" e "ThisWorkbook.Close" e a forma de salvamento do arquivo. Dessa forma, o arquivo sempre criava uma cópia de recuperação do arquivo em .xls. Enviei o problema para o suporte deles e fui atendido absurdamente rápido. Me orientaram a trocar "Application.Quit" e "ThisWorkbook.Close" por:

CÓDIGO: SELECIONAR TODOS
If Not frm is Nothing Then
frm.Hide
Unload.frm
End IF

Ps. Frm foi definido na função pública como um objeto

e utilizar o método "ThisWorbook.Saved = True" para salvamento.

O motivo eu não sei, caso alguém saiba, por favor esclareça, pois fiquei curioso....rs

Abraço a todos

alguem saberia me explicar como fazer esse procedimento, não estou conseguindo salvar e fechar sem que ocorra o erro citado

 
Postado : 01/07/2013 2:11 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

já usou a pesquisa do fórum?

Private Sub CommandButton28_Click()
    ans = MsgBox("Fechará o XL, salva o arquivo atual?", vbYesNoCancel)
    If ans = vbYes Then
        ThisWorkbook.Save
        Application.Quit
    ElseIf ans = vbNo Then
        Application.Quit
    ElseIf ans = vbCancel Then
        Cancel = True
    End If
     
End Sub
 
Postado : 01/07/2013 5:32 pm
 BetoRubini
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

Dessa maneira ja tentei e não salvou o arquivo transformado em .EXE

o arquivo .xlsm salva normal
o código que uso é esse

Sub Sair()
Unload FrmHOME
End Sub


Sub Salvar_sair()

Dim Sair As String
Sair = MsgBox(prompt:="Deseja salvar as alterações?", Buttons:=vbYesNoCancel)
If Sair = vbNo Then

Application.ScreenUpdating = False
Application.DisplayAlerts = False           
Savechanges = False
Application.Quit

Else

If Sair = vbCancel Then
Exit Sub

Else

Application.ScreenUpdating = False
Application.DisplayAlerts = False           'desabilite o alerta
ThisWorkbook.Save
Application.Quit

End If
End If
End Sub

não sei o que pode ser, por isso citei o que diz no outro forum, ele cita algo sobre declarar publicamente o userform como publico.

 
Postado : 01/07/2013 6:23 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Beto

Nunca experimentei, mas acho que este link faz o que vc deseja:

http://cpap.com.br/orlando/XLtoEXEMais.asp

Dê retorno.

Att.

 
Postado : 02/07/2013 6:23 am
 BetoRubini
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

Bom Dia!

Desculpa acho que não me expliquei direito.

Então, usei bem o que tem nesse link, consegui fazer o processo tudo certinho, o que ocorre:

Com a rotina que citei acima, para salvar o arquivo, ele simplismente não salva.
no fórum do Tomaz diz para usar "ThisWorkbook.close" em vez de "application.quit"
quando faço isso ocorre um erro "erro 424 object required"

 
Postado : 02/07/2013 8:31 am
Forum Jump:
  Tópico Anterior
Próximo Tópico