Home Excel - Dicas Microsoft Excel VBA Excel VBA - Aplicativo Excel vba aplicativo relaciona arquivos armazendos memoria

Excel vba aplicativo relaciona arquivos armazendos memoria

E-mail Imprimir PDF

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



   Baixe o exemplo de planilha contendo as macros acima
Excel vba aplicativo relaciona arquivos armazenados memoria (19.88 kB 2010-12-31 12:01:16)

Última atualização em Qui, 18 de Agosto de 2011 12:00  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

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_counterHoje4841
mod_vvisit_counterOntem4316
mod_vvisit_counterEsta Semana19288
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33017
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10455846
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