FECHANDO O MS EXCEL
O simples, neste caso,é perfeito. Atende, resolve e nos livra da dor de cabeça e perda de tempo desnecessária.
Dim xlApp As Object
Set xlApp = GetObject(, "excel.application")
xlApp.Quit
set XlApp = nothing
' Fecha a aplicação MS Excel.
Application.DisplayAlerts = False
Activeworkbook.close ([VBYes])
Application.DisplayAlerts = True
' Fecha o Workbook e salva as mudanças efetuadas.
Fonte: Experts-Exchange
André Luiz Bernardes
A&A® - Work smart, not hard.
Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-o. Agradecemos sua cooperação.
VBA Excel - Close workbook MS Excel with VBA
VBA Excel - Close workbook MS Excel with VBA
Tá, tudo bem, é simples eu sei. Mas para quem não sabe é uma mão na roda.
ActiveWorkbook.Close False
' Fecha o Workbook ativo sem salvar qualquer alteração efetuada.
ActiveWorkbook.Close True
' Fecha o Workbook ativo e salva as mudanças efetuadas.
ActiveWorkbook.Close
' Fecha o Workbook ativo e deixa que o usuário no momento decida se deseja gravar ou não.
Fontes: ExcelTip,
Envie seus comentários e sugestões e compartilhe este artigo!
brazilsalesforceeffectiveness@gmail.com
VBA Excel - Listando todas as worksheets existentes na planilha.
Em muitas ocasiões, pelos mais diversos motivos, precisamos saber os nomes de todas as worksheets disponíveis em nossas planilhas.
Function ListSheets()
' Author: Date: Contact: URL:
' André Bernardes 08/08/2010 08:33 bernardess@gmail.com http://al-bernardes.sites.uol.com.br/
' Lista todas as planilhas existentes no Workbook.
Dim ws As Worksheet
Dim x As Integer
Dim nSheet As String
Let Application.ScreenUpdating = False
Let Application.DisplayAlerts = False
Let Application.EnableEvents = False
Let nSheet = "Analyse" ' Worksheet que receberá a lista com os nomes.
Let x = 3
Sheets(nSheet).Select
Sheets(nSheet).Range("C:C").Clear
For Each ws In Worksheets
Let Sheets(nSheet).Cells(x, 3) = ws.Name
Let x = x + 1
Next ws
Let Application.ScreenUpdating = True
Let Application.DisplayAlerts = True
Let Application.EnableEvents = True
End Function
André Luiz Bernardes
A&A® - Work smart, not hard.
Function ListSheets()
' Author: Date: Contact: URL:
' André Bernardes 08/08/2010 08:33 bernardess@gmail.com http://al-bernardes.sites.uol.com.br/
' Lista todas as planilhas existentes no Workbook.
Dim ws As Worksheet
Dim x As Integer
Dim nSheet As String
Let Application.ScreenUpdating = False
Let Application.DisplayAlerts = False
Let Application.EnableEvents = False
Let nSheet = "Analyse" ' Worksheet que receberá a lista com os nomes.
Let x = 3
Sheets(nSheet).Select
Sheets(nSheet).Range("C:C").Clear
For Each ws In Worksheets
Let Sheets(nSheet).Cells(x, 3) = ws.Name
Let x = x + 1
Next ws
Let Application.ScreenUpdating = True
Let Application.DisplayAlerts = True
Let Application.EnableEvents = True
End Function
André Luiz Bernardes
A&A® - Work smart, not hard.
Assinar:
Postagens (Atom)
LinkWithinBrazilVBAExcelSpecialist
