PC kullanıcı adının otomatik alınması

[truvali27m]

Merhaba arkadaşlar benim şöyle sorum olcaktı.Aşağıdaki kırmızı renkli kodda kullanıcı adının otomatik olarak alınmasını istiyorum dosyayı farklı bilgisayarlarda açtığım için sürekli kodları değiştirmek istiyor.Application.Username kodu ile yapmaya çalıştım ama olmadı.Bu konuda yardım ederseniz sevinirim.Teşekkür ederim...

Workbooks.Open Filename:="C:\Users\dell\Desktop\BORDROLAR\Kitap1.xlsm"

 

[cellswhite]

Merhaba,

Aşağıdaki kod işinizi görebilir kanısındayım.

Dim sHostName As String
Dim sUserName As String
sHostName = Environ$("computername") ' [b]Bilgisayar adı [/b]
sUserName = Environ$("username") ' [b] kullanıcı adı [/b]
'MsgBox sHostName & " " & sUserName
Workbooks.Open Filename:="C:\Users\" & sHostName & "\Desktop\BORDROLAR\Kitap1.xlsm"

 

[Murat OSMA]

İnceleyiniz...

http://www.excel.web.tr/f48/environ...hell-specialfolders-parametreleri-t45691.html

 

[truvali27m]

Merhaba,

Aşağıdaki kod işinizi görebilir kanısındayım.

Dim sHostName As String
Dim sUserName As String
sHostName = Environ$("computername") ' [b]Bilgisayar adı [/b]
sUserName = Environ$("username") ' [b] kullanıcı adı [/b]
'MsgBox sHostName & " " & sUserName
Workbooks.Open Filename:="C:\Users\" & sHostName & "\Desktop\BORDROLAR\Kitap1.xlsm"

Sn.cellswhite çok teşekkür ederim verdiğiniz kodlar ile sorunumu hallettim.
Sn.Murat bey size de çok teşekkür ederim verdiğiniz linkteki konuları inceleyeceğim.

 

[Murat OSMA]

Rica ederim Erdinç Bey, eminim sitede bu konuda daha birçok örnek vardır...

İyi günler...