Új hozzászólás Aktív témák

• #7087 Fire/SOUL/CD félisten Oly #7086

  Új Válasz 2010-05-05 20:41:27 #7087

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Oly #7086 üzenetére

  Hali!

  Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  
  Private Sub Workbook_Open()
  MyFile = "d:\" & "myfilename.txt"
  fnum = FreeFile()
  Open MyFile For Append As fnum
  Write #fnum, Now(), Environ("USERNAME")
  Close #fnum
  End Sub

  Képben

  Fire.

Új hozzászólás Aktív témák