her PC desktopta çalışan makro

[selime]

Excelde data menüsünden "import external data/ import data" ile başlayan bir makrom var. Bunun formülü

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\tr08917\Desktop\rc_po_list.lst", Destination _
:=Range("A1"))

ile başlıyor. Bu makronun her PC nin kendi desktopunda çalışabilmesi için "C:\Documents and Settings\tr08917\" yerine ne koymalıyım?

Yardımınız için şimdiden teşekkürler

 

[Ferhat Pazarçevirdi]

Windows.Application.UserName

Bunu kullanmayı deneyin.

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
& "C:\Documents and Settings\" [COLOR=red][B]& Windows.Application.UserName &[/B][/COLOR] "\Desktop\rc_po_list.lst", Destination _
:=Range("A1"))

 

[Haluk]

Alternatif:

    UserDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & UserDesktop & "\rc_po_list.lst", Destination:=Range("A1"))