Visual Basic

thebiostyle wrote:

I have done that and yet I haven't found anything on it,

I are Troll

jainiraj wrote:

two UDP socket on the same machine..

Private Sub Workbook_Open()
Range("AK4").Value = ThisWorkbook.Name
End Sub

output:F28900035.xls

Dim str as String
str=ActiveCell.Value 'this contains the output 

Range("A2").Value=Replace(str,".xls","",1)   'this will show F28900035

' Makes sure all variables are dimensioned in each subroutine.
     Option Explicit

     ' Access the GetUserNameA function in advapi32.dll and
     ' call the function GetUserName.
     Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long

     ' Main routine to Dimension variables, retrieve user name
     ' and display answer.
     Sub Get_User_Name()

     ' Dimension variables
     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String

     ' Get the user name minus any trailing spaces found in the name.
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

     ' Display the User Name
     ActiveCell.Value=UserName
     End Sub

vijay2482 wrote:

I will use google before getting into the forum.

thatraja |Chennai|India|

---

Brainbench certifications
Down-votes are like kid's kisses don't reject it
Do what you want quickly because the Doomsday on 2012