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.

Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funções

Esses macros abaixo do Aplicativo Microsoft Excel VBA(Visual Basic Application), deletam do seu computador arquivos provindos da Internet, tais como (Arquivos Temporarios, historicos, Senhas, Coockies, Fórmulários etc...). Neste exemplo de planilha fiz umas variaveis (Global constates)
para o treinamento com VBA(Visual Basic Application), através de códigos em uma folha de planiha voce poderá deletar esses arquivos as vezes perigosos, as vezes indesejáveis. Esses arquivos são aqueles que voce deleta através do seu navegador.
No I.E(Internet Explores) va em ferramentas (Alt) - opções de Internet > Geral > Excluir (Arquivos temporários, senhas, historico de navegação, formularios e outros)
' - - - - - - - - - - - - - - - - - - - - - -'
Option Explicit
Public resposta As String
Global Const escola = "Escola SaberExcel VBA Estudos®"
Global Const escolaA = "<<<< Escola SaberExcel VBA Estudos® >>>>"
' - - - - - - - - - - - - - - - - - - - - - -'
Global Const divisao = "'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'"
' - - - - - - - - - - - - - - - - - - - - - -'
Global Const historico = "Deseja apagar o HISTÓRICO de seu computador"
Global Const historicoA = "(*) - Lista em seu computador de Sites Visitados"
' - - - - - - - - - - - - - - - - - - - - - -'
Global Const coockies = "Deseja apagar os cookies do seu computador"
Global Const coockiesA = "(*) - Arquivos Armazenados no computador por sites para salvar referencias como informações de logon"
' - - - - - - - - - - - - - - - - - - - - - -'
Global Const arquivos_temp = "Deseja apagar os ARQUIVOS TEMPORARIOS INTERNET do seu computador"
Global Const arquivos_tempA = "(*) - Cópias de páginas da Web, imagens e mídia salvas para exibição mais rápida"
' - - - - - - - - - - - - - - - - - - - - - -'
Global Const formularios = "Deseja apagar os FORMULÁRIO WEB do seu computador"
Global Const formulariosA = "(*) - Informações salvas que voce digitou nos formulários"
' - - - - - - - - - - - - - - - - - - - - - -'
Global Const senhas = "Deseja apagar SENHAS WEB do seu computador"
Global Const senhasA = "(*) - Senhas salvas que são automaticamente preenchidas quando voce entra em um site que voce já visitou"
' - - - - - - - - - - - - - - - - - - - - - -'
Global Const tudo = "Deseja apagar TUDO(*) "
Global Const tudoA = "(*) - Deleta HistÓrico, coockies, arquivos temp, formulários, senhas etc...do seu computador "
'' - - - - - - - - - - - - - - - - - - - - - -'
Global Const vsettings = "Delete tudo + Arquivos e settings historicos também Add-ons(*) "
Global Const vsettingsA = "(*) - Deleta HistÓrico, coockies, arquivos temp, formulários, senhas etc...do seu computador "
' - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_deletar_historico()
img3_visivel
Tempo 1.5
resposta = MsgBox(historico & vbCrLf & historicoA & vbCrLf & divisao & vbCrLf & escolaA & vbCrLf & divisao, vbYesNo + vbCritical, escola)
If resposta = 6 Then
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1"
End If
End Sub
' - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_deletar_cookies()
img2_visivel
Tempo 1.5
resposta = MsgBox(coockies & vbCrLf & coockiesA & vbCrLf & escolaA, vbYesNo + vbCritical, escola)
If resposta = 6 Then
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2"
End If
End Sub
' - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_deletar_arquivos_temporarios_internet()
img1_visivel
Tempo 1.5
resposta = MsgBox(arquivos_temp & vbCrLf & arquivos_tempA & vbCrLf & divisao & vbCrLf & escolaA & vbCrLf & divisao, vbYesNo + vbCritical, escola)
If resposta = 6 Then
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8"
End If
End Sub
' - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_deletar_formularios_dados()
img4_visivel
Tempo 1.5
resposta = MsgBox(formularios & vbCrLf & formulariosA & vbCrLf & divisao & vbCrLf & escolaA & vbCrLf & divisao, vbYesNo + vbCritical, escola)
If resposta = 6 Then
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16"
End If
End Sub
' - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_deletar_senhas_salvas()
img5_visivel
Tempo 1.5
resposta = MsgBox(senhas & vbCrLf & senhasA & vbCrLf & divisao & vbCrLf & escolaA & vbCrLf & divisao, vbYesNo + vbCritical, escola)
If resposta = 6 Then
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32"
End If
End Sub
' - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_deletar_tudo()
img6_visivel
Tempo 1.5
resposta = MsgBox(tudo & vbCrLf & tudoA & vbCrLf & divisao & vbCrLf & escolaA & vbCrLf & divisao, vbYesNo + vbCritical, escola)
If resposta = 6 Then
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255"
End If
End Sub
' - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_deletar_Add_ons_Settings()
img6_visivel
Tempo 1.5
resposta = MsgBox(vsettings & vbCrLf & vsettingsA & vbCrLf & divisao & vbCrLf & escolaA & vbCrLf & divisao, vbYesNo + vbCritical, escola)
If resposta = 6 Then
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351"
End If
End Sub
' - - - - - - - - - - - - - - - - - - - - - -'

Lista de comandos do Windows 7 Shell

Comandos Shell são incrivelmente útil na criação de atalhos ou acessar rapidamente duro para chegar a locais. Eles podem ser usados ​​para fixar atalhos para a barra de tarefas ou apenas para tornar sua vida mais fácil. Para aqueles que são precedidas por "Shell:" quando usá-los em atalhos que você precisa adicionar o "explorer.exe" na frente deles. Em seguida, deverá ficar assim: explorer.exe shell: Pessoal

Windows 7 SOMENTE:
shell:Libraries
shell:MusicLibrary
shell:VideosLibrary
shell:OtherUsersFolder
shell:Device Metadata Store
shell:PublicSuggestedLocations
shell:DocumentsLibrary
shell:User Pinned
shell:UsersLibrariesFolder
shell:PicturesLibrary
shell:ImplicitAppShortcuts
shell:Ringtones
shell:CommonRingtones

Windows Vista & 7
shell:Common Programs
shell:GameTasks
shell:UserProfiles
shell:MyComputerFolder
shell:SyncSetupFolder
shell:DpapiKeys
shell:SamplePlaylists
shell:Favorites
shell:My Video
shell:SearchHomeFolder
shell:System
shell:CommonVideo
shell:SyncResultsFolder
shell:LocalizedResourcesDir
shell:Cookies
shell:Original Images
shell:CommonMusic
shell:My Pictures
shell:Cache
shell:Downloads
shell:CommonDownloads
shell:AppData
shell:SyncCenterFolder
shell:My Music
shell:ConflictFolder
shell:SavedGames
shell:InternetFolder
shell:Quick Launch
shell:SystemCertificates
shell:Contacts
shell:TreePropertiesFolder
shell:Profile
shell:Start Menu
shell:Common AppData
shell:PhotoAlbums
shell:ConnectionsFolder
shell:Administrative Tools
shell:PrintersFolder
shell:Default Gadgets
shell:ProgramFilesX86
shell:Searches
shell:Common Startup
shell:ControlPanelFolder
shell:SampleVideos
shell:SendTo
shell:ResourceDir
shell:ProgramFiles
shell:CredentialManager
shell:PrintHood
shell:MAPIFolder
shell:CD Burning
shell:AppUpdatesFolder
shell:Common Start Menu
shell:LocalAppDataLow
shell:Templates
shell:Gadgets
shell:Programs
shell:Recent
shell:SampleMusic
shell:Desktop
shell:CommonPictures
shell:RecycleBinFolder
shell:CryptoKeys
shell:Common Templates
shell:Startup
shell:Links
shell:OEM Links
shell:SamplePictures
shell:Common Desktop
shell:NetHood
shell:Games
shell:Common Administrative Tools
shell:NetworkPlacesFolder
shell:SystemX86
shell:History
shell:AddNewProgramsFolder
shell:Playlists
shell:ProgramFilesCommonX86
shell:PublicGameTasks
shell:ChangeRemoveProgramsFolder
shell:Public
shell:Common Documents
shell:CSCFolder
shell:Local AppData
shell:Windows
shell:UsersFilesFolder
shell:ProgramFilesCommon
shell:Fonts
shell:Personal

Windows 7 Shortcuts
compilei a seguinte lista com um início de Alpha build do Windows 7. É possível que alguns destes foram alterados com versões mais recentes. Se você encontrar um que é errado por favor me avise para que eu possa corrigi-lo.

Wireless Networks pop-up
rundll32.exe van.dll,RunVAN

Advanced Restore
sdclt.exe /restorewizardadmin

Restore Files
sdclt.exe /restorewizard

Backup Location & Settings
sdclt.exe /configure

Add Network Location (wizard)
rundll32.exe shwebsvc.dll,AddNetPlaceRunDll

Indexing Options
control.exe srchadmin.dll

Notification Cache
rundll32.exe shell32.dll,Options_RunDLL 5

Aero (Transparency) Off
Rundll32.exe DwmApi #104

Aero (Transparency) On
Rundll32.exe DwmApi #102

Welcome Center
rundll32.exe oobefldr.dll,ShowWelcomeCenter

Add/Remove Programs
RunDll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,0

Content Advisor
RunDll32.exe msrating.dll,RatingSetupUI

Control Panel
RunDll32.exe shell32.dll,Control_RunDLL

Date and Time Properties
RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl

Display Settings
RunDll32.exe shell32.dll,Control_RunDLL access.cpl,,3

Device Manager
RunDll32.exe devmgr.dll DeviceManager_Execute

Folder Options – File Types
RunDll32.exe shell32.dll,Control_Options 2

Folder Options – General
RunDll32.exe shell32.dll,Options_RunDLL 0

Folder Options – Search
RunDll32.exe shell32.dll,Options_RunDLL 2

Folder Options – View
RunDll32.exe shell32.dll,Options_RunDLL 7

Forgotten Password Wizard
RunDll32.exe keymgr.dll,PRShowSaveWizardExW

Hibernate
RunDll32.exe powrprof.dll,SetSuspendState

Keyboard Properties
RunDll32.exe shell32.dll,Control_RunDLL main.cpl @1

Lock Screen
RunDll32.exe user32.dll,LockWorkStation

Mouse Properties
RunDll32.exe shell32.dll,Control_RunDLL main.cpl @0

Map Network Drive
RunDll32.exe shell32.dll,SHHelpShortcuts_RunDLL Connect

Network Connections
RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl

Power Options
RunDll32.exe Shell32.dll,Control_RunDLL powercfg.cpl

Regional Settings
RunDll32.exe shell32.dll,Control_RunDLL intl.cpl,,3

Stored Usernames and Passwords
RunDll32.exe keymgr.dll,KRShowKeyMgr

System Properties: Advanced
RunDll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,4

System Properties: Automatic Updates
RunDll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,5

Taskbar Properties
RunDll32.exe shell32.dll,Options_RunDLL 1

User Accounts
RunDll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl

Windows Security Center
RunDll32.exe shell32.dll,Control_RunDLL wscui.cpl

Windows – About
RunDll32.exe SHELL32.DLL,ShellAboutW

Unplug/Eject Hardware
RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll

Windows Firewall
RunDll32.exe shell32.dll,Control_RunDLL firewall.cpl

Wireless Network Setup
RunDll32.exe shell32.dll,Control_RunDLL NetSetup.cpl,@0,WNSW

Open Control Panel (All Items)
explorer.exe shell:::{21ec2020-3aea-1069-a2dd-08002b30309d}

Manage Wireless Networks
explorer.exe shell:::{1fa9085f-25a2-489b-85d4-86326eedcd87}

Sound Control Playback Tab
rundll32.exe shell32.dll,Control_RunDLLmmsys.cpl

Sound Control Sounds Tab
rundll32.exe shell32.dll,Control_RunDLLmmsys.cpl,,2

Sound Control Recording Tab
rundll32.exe shell32.dll,Control_RunDLLmmsys.cpl,,1

Add/Remove Programs
rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl

Add/Remove Windows Components
rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2

Set Program Access and Computer Defaults
rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3

People Near Me
rundll32.exe shell32.dll,Control_RunDLL collab.cpl

People Near Me Sign In Tab
rundll32.exe shell32.dll,Control_RunDLL collab.cpl,,1

Screen Resolution
rundll32.exe shell32.dll,Control_RunDLL desk.cpl

Personalization
rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2

Screen Saver
rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1

Windows Firewall
rundll32.exe shell32.dll,Control_RunDLL firewall.cpl

Device Manager
rundll32.exe shell32.dll,Control_RunDLL hdwwiz.cpl

Power Options
rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl

Power Options Change Plan Settings
rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl,,1

System Properties
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl

System Properties Hardware Tab
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2

System Properties Advanced Tab
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3

System Properties System Protection Tab
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,4

System Properties Remote Tab
rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,5

Pen and Touch Tablet PC Settings
rundll32.exe shell32.dll,Control_RunDLL tabletpc.cpl

Pen and Touch Tablet PC Settings Flicks Tab
rundll32.exe shell32.dll,Control_RunDLL tabletpc.cpl,,1

Pen and Touch Tablet PC Settings Handwriting Tab
rundll32.exe shell32.dll,Control_RunDLL tabletpc.cpl,,2

Phone and Modem Options
rundll32.exe shell32.dll,Control_RunDLL telephon.cpl

Phone and Modem Options Modems Tab
rundll32.exe shell32.dll,Control_RunDLL telephon.cpl,,1

Phone and Modems Options Advanced Tab
rundll32.exe shell32.dll,Control_RunDLL telephon.cpl,,2

Date and Time
rundll32.exe shell32.dll,Control_RunDLL timedate.cpl

Date and Time Additional Clocks
rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1

Action Center
rundll32.exe shell32.dll,Control_RunDLL wscui.cpl

Unplug/Eject Hardware
RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll

Internet Explorer Specific Commands

Delete Temporary Internet Files:
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8

Delete Cookies:
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2

Delete History:
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1

Delete Form Data:
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16

Delete Passwords:
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32

Delete All:
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255

Delete All + files and settings stored by Add-ons:
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351

Miscellaneous Variables

Windows Directory
%WINDIR%
%SYSTEMROOT%

Hard Drive That Contains OS
%HOMEDRIVE%

Users Home Directory
%HOMEPATH%
%USERPROFILE%

Default Temporary Directory
%TEMP%
%TMP%

Program Files
%PROGRAMFILES%

Current Users Application Data Directory
%APPDATA%

Se alguém tiver os adicionais que eu perdi você pode enviá-los e vou adicioná-los à lista.


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.

Retorna os formatos de data e hora
Saberexcel - dicas microsoft excel vba macros

Estas funções e declarações do aplicativo microsoft excel vba, retornam os formatos de data hora

Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _
(ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String, ByVal cchData As Long) As Long

Sub testando_formatos_dia_hora()
MsgBox DateCourte, vbInformation, "Saberexcel - site das macros"
MsgBox DateLongue, vbInformation, "Saberexcel - site das macros"
MsgBox FormatoHorario, vbInformation, "Saberexcel - site das macros"
End Sub

Function DateCourte()
Dim tmp$
With Application
tmp = .Substitute(GetParam(&H1F), "d", .International(xlDayCode))
tmp = .Substitute(tmp, "m", .International(xlMonthCode))
tmp = .Substitute(tmp, "y", .International(xlYearCode))
End With
DateCourte = tmp
End Function

Function DateLongue()
Dim tmp$
With Application
tmp = .Substitute(GetParam(&H20), "d", .International(xlDayCode))
tmp = .Substitute(tmp, "m", .International(xlMonthCode))
tmp = .Substitute(tmp, "y", .International(xlYearCode))
End With
DateLongue = tmp
End Function

Function FormatoHorario()
Dim tmp$
With Application
tmp = .Substitute(GetParam(&H1003), "h", .International(xlHourCode))
tmp = .Substitute(tmp, "m", .International(xlMinuteCode))
tmp = .Substitute(tmp, "s", .International(xlSecondCode))
End With
FormatoHorario = tmp
End Function

Private Function GetParam(LocalParam As Long) As String
Dim buf As String
buf = Space$(255)
GetLocaleInfo 0, LocalParam, buf, Len(buf)
GetParam = Application.Trim$(Mid$(buf, 1))
End Function

Function SepDec()
SepDec = Application.International(xlDecimalSeparator)
End Function

Function SepMil()
SepMil = Application.International(xlThousandsSeparator)
End Function

Faça o download do exemplo de planilha microsft excel vba

Retorna o nome do usuário e nome máquina
Saberexcel - Dicas microsoft Excel VBA

Estas macros com as declarações e funções retorna o nome do usuario e o nome do máquina

Option Explicit

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Public Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Sub Teste_Usuario_host()
MsgBox "Usuário: [" & Nome_Usuario & "] e " & "Nome da Máquina [" & Nome_Maquina & " ]", _
vbInformation, "Saberexcel - o site das macros"
End Sub

Function Nome_Usuario() As String
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetUserName(Buffer, BuffLen) Then _
Nome_Usuario = Left(Buffer, BuffLen - 1)
End Function

Function Nome_Maquina() As String
Dim Buffer As String * 256
Dim BuffLen As Long
Dim lngX As Long
Dim strCompName As String
BuffLen = 255

If GetComputerName(Buffer, BuffLen) Then _
Nome_Maquina = Left(Buffer, BuffLen)
End Function


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

 

 

 

 

 

Mostra os arquivos ativos na memória(Ram)
Saberexcel - dicas aplicativo microsoft excel vba macros

Estas declarações com a macro mostra todos os arquivos que estão
na memória RAM do seu computador, cria uma planilha com a relação

'****************** declarações*******
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 Load_Lista_Memoria()
Dim CurrWnd As Long
Dim Length As Long
Dim TaskName As String
Dim Parent As Long

i = 1
Sheets.Add 'adiciona uma nova planilha para receber os dados
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
'mensagem na planilha inserida
ActiveSheet.Range("E8").Value = "Nova Planilha inserida com a relação de todos ítens ativos na memória RAM"
Columns("A").AutoFit 'Ajusta a coluna A
End Sub

Aprenda tudo sobre o aplicativo Microsoft Excel VBA - com SaberExcel