Dosya yolu

[karanx]

Korhan Ayhan üstadın bir soruya cevaben vermiş olduğu kodda dosya yolu olarak Dosya_Yolu = Veri_Dosyası.Path & "\Departmanlar\" görünüyor. Ben bunu belgelerimdeki bir klasöre uygulamaya çalıştım. Mesela
C:\Documents and Settings\Administrator\Belgelerim\Departmanlar gibi.Ama olmadı. Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

 

[uzmanamele]

merhaba

aşağıdaki kodu, konumunu bulmak istediğiniz dosyada bir modüle yazıp çalıştırın.

Sub dosya_yolum()
MsgBox ThisWorkbook.Path
End Sub

Sub tam_adım()
MsgBox ThisWorkbook.FullName
End Sub

 

[leumruk]

Korhan Ayhan üstadın bir soruya cevaben vermiş olduğu kodda dosya yolu olarak Dosya_Yolu = Veri_Dosyası.Path & "\Departmanlar\" görünüyor. Ben bunu belgelerimdeki bir klasöre uygulamaya çalıştım. Mesela
C:\Documents and Settings\Administrator\Belgelerim\Departmanlar gibi.Ama olmadı. Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

Merhaba,
Aşağıdaki gibi deneyin. Aradaki fark tırnak işareti.

"C:\Documents and Settings\Administrator\Belgelerim\Departmanlar"

 

[karanx]

merhaba

aşağıdaki kodu, konumunu bulmak istediğiniz dosyada bir modüle yazıp çalıştırın.

Sub dosya_yolum()
MsgBox ThisWorkbook.Path
End Sub

Sub tam_adım()
MsgBox ThisWorkbook.FullName
End Sub

Kodların verdiği dosya yolunu zaten denemiştim olmamıştı.Teşekkürler.

 

[karanx]

Merhaba,
Aşağıdaki gibi deneyin. Aradaki fark tırnak işareti.

"C:\Documents and Settings\Administrator\Belgelerim\Departmanlar"

Tırnak işaretini de kullanmıştım Teşekkürler. Ben bahsi geçen kodun linkini de veriyorum.Belki bütününü görmek gerekebilir.
http://www.excel.web.tr/f48/birden-ok-kapaly-dosyadan-veri-alma-t67872.html

 

[leumruk]

Kendi yaptığınız şekliyle tüm kodu ekler misiniz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Dosya_Yolu = "C:\Documents and Settings\Administrator\Belgelerim\Departmanlar[B][COLOR=red]\[/COLOR][/B]"

 

[karanx]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Dosya_Yolu = "C:\Documents and Settings\Administrator\Belgelerim\Departmanlar[B][COLOR=red]\[/COLOR][/B]"

Korhan bey kodun olduğu dosya ,departmanlar klasörünün bir üst klasöründe olmaz ise bu kod çalışmıyor.

 

[karanx]

Kendi yaptığınız şekliyle tüm kodu ekler misiniz?

Dosya_Yolu = Veri_Dosyası.Path & "C:\Documents and Settings\Administrator\Belgelerim\Departmanlar" veya Dosya_Yolu = "C:\Documents and Settings\Administrator\Belgelerim\Departmanlar\"

 

[leumruk]

Birinci yazdığınız hatalı; yani çalışmaması normal. İkinci yazdığınızda adres bilgileri doğru ise çalışması gerekli, bir hata görünmüyor. Ancak ben kodu isterken dosya yolu olarak değil bütün olarak istedim. Sub'dan başlayıp End Sub'a kadar olan tüm satırları ekleyebilirseniz. Hatanın dosya yolu tanımından mı, başka bir satırdan mı kaynaklandığını tesbit edebiliriz.

 

[karanx]

Yardımlarınız için teşekkürler.hatanın başka bir nedenden kaynakladığını buldum.dosya yolu doğru olsada kaynak klasördeki dosyalardan 2.kez veri almıyormuş meğerse.bu sorunu da sadece bir dosyada veri güncelleyerek aşıyorum..