masaüstü değişken yolu

[zulfuernek]

hazırladığım userformda

ChDir "C:\Users\Elazığ\Desktop"

açacağım dosyanın yolunu gösteriyor. fakat ben başka bilgisayarda bu çalışmayı açacağım zaman hata verecektir. yeni klasörün masaüstü adresi , atıyorum

CdDir "C:\Users\Malatya\Desktop" oluyor bu kodda hangi bilgisayara yüklersem ona göre masaüstü adresini alması için ne yapabilirim.

herkese teşekkürler

 

[Orion1]

Buyurun.

Set WinScrObj = CreateObject("WScript.Shell")
    MyFolder = WinScrObj.SpecialFolders("DeskTop")

 

[zulfuernek]

ChDir "C:\Users\Elazığ\Desktop"
Workbooks.OpenText Filename:="C:\Users\Elazığ\Desktop\BCH.TXT", Origin:= _
1254, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(7, 1), Array(22, 1), Array(30, 1), Array(38, 1), Array(41, 1), Array(85, 1), Array(96 _
, 1), Array(117, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=False
Range("D,F:F,I:I,J:J,K:K,L:L,M:M").Select
Range("M1").Activate
Selection.Delete Shift:=xlToLeft


Orion hocam emeğine sağlık. bu formülde nasıl uygulayacağım bunu peki? biraz karışık çünkü

 

[Orion1]

ilgili yeri aşağıdaki gibi yapınız.

Set WinScrObj = CreateObject("WScript.Shell")
    MyFolder = WinScrObj.SpecialFolders("DeskTop")
Workbooks.OpenText Filename:=[B][COLOR="Red"]MyFolder[/COLOR][/B] & "\BCH.TXT"

 

[zulfuernek]

Orion hocam ver elini öpeyim ) bu projemde senin katkın inanki çok çok büyük en büyük emek senin. "ORGANİZER" isimli programı yapıyorum ve son rütuşları kaldı.

bu konuda bana gösterdiğin sabır ve hızlı cevaplar için ne kadar teşekkür etsem azdır.

pki hocam ben bişey sorucam burda chDir ne anlama geliyor

 

[Orion1]

Orion hocam ver elini öpeyim ) bu projemde senin katkın inanki çok çok büyük en büyük emek senin. "ORGANİZER" isimli programı yapıyorum ve son rütuşları kaldı.

bu konuda bana gösterdiğin sabır ve hızlı cevaplar için ne kadar teşekkür etsem azdır.

pki hocam ben bişey sorucam burda chDir ne anlama geliyor

chdir konumlanacak yere gitmek demek.
Sizin kodlarda buna gerek yok.