Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

.: Vitrine

Carregando artigos...

Views

Mostrando postagens com marcador close. Mostrar todas as postagens
Mostrando postagens com marcador close. Mostrar todas as postagens

VBA Excel Basic - Criando uma nova Planilha - How To Create New Workbook, Add Data, Save And Close The Workbook



Tópico voltado para quem está iniciando na utilização do VBA - Visual Basic for Application no MS Excel.

Automação é o ponto mais forte da suíte MS Office. é um dos principais motivos dela fazer tanto sucesso e estar tão distante das demais suítes do mercado. Quando utilizamos a programação VBA para que efetue alguns processos automáticos, precisamos saber alguns passos básicos como os mostrados neste post.

Criaremos uma nova Planilhas, adicionaremos dados a ela, a salvaremos e então a fecharemos. Um serviço completo.

Sub sbExample10()
    'Use o método Add na Planilha (Workbook) Workbooks.Add
    'Você pode fazer uma referência via objeto para accessar o Range desejado.

    Let ActiveWorkbook.Sheets("Sheet1").Range("A1") = "Dados de Exemplo"
   ' Salve a Planilha (Workbook) com o nome que desejar.

    ActiveWorkbook.SaveAs "Bernardess.xls"

    ActiveWorkbook.Close
End Sub



Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...


Tags: VBA, Basic, Excel, worskheet, Sheet, aba, Planilha, Workbook, Create, New Workbook, Add Data, Save, Close,


Nenhum comentário:
Tags: , , , , , , , , , , , ,

VBA Access - Fechando TODOS os Relatórios Abertos - Close All Forms


Se você tem já criou um formulário através do qual evoca todos os seus relatórios, sabe bem que de vez em quando ficam inúmeros deles sobrepondo-se uns aos outros. Como resolver isso?

Function CloseAllReportss()

    Dim lngLoop As Long

    For lngLoop = (Forms.Count - 1) To 1 Step -1
        DoCmd.Close acForm, Forms(lngLoop).Name
    Next lngLoop

End Function

Tags: Access, VBA, Report, Reports, close, fechar


Nenhum comentário:
Tags: , , , , ,

VBA Tips - Grave arquivo texto externo - write to external text file without quotes in VBA


Você já precisou gravar os dados de um linha dentro de um arquivo texto?

Sim, isso pode ser necessário vez ou outra. Como posso exportar uma única linha, gravando-a num arquivo texto em qualquer uma das minhas aplicações VBA?

Segue:


' Grava os arquivos de Script base para um Batch.


SUB Process


    Dim Script_Fase01 As Variant


    Dim nPath_01 As Variant


    Dim nPath_01b As Variant



    Let nPath_01 = Form_frm_Parameter_001.cxPath_001.Value

    Let nFile_01 = Form_frm_Parameter_001.cxFile_001.Value

    Let nFile_01b = Form_frm_Parameter_001.cxFile_001b.Value



     ' Arquivos que evocarão os scripts.

     Let Script_Fase01 = ":r " & nPath_01 & nFile_01



     Call WriteFile (nPath_01 & nFile_01b, Script_Fase01)
END SUB


Function WriteFile (nFile As Variant, nFrase As Variant)

    '        Author: André Luiz Bernardes - Bernardess@gmail.com.

    '          Date: 09/04/2013 - 10:21.

    '   Application: 

    ' Functionality: Grava uma frase em um arquivo texto externo.

    

  Dim strList As String

  

  Open nFile For Output As #1

  

  Print #1, nFrase

  

  Close #1

End Function

Tags: VBA, Tips, File, export, quotes, output, Open, print, Close, text



Nenhum comentário:
Tags: , , , , , , , , ,

VBA Excel - Formulário - Impedindo o fechamento no [X]





Impedir o formulário que desenvolvemos seja fechado no momento errado ou sem querer, pode ajudar muito aos usuários menos atentos. O código abaixo mostrará como fazer isso, evitando que o formulário seja fechado ao se pressionar o 'X'.

Inicie por colocar o código abaixo no formulário: Clique duas vezes no formulário e cole o código:

Sub UserForm_Close (Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then 
        MsgBox "Pressione o botão Fechar." 

        Let Cancel = True 
    End If 

End Sub

Para fechar o formulário inseriremos um código num botão do formulário:

Private Sub CommandButton1_Click() 
Unload frm_Cad_Client
End Sub


Tags: VBA, Excel, Form, Close, fechar, unload
Nenhum comentário:
Tags: , , , , ,

VBA Excel Basics - Modo profissional de Abrir e Fechar o MS Excel


O objeto Application do MS Excel disponibiliza uma coleção de objetos para controle das janelas (Windows) que permitem que abramos, organizemos, redimensionemos e fechemos as janelas filhas (child) do MS Excel.

 O código abaixo abrirá uma nova janela filha e colocará as janelas em cascata, abrindo as janelas para a pasta de trabalho ativa:

Sub OpenCascadeWindows()
    ActiveWindow.NewWindow
    Application.Windows.Arrange xlArrangeStyleCascade, True
End Sub

Feche a janela aberta no código anterior e restaure a janela original para um estado maximizado no Excel:

Sub CloseMaximize()
    ActiveWindow.Close
    ActiveWindow.WindowState = xlMaximized
End Sub

Controle a janela pai do MS Excel usando as propriedades WindowState e DisplayFullScreen do objeto Application

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub ChangeExcelWindowState()
    Let Application.WindowState = xlMaximized
    Sleep 1000

    Let Application.WindowState = xlMinimized
    Sleep 1000

    Let Application.WindowState = xlNormal
    Sleep 1000

    Let Application.DisplayFullScreen = True
    Sleep 1000

    Let Application.DisplayFullScreen = False
End Sub

Tags: VBA, Excel, Basics, open, close, window, DisplayFullScree, WindowState, application, Kernel32, LIB, API, 
Nenhum comentário:
Tags: , , , , , , , , , , ,

VBA Excel Basics - Como sair do MS Excel sem salvar nenhuma aba


Suponhamos que seja alguém extremamente preocupado em poupar os seus usuários do stress de precisarem salvar automaticamente suas planilhas e todas as abas que tenham sofrido alterações, sem acrescentar nenhuma ansiedade a tais por tal descuido.

Segue:


Sub EndNotSave(  )
    Dim wb As Workbook

    For Each wb In Workbooks
        ' Marca o workbook como salvo
        Let wb.Saved = True
    Next

    Application.Quit
End Sub


Tags: VBA, Excel, Basics, workbook, fechar, close, sem salvar, not save, no stress, stress
Nenhum comentário:
Tags: , , , , , , , , ,

VBA Excel Basics - Salvando todos os Workbooks abertos antes de fechar o MS Excel sem avisar o usuário


Suponhamos que sejas alguém extremamente preocupado em poupar os seus usuários do stress de precisarem salvar automaticamente suas planilhas e todas as abas que tenham sofrido alterações, sem acrescentar nenhuma ansiedade a tais por tal descuido.

Segue:

Sub CloseSaveAll()
    Dim wb As Workbook
    For Each wb In Workbooks
        wb.Save
    Next
    Application.Quit
End Sub



Tags: VBA, Excel, Basics, workbook, fechar, close, salvar, save
Nenhum comentário:
Tags: , , , , , , ,

VBA Excel - Fechando o MS Excel - Close MS Excel

Inline image 1


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 = FalseActiveworkbook.close ([VBYes])  ' Fecha o Workbook e salva as mudanças efetuadas.
 Application.DisplayAlerts = True 
Fonte: Experts-Exchange

Tags: VBA, Excel, close, quit

Nenhum comentário:
Tags: , , ,
Assinar: Postagens (Atom)
diHITT - Notícias