sabit dosya yolu

[aydın3838]

selamlar
uzmanlara bir sorum olacak

benim projemde bir kaç tane klasör mevcut

bu klasörlerde excel sayfaları var ve klasörlerede sürekli sayfa ekliyor ve siliyorum

projeyi kendi bilgisayarımdan başka bilgisayara attığımda çalışmıyor

dosya yolunu yeniden istiyor

bunu nasıl düzeltebilirim

bütün bilgisayarlarda sabit bir adres gerekiyor


yardımcı olursanız savinirim

 

[Necdet]

Merhaba,

Sorunuzu tam olarak anlamadım ama dosyanızın bulunduğu path (yol) i kullanabilirsiniz.

ActiveWorkbook.Path

 

[aydın3838]

Merhaba,

Sorunuzu tam olarak anlamadım ama dosyanızın bulunduğu path (yol) i kullanabilirsiniz.

ActiveWorkbook.Path

cevap için teşekkürler sayın necdet yeşertener

ActiveWorkbook.Path olayını nasıl ve nerede kullanırım
biraz açarmısınız

 

[Necdet]

Merhaba,

Diyelim ki sizin dosyanızdaki makro ile başka dosyalara erişip oradan veriler alıyor. Bu dosyaların bulunduğu yeri de örneğin C:\Veri dizininde olduğunu varsayalım. Bu durumda C:\Veri dizini sizin bilgisayarınızda var ve sorunsuz çalışıyorsunuz, ilgili dosyayı başka bir arkadaşınıza gönderdiğinizde o arkadaşınız da kullandığınız dosyaların C:\Veri dizininde olmasını söylemeniz gerekir.

Aksi takdirde kodlarınız çalışmayacaktır.

Ama arkadaşınıza tüm dosyaları bir dizine kopyalayıp çalıştır dediğinizde hangi dizinde olursa olsun dosyadaki kodlar çalışacaktır. Çünkü asıl dosyanızın bulunduğu dizinde diğer dosyaları arayacağından sorun olmaz.

Anlatabildim mi bilmiyorum

 

[aydın3838]

teşekkürler sayın necdet yeşertener

ben şuanda alttaki kodu kullanmaktayım

anladığıma göre benim kodlarda sizin anlattığınız uyuşuyor

kodlara bakarmısınız bu kodda anlattığm olmuyor

dosya = Dir("C:\Users\AYDIN ISI CAM\Desktop\AYDIN CAM KAYIT\MÜŞTERİ KARTLARI\*.xls")

Do While dosya <> ""
ListBox1.AddItem dosya
dosya = Dir
Loop

MyPath = "C:\Users\AYDIN ISI CAM\Desktop\AYDIN CAM KAYIT\MÜŞTERİ KARTLARI\"
MyFile = Dir(MyPath & Application.PathSeparator & _
"*.xls", vbDirectory)
Do While MyFile <> ""
If MyFile = ThisWorkbook.Name Then GoTo ResumeLoop:
i = i + 1
ComboBox1.AddItem MyFile
MyFile = Dir
ResumeLoop:
Loop

 

[Korhan Ayhan]

Selamlar,

Kodunuzda kullanmış olduğunuz dosya yolu sizin bilgisayarınıza göre oluşan yoldur. Dolayısı ile başka bilgisayardaki yol ile uyuşma sağlayamayacaktır.

Aşağıdaki bölümü ;

MyPath = "C:\Users\AYDIN ISI CAM\Desktop\AYDIN CAM KAYIT\MÜŞTERİ KARTLARI\"

Bu şekilde tanımlarsanız tüm bilgisayarlarda çalışır. Tabi bu şekilde tanımladığınızda kod çalıştırdığınız kitap ile sorgulama yaptığınız dosyalar aynı klasör altında olmalıdır. Aksi halde kod yine hata verecektir.

MyPath = ActiveWorkbook.Path & "\"

 

[aydın3838]

sayın korhan bey

rica etsem elinizde 1 kaç örnek çalışma varmı yollarsanız sevinirim

benim kodda dosya yolunu sabitlemek ve listboxta ve comboda görmem gerekiyor

yapamadım

birde örnekten söz açılmışken basitçe anlatayım

benim kapalı dosyadaki veriyi listboxta görmem ve formla veri girmem gerekiyor

mümkünse elinizde varsa tabii

buna benzer bir iki örnek dosya rica etsem

formda aradım çoğunun tarihi eski
indiremedim

saygılar

 

[Korhan Ayhan]

Selamlar,

Forumda konuyla ilgili örnekler zaten var. "kapalı" şeklinde arama yaparsanız bir çok örneğe ulaşabilirsiniz. Mesela aşağıdaki linkte daha 2 gün önce bu tarz bir konu işlenmişti. İnceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=71429

 

[aydın3838]

ilginize ve bilgize teşekkürler

sayın korhan ayhan bey

iyi akşamlar