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)
