Home Excel - Dicas Microsoft Excel VBA Excel VBA - Acesso Log Excel vba acesso abre um arquivo txt com dados do acesso

Excel vba acesso abre um arquivo txt com dados do acesso

E-mail Imprimir PDF

Saberexcel - site das macros microsoft Excel VBA

Esse exemplo de macros do Aplicativo Microsoft Excel VBA, abre um arquivo txt, com nome [Open "C:\VBA\Acesso a planilha.txt"] em determinado diretorio("especificar na macro o caminho do path"), e nesse arquivo.txt será inserido os dados do usuário, nome da maquina, horario e data do login efetuado.

resultado dos dados inseridos no arquivo texto:
Usuário: SaberExcel - Máquina: EXCELVBAESTUDOS - Data: - 26/08/2010 19:51:16

EM UM MÓDULO COMUM INSIRA AS DECLARAÇÕES E PROCEDIMENTOS ABAIXO:

Declare Function GetComputerName& Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
(ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
'------------------------------------------'

Function sbMaquina_Nome() 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 _
sbMaquina_Nome = Left(Buffer, BuffLen)
End Function
'------------------------------------------'


Function sbNomeUsuario() As String
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256

If GetUserName(Buffer, BuffLen) Then _
sbNomeUsuario = Left(Buffer, BuffLen - 1)
End Function

'------------------------------------------'


NO MÓDULO DE CÓDIGO DO LIVRO WORKBOOK INSIRA OS CÓDIGOS

Private Sub Workbook_Open()
Dim vUsuario As String, Maquina As String
vUsuario = sbNomeUsuario()
Maquina = sbMaquina_Nome()
Open "C:\VBA\Acesso a planilha.txt" For Append As #1
Write #1, "Usuário: " & vUsuario & " - " & "Máquina: " _
& Maquina & " - " & "Data: - " & Now
Close #1
End Sub

Aprenda Aplicativo Microsoft Excel VBA




 Baixe o exemplo de planilha da macros declarações e procedimentos acima
 vba acesso planilha registro usuario maquina data hora (25.01 KB 2010-08-26 19:27:27)

Última atualização em Qui, 18 de Agosto de 2011 11:52  

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_counterHoje4889
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19936
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês38124
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460953
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