Tirar Objeto Da Memoria

[Manwë Súlimo]

Pessoal, preciso desssa ajuda, já postei, mas ninguém acho que respondeu...

eu to abrindo o excel com o excel.application.workbook.open

mas ai quando eu termino eu quero fechar ele...

como eu faço isso???

porque continuar o Excel lá no control+aut+del....

como eu faço p/ tirar ele dali???

e por que quando eu fecho meu aplicativo, fala que o windows ainda está usando ele, e ele realmente ta no control+aut+del (finalizar programas)

alguém poderia me ajudar??? principalmente na parte do excel????

desde já agradeço

até

[Decio]

Vc poderia postar seu código para analisar?

[Manwë Súlimo]

ai embaixo vai o codigo

dim xls

Set xls = Excel.Application

xls.Workbooks.Open App.Path & "\modelo.xls"

'Corre pelos arquivos

xls.Visible = False

'------------codigos para escrever

'--------------fim dos codigos

mostra = MsgBox("Deseja editar a planilha?", vbOKCancel, "Planilha")

If mostra = 1 Then

xls.Visible = True

Else

MsgBox "Planilha criada com sucesso!"

End If

End Function

E quanto ao aplicativo ficar na memoria, acontece o seguinte:

quando eu vou em Arquivo->sair ele não fica na memoria.... (Eu uso a função End para sair))

mas quand oeu aperto no X de fechar, ele continuar na memoria...

o que acontece??? tentei usar um form_unload , mas náo dá!

o que eu posso fazer???

até

[Decio]

Ola,

eu nem testei o código porque você falou que só acontece se sair do seu programa clicando no X . então tenta assim:

No evento QueryUnload que é para onde seu programa passa se for clicado o "X" , você coloca o end, como no exemplo abaixo.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

end

End Sub

Qualquer coisa avisa ai.

[Manwë Súlimo]

Muito obrigado !

funcionou!

mas alguma ajuda quanto ao excel???

até mais

[Decio]

Excel não é o meu forte.

Tenho um código exemplo para ler e salvar em Excel pelo Vb.se precisar...

[Manwë Súlimo]

não, valeu, isso eu sei fazer, o problema é que depois de eu fazer é que eu não sei tirar a memoria da memoria

até