Home Excel - Dicas Microsoft Excel VBA Excel VBA - Aplicativo Excel vba aplicativo mostrando o total de memória

Excel vba aplicativo mostrando o total de memória

E-mail Imprimir PDF

Saberexcel o site das macros
Estas declarações macros e funções do aplicativo Microsoft Excel VBA, mostram o total de memória


Option Explicit
 
Declare Function GetCommandLine Lib "kernel32" _
  Alias "GetCommandLineA" () As Long
 
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
  (lpvDest As Any, lpvSource As Any, ByVal NumBytes As Long)
 
Sub TestCommand()
  MsgBox VBACommand
  MsgBox VBACommand2
End Sub
 
Function VBACommand() As String
  Dim Buffer() As Byte
  Dim Addr As Long
  Dim sTemp As String
  Dim i As Long
 
  Const BufferLen = 256
 
  ReDim Buffer(0 To BufferLen - 1)
  Addr = GetCommandLine()
 
  CopyMemory Buffer(0), ByVal Addr, BufferLen
 
 'converte caracter  ANSI em string para UNICODE
 
sTemp = StrConv(Buffer(), vbUnicode)
 
  'truncar se for byte nulo
  i = InStr(sTemp, Chr$(0))
  If i > 0 Then
    VBACommand = Left$(sTemp, i - 1)
  Else
    VBACommand = sTemp & "….."
  End If
End Function

'---------------------------------'
Function VBACommand2() As String
  Dim Buffer As String
  Dim Addr As Long
  Const BufferLen = 256
 
  Buffer = String$(BufferLen, 0)
  Addr = GetCommandLine()
  CopyMemory ByVal Buffer, ByVal Addr, BufferLen

 'nao precisa converter ANSI / Unicode
  VBACommand2 = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
End Function



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel



Última atualização em Sáb, 13 de Agosto de 2011 17:19  

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_counterHoje4060
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30583
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17789
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440618
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