dosya adresi

[metinozlu]

iyi günler

öyle bir dosya adresi yazılmalı ki program c veya d sürücüsünde kurulmuş olmasına bakmaksızın program içindeki xls dosyaları açılabilsin.

iyi çalışmalar

 

[Haluk]

"Thisworkbook.Path" ifadesi kodun çalıştırıldığı kitabın yer aldığı dosya yolunu verir.

Bununla birşeyler yapabilirsiniz.

 

[metinozlu]

basit bir örnek yazabilirmisiniz.

 

[Haluk]

..... program içindeki xls dosyaları .....

Bundan neyi kastediyorsunuz ?

 

[metinozlu]

anlaşılmıştır. k::
iyi günler

 

[metinozlu]

iyi günler
verilen bilgiye göre deneme yaptım ama başarısız oldum.
ThisWorkbook.Path ifadesi aşagıdaki kodda nereye yazmalıyım.
Workbooks.Open Filename:="C:\KAMU İHALE PROGRAMI\MEVZUAT.xls"

 

[metinozlu]

:kafa:

 

[ALPEN]

Sorunuzu gözden geçirip tekrar düzenleyip detaylandırın bence.

Bu şekilde pek bir şey anlaşılmıyor.

 

[metinozlu]

Sorumu şöyle açıklıyaym.
bir program çalışmam var.program klasörünün adı Kamu ihale programı.programın calışması için mutlaka Kamu ihale programı klasörünün c sürücüsü içine bulunması gerekiyor.
klasör içinde mevzuat.xls ve kamu ihale rehberi.xls dosyaları var.Programa giriş kamu ihale rehberi.xls kitabından yapılıyor.mevzuat.xls kitabı kamu ihale rehberi.xls içindeki kodlar ile açılıyor.
programı kullancısının biri(!) programın D sürücüsünde de çalışmasını istediğini ifade etti.tabi bu durumda bütün dosya adres yollarını değiştirmem gerekiyor.ancak kimi bilgisayarlarda da d sürücüsü olmayabilir.
ben de düşündüm ki program klasörü(Kamu ihale programı) nerede bulunursa bulunsun(C veya D) kamu ihale rehberi.xls klasöründeki kod ile mevzuat.xls kitabı açılsın.işte ben Bu işi yapacak bir kod arıyorum.
Bilmem anlatabildim mi?

 

[Haluk]

Yukarıda bahsetmiştim ...

Workbooks.Open Filename:= thisworkbook.path & "\MEVZUAT.xls"

 

[metinozlu]

sayın raider teşekkürler
ilk açıkladığınız ifadeyi kodda birleştirememiştim.o konu da promlem yaşadım.
verdiğiniz koda göre deneme yaptım çalıştı.
artık program bütün sürücülerde çalışabilir.(A,B,C,D,E,F(!))
İyi günler ilgilenen herkese teşekkür ederim. :mutlu: