Home Excel - Downloads / Areas Restritas Excel VBA - Aplicativo

Excel VBA - Aplicativo

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel vba aplicativo relaciona arquivos armazenados memoria Excel vba aplicativo relaciona arquivos armazenados memoria

    popular!
    Adicionado em: 31/12/2010
    Modificado em: 31/12/2010
    Tamanho: 19.88 KB
    Downloads: 913

    Saberexcel - o site das macros
    Esses procedimentos e declaraçãoes do Aplicativo Microsoft Excel VBA, verificam todos os arquivos que estão na memória do computador, adiciona um folha de planilha no livro ativo e relaciona todos esses arquivos


    Private Declare Function GetWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal wCmd As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function GetWindowTextLength Lib "user32" _
    Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
    Private Declare Function GetWindowText Lib "user32" _
    Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, _
    ByVal cch As Long) As Long

    Const GW_HWNDFIRST = 0
    Const GW_HWNDNEXT = 2

    Sub criar_lista_arquivos_memoria()
    Dim CurrWnd As Long
    Dim Length As Long
    Dim TaskName As String
    Dim Parent As Long

    i = 1
    Sheets.Add 'cria uma planilha com a relação de arquivos na memoria do computador
    twnd& = FindWindow("Shell_traywnd", vbNullString)
    CurrWnd = GetWindow(twnd, GW_HWNDFIRST)

    While CurrWnd <> 0
    Length = GetWindowTextLength(CurrWnd)
    TaskName = Space$(Length + 1)
    Length = GetWindowText(CurrWnd, TaskName, Length + 1)
    TaskName = Left$(TaskName, Len(TaskName) - 1)

    If Length > 0 Then
    Cells(i, 1).Value = TaskName
    i = i + 1
    End If
    CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
    DoEvents
    Wend

    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos SaberExcel

    vba aplicativo excel lista personalizada vba aplicativo excel lista personalizada

    popular!
    Adicionado em: 11/02/2011
    Modificado em: 11/02/2011
    Tamanho: 78.66 KB
    Downloads: 808

    Saberexcel - site das macros

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma lista personalizada no Aplicativo Microsoft Excel
    As listas personalizadas são caracterizadas pelo preenchimento persolizado de células quando se arrasta células a partir do primeiro nome na célula
    Observe que quando voce acionar a macro, insere a Lista Personalizada, uma vez inserido a lista personalizada, ao tentar excecutar a macro novamente retorna uma mensagem que a referida lista de personalizada já foi criada.
    - veja no exemplo de planiha, abaixo faça o download do exemplo, se precisar.

    Sub Inserir_Lista_Personalizada()
    On Error GoTo sbError

    Application.AddCustomList ListArray:=Range("B2:B19")
    Range("D5").Select
    Exit Sub

    sbError:
    MsgBox "Lista personalizada criada, agora você poderá fazer o teste!", vbInformation, "Saberexcel"
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel



    vba aplicativo fica invisivel mostra somente userform vba aplicativo fica invisivel mostra somente userform

    popular!
    Adicionado em: 21/11/2010
    Modificado em: 21/11/2010
    Tamanho: 32.5 KB
    Downloads: 2593

    Saberexcel - o site das macros

    Este exemplo de Planilha do Aplicativo Microsoft Excel VBA, contém macro no Evento_Auto_Open que ao abrir o Workbook o Aplicativo fica invisível, mostrando um Userform, para visualizar o código voce poderá teclar [Alt + F11] para visualizar os códigos VBA e também o Userform usado.

    Sub Aplicativo_invisivel()
    Application.Visible = False
    UserForm1.Show
    End Sub


    Aplicativo Microsoft Excel VBA, SaberExcel VBA
    Aprenda sozinho, em casa, com baixo custo, excelente material didatico.







    Pesquisa Google SaberExcel

    Publicidade Google

    Publicidade

    Rastreamento Correios

    Digite o número do SEDEX conforme o exemplo:
    Correios do Brasil

    Assinatura SaberExcel

    Google Associados

    Depoimentos

    Visitantes SaberExcel

    Excel VBA Estudos®
    mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
    mod_vvisit_counterHoje499
    mod_vvisit_counterOntem6961
    mod_vvisit_counterEsta Semana17423
    mod_vvisit_counterSemana passada37830
    mod_vvisit_counterEsse mês139810
    mod_vvisit_counterMês passado120411
    mod_vvisit_counterTodos10968191
    Aprenda MS Excel VBA

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA