Hello,

I would like my macro to check the name of the computer before running.
How can I retrieve the computer name value through a macro?


Thank you.


Eric

environ("computername")

--


Gary


"Eric" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Hello,
>
> I would like my macro to check the name of the computer before running.
> How can I retrieve the computer name value through a macro?
>
>
> Thank you.
>
>
> Eric
>
>

in case you need some code to show usage, maybe something like this:

Sub get_name()
Dim computername As String
computername = Environ("computername")
MsgBox computername
End Sub


--


Gary


"Eric" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Hello,
>
> I would like my macro to check the name of the computer before running.
> How can I retrieve the computer name value through a macro?
>
>
> Thank you.
>
>
> Eric
>
>

in case you need some code to show usage, maybe something like this:

Sub get_name()
Dim computername As String
computername = Environ("computername")
MsgBox computername
End Sub


--


Gary


"Eric" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Hello,
>
> I would like my macro to check the name of the computer before running.
> How can I retrieve the computer name value through a macro?
>
>
> Thank you.
>
>
> Eric
>
>

Hi Eric

You didn't mention what version of Excel you were using but here is a 32 bit
version that works under most recent version, I haven't tried it under 2007
or Vista but it works under XP

Open a standard module and paste the following code

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"
(ByVal lpBuffer As String, nSize As Long) As Long

Sub Get_Computer_Name_Ex()
Dim Comp_Name_B As String * 25
'this function seems to work differntly than most, it doesn't return the
number of char's placed in the buffer
Ret = GetComputerName(Comp_Name_B, Len(Comp_Name_B))
'but the string is always ended with a null terminated string so we can
use the Chr(0) function to find the end
Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
'and return only the computer name
MsgBox Comp_Name
End Sub

hope this helps

David

"Eric" wrote:

> Hello,
>
> I would like my macro to check the name of the computer before running.
> How can I retrieve the computer name value through a macro?
>
>
> Thank you.
>
>
> Eric
>
>
>

On Feb 22, 11:15 am, dkinn <d...@discussions.microsoft.com> wrote:
> Hi Eric
>
> You didn't mention what version of Excel you were using but here is a 32 bit
> version that works under most recent version, I haven't tried it under 2007
> or Vista but it works under XP
>
> Open a standard module and paste the following code
>
> Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"
> (ByVal lpBuffer As String, nSize As Long) As Long
>
> Sub Get_Computer_Name_Ex()
> Dim Comp_Name_B As String * 25
> 'this function seems to work differntly than most, it doesn't return the
> number of char's placed in the buffer
> Ret = GetComputerName(Comp_Name_B, Len(Comp_Name_B))
> 'but the string is always ended with a null terminated string so we can
> use the Chr(0) function to find the end
> Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
> 'and return only the computer name
> MsgBox Comp_Name
> End Sub
>
> hope this helps
>
> David
>
> "Eric" wrote:
> > Hello,
>
> > I would like my macro to check the name of the computer before running.
> > How can I retrieve the computer name value through a macro?
>
> > Thank you.
>
> > Eric

its not working Eric, I want to get it print on my Excel Header &
Footer

hws would i do the same

change the sheet name and range to your needs: just paste this code in a blank
workbbok and it should work, though.

Sub print_name()
Dim ws As Worksheet
Dim computername As String
computername = Environ("computername")
Application.ScreenUpdating = False
Set ws = Worksheets("sheet1")
With ws.PageSetup
.PrintTitleRows = "$1:$1"
.Orientation = xlPortrait
.CenterHeader = "&B&12" & computername
.PrintGridlines = True
.Zoom = 100
.RightMargin = Application.InchesToPoints(0.4)
.LeftMargin = Application.InchesToPoints(0.4)
.TopMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints(0.5)
.RightFooter = "Page " & "&P" & " of " & "&N"
.RightHeader = "&B&12 " & Date
.PrintArea = "A1:G10"
.CenterFooter = ""
.FooterMargin = Application.InchesToPoints(0.3)
.CenterHorizontally = True
End With

ws.PrintPreview

Application.ScreenUpdating = True
End Sub

--


Gary


"Akash" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> On Feb 22, 11:15 am, dkinn <d...@discussions.microsoft.com> wrote:
>> Hi Eric
>>
>> You didn't mention what version of Excel you were using but here is a 32 bit
>> version that works under most recent version, I haven't tried it under 2007
>> or Vista but it works under XP
>>
>> Open a standard module and paste the following code
>>
>> Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"
>> (ByVal lpBuffer As String, nSize As Long) As Long
>>
>> Sub Get_Computer_Name_Ex()
>> Dim Comp_Name_B As String * 25
>> 'this function seems to work differntly than most, it doesn't return the
>> number of char's placed in the buffer
>> Ret = GetComputerName(Comp_Name_B, Len(Comp_Name_B))
>> 'but the string is always ended with a null terminated string so we can
>> use the Chr(0) function to find the end
>> Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
>> 'and return only the computer name
>> MsgBox Comp_Name
>> End Sub
>>
>> hope this helps
>>
>> David
>>
>> "Eric" wrote:
>> > Hello,
>>
>> > I would like my macro to check the name of the computer before running.
>> > How can I retrieve the computer name value through a macro?
>>
>> > Thank you.
>>
>> > Eric
>
> its not working Eric, I want to get it print on my Excel Header &
> Footer
>
> hws would i do the same
>

Try the following:

Public Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long

Sub CompNameToHeaderFooter()
Dim CompName As String
Dim L As Long
CompName = String$(260, vbNullChar)
L = Len(CompName)
GetComputerName CompName, L
CompName = Left(CompName, L)
ActiveSheet.PageSetup.CenterHeader = CompName
ActiveSheet.PageSetup.CenterFooter = CompName
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)


"Akash" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> On Feb 22, 11:15 am, dkinn <d...@discussions.microsoft.com> wrote:
>> Hi Eric
>>
>> You didn't mention what version of Excel you were using but here is a 32
>> bit
>> version that works under most recent version, I haven't tried it under
>> 2007
>> or Vista but it works under XP
>>
>> Open a standard module and paste the following code
>>
>> Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"
>> (ByVal lpBuffer As String, nSize As Long) As Long
>>
>> Sub Get_Computer_Name_Ex()
>> Dim Comp_Name_B As String * 25
>> 'this function seems to work differntly than most, it doesn't return
>> the
>> number of char's placed in the buffer
>> Ret = GetComputerName(Comp_Name_B, Len(Comp_Name_B))
>> 'but the string is always ended with a null terminated string so we
>> can
>> use the Chr(0) function to find the end
>> Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
>> 'and return only the computer name
>> MsgBox Comp_Name
>> End Sub
>>
>> hope this helps
>>
>> David
>>
>> "Eric" wrote:
>> > Hello,
>>
>> > I would like my macro to check the name of the computer before running.
>> > How can I retrieve the computer name value through a macro?
>>
>> > Thank you.
>>
>> > Eric
>
> its not working Eric, I want to get it print on my Excel Header &
> Footer
>
> hws would i do the same
>

It works, thank you.

Eric


"Gary Keramidas" <GKeramidasATmsn.com> wrote in message
news:(E-Mail Removed)...
> in case you need some code to show usage, maybe something like this:
>
> Sub get_name()
> Dim computername As String
> computername = Environ("computername")
> MsgBox computername
> End Sub
>
>
> --
>
>
> Gary
>
>
> "Eric" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> Hello,
>>
>> I would like my macro to check the name of the computer before running.
>> How can I retrieve the computer name value through a macro?
>>
>>
>> Thank you.
>>
>>
>> Eric
>>
>>
>
>

Very nice. Thank you.

Eric


"Gary Keramidas" <GKeramidasATmsn.com> wrote in message
news:%(E-Mail Removed)...
> change the sheet name and range to your needs: just paste this code in a
> blank workbbok and it should work, though.
>
> Sub print_name()
> Dim ws As Worksheet
> Dim computername As String
> computername = Environ("computername")
> Application.ScreenUpdating = False
> Set ws = Worksheets("sheet1")
> With ws.PageSetup
> .PrintTitleRows = "$1:$1"
> .Orientation = xlPortrait
> .CenterHeader = "&B&12" & computername
> .PrintGridlines = True
> .Zoom = 100
> .RightMargin = Application.InchesToPoints(0.4)
> .LeftMargin = Application.InchesToPoints(0.4)
> .TopMargin = Application.InchesToPoints(0.75)
> .HeaderMargin = Application.InchesToPoints(0.25)
> .BottomMargin = Application.InchesToPoints(0.5)
> .RightFooter = "Page " & "&P" & " of " & "&N"
> .RightHeader = "&B&12 " & Date
> .PrintArea = "A1:G10"
> .CenterFooter = ""
> .FooterMargin = Application.InchesToPoints(0.3)
> .CenterHorizontally = True
> End With
>
> ws.PrintPreview
>
> Application.ScreenUpdating = True
> End Sub
>
> --
>
>
> Gary
>
>
> "Akash" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> On Feb 22, 11:15 am, dkinn <d...@discussions.microsoft.com> wrote:
>>> Hi Eric
>>>
>>> You didn't mention what version of Excel you were using but here is a 32
>>> bit
>>> version that works under most recent version, I haven't tried it under
>>> 2007
>>> or Vista but it works under XP
>>>
>>> Open a standard module and paste the following code
>>>
>>> Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"
>>> (ByVal lpBuffer As String, nSize As Long) As Long
>>>
>>> Sub Get_Computer_Name_Ex()
>>> Dim Comp_Name_B As String * 25
>>> 'this function seems to work differntly than most, it doesn't return
>>> the
>>> number of char's placed in the buffer
>>> Ret = GetComputerName(Comp_Name_B, Len(Comp_Name_B))
>>> 'but the string is always ended with a null terminated string so we
>>> can
>>> use the Chr(0) function to find the end
>>> Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
>>> 'and return only the computer name
>>> MsgBox Comp_Name
>>> End Sub
>>>
>>> hope this helps
>>>
>>> David
>>>
>>> "Eric" wrote:
>>> > Hello,
>>>
>>> > I would like my macro to check the name of the computer before
>>> > running.
>>> > How can I retrieve the computer name value through a macro?
>>>
>>> > Thank you.
>>>
>>> > Eric
>>
>> its not working Eric, I want to get it print on my Excel Header &
>> Footer
>>
>> hws would i do the same
>>
>
>