Kapalı Dosyada ADo Klasör dosya yolu hatası... YARDIM...

[vimpir]

YYol = "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA"
Dosya = "[1.xls]OCAK-2012'!"

1 xls dosyası DEPOLAR-GUNLUK-KONTROL-2012 /ADANA-BOLGE-DEPOLAMA depolamın içinde kapalı dosyadan veri almak için dosyanın yolunu bulamıyor illa 1 exceli 1 defa açmam lazım ondan sonra giriyor... bu jkonu hakkında yardımcı olabilirmisiniz? nerede hata yapıyorum...

 

[Murat OSMA]

Kodlarınızı görebilir miyiz ?

 

[vimpir]

Kodlarınızı görebilir miyiz ?

ub Resim3_Tıklat()
    Dim Dosya As String, Yol As String
 
    YYol = "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA"
    Dosya = "[1.xls]OCAK-2012'!"
    
    Range("A5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R5C3")
    Range("B5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R6C3")
    Range("C5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R4C2")
    Range("D5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R7C10")
    Range("E5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R1C10")
    Range("F5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R2C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R3C10") + ExecuteExcel4Macro("'" & Yol & Dosya & "R4C10")
    Range("H5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C10")
    Range("I5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C11")
    Range("J5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C12")
    Range("K5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C13")
    Range("M5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C16")
    Range("N5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C17")
    Range("O5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C19")
    Range("P5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C21") + ExecuteExcel4Macro("'" & Yol & Dosya & "R43C23")
    Range("Q5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C24")
    Range("R5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C25")
    Range("S5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C26")
    Range("T5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C27")
    Range("U5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C28")
    Range("V5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C29")
    Range("X5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C30")
    Range("W5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C31")
    Range("Y5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C32")
    Range("Z5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C33")
    Range("AA5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C35")
    Range("AB5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C36")
    Range("AC5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C37")
    Range("AD5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C38")
    Range("AE5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C39")
    Range("AH5") = ExecuteExcel4Macro("'" & Yol & Dosya & "R43C34")
    MsgBox "VERİLER GÜNCELLENMİŞTİR",
End sub

 

[Korhan Ayhan]

Merhaba,

Tanımladığınız değişken (YYol) ile kod içinde kullandığınız ifadeler (Yol) birbirini tutmuyor.

Bunları düzeltmeniz gerekiyor.

 

[vimpir]

Merhaba,

Tanımladığınız değişken (YYol) ile kod içinde kullandığınız ifadeler (Yol) birbirini tutmuyor.

Bunları düzeltmeniz gerekiyor.

hocam düzelttim ama yine hata alıyorum daha dogrusu dosyayı bulamıyor... güncellenecek değerler diyebir pencere çıkıyor dosyayı seçmemi istiyor... bu dosya masaüstünde zaten anlayamadım sanırım eksik yaptığım bir yer bulamadım... form daki örneklere baktım neredeyse tüm ado uygulamalarında excel verileri klasör içindeki excelden veri çekmiyor...

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki tanımlamadaki dosya yolunda sorun var gibi görünüyor.

YYol = "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA"

Siz direkt olarak "\" işareti ile başlangıç yapmışsınız. Bence aşağıdaki gibi olmalı.

YYol = "C:\Documents and Settings\Vimpir\Desktop\"

Kendinize göre örnek kodu uyarlarsınız.

 

[vimpir]

Merhaba,

Aşağıdaki tanımlamadaki dosya yolunda sorun var gibi görünüyor.

YYol = "\DEPOLAR-GUNLUK-KONTROL-2012\ADANA-BOLGE-DEPOLAMA"

Siz direkt olarak "\" işareti ile başlangıç yapmışsınız. Bence aşağıdaki gibi olmalı.

YYol = "C:\Documents and Settings\Vimpir\Desktop\"

Kendinize göre örnek kodu uyarlarsınız.

hocam çok teşekkür ederim şuanda oldu sorunsuz çalışıyor... ama şimdide şöyle bi sorunum çıkacak... şimndi kendi pcmde kullanıcı adım vimpir burda bi sıkıntı olmaz... ama farklı bilgisayara koyduğumuzda kullanıcı farklı olacak her seferin kullanıcı adı kısmını değiştirecekmiyim... yoksa kolay bir yolu var mı?

 

[Korhan Ayhan]

Merhaba,

Bu durumda genelde aşağıdaki kod yapısı kullanılır.

Bu kodun çalışması için dosyaların aynı klasörde olmaları gerekiyor.

YYol = ThisWorkbook.Path & "\"

Eğer diğer bilgisayarlda dosyanız hep masaüstünde bulunacaksa aşağıdaki koduda kullanabilirsiniz.

YYol = CreateObject("WScript.Shell").SpecialFolders(0) & "\"