Home Excel - Dicas Microsoft Excel VBA Excel VBA - Sistema Excel planilha vba lista arquivos memoria

Excel planilha vba lista arquivos memoria

E-mail Imprimir PDF


Saberexcel - o site de quem precisa aprender macros microsoft excel vba

Estas declarações com a macro do aplicativo Microsoft excel vba, mostram todos os arquivos que estão
na memória RAM do seu computador, cria uma planilha com a relação
'Incio do código

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 carregar_lista_arquivos_memoria()
Dim CurrWnd As Long
Dim Length As Long
Dim TaskName As String
Dim Parent As Long

  i = 2
  Sheets.Add  'insere uma nova planilha no livro
  On Error GoTo ErroSabx
  ActiveSheet.Name = "ARQUIVOS_MEMORIA_SABEREXCEL"
  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, 2).Value = TaskName
        Cells(i, 2).Font.Size = 8
        Cells(i, 2).Font.Name = "Consolas"
       
        Cells(i, 1).Value = i & "º.)"
        Columns(2).AutoFit
        i = i + 1
     End If
       CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
       DoEvents
  Wend
       Cells(1, 2).Value = "há [ " & i & " ] Arquivos na memória do seu computador"
       Cells(1, 2).Interior.ColorIndex = 35
       Cells(1, 2).Font.ColorIndex = 5
  Exit Sub

ErroSabx:   MsgBox ("já existe uma planilha com esse nome, delete-a"), vbInformation, "Saberexcel - o site das macros"
End Sub

Sub deletar_planilha_teste()
     On Error Resume Next
     Application.DisplayAlerts = False
     Sheets("ARQUIVOS_MEMORIA_SABEREXCEL").Delete
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planiha contendo os macros e declarações acima
Excel planiha vba lista arquivos na memoria cpu (87.35 KB)

Última atualização em Dom, 27 de Novembro de 2011 11:24  

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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Muito obrigado. Vou fazer muita propaganda do seu trabalho, muito bom, tudo que conseguir eu te encaminho.Se tiver mais alguns trabalhos no sentido de facilitar o aprendizado estarei a disposição para estar adiquirindo. Fiquei muito feliz com o material recebido ate agora. Valeu, muito obrigado...

Eder - Gerência Orçamento de Gastos
Curitiba-PR
20 April 2011
Parabéns pelos produtos didáticos, gostei muito do curso completo ms excel vba, hoje estou praticando com macros, aprendi muito. Obrigado. Osvaldo São Paulo....

Osvaldo Oliveira
16 November 2011

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