[Yardım]  Veri çekerken Linkde çıkan # işareti

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Veri çekerken Linkde çıkan # işareti

İleti#1)  hakangun » 23 Mar 2020 09:27

Merhabalar,
Üzerinde 2 gün harcamama rağmen bir sorunuma bir türlü çözüm bulamadım siz ustalarıma danışayım dedim, araştırdım ama böyle bir problem için çözümde bulamadım.

Access dosyasından veri çekiyorum içerisinde, yerel ağdaki dosya linkleri de var fakat sıkıntım şu linklerin başına ve sonuna # işareti attığı için linkleri excel de kullanamıyorum. replace konumutunu denedim ama beceremedim.

Neden bu şekilde yapar acaba?

Örnek: #\\qwe\department\liste\2016\5529.pdf#
İstedigim : \\qwe\department\liste\2016\5529.pdf

Kod: Tümünü seç
Sub ekrangoster()
Dim X As Integer

   
Call DbAc


    strlog = "SELECT QKaiEx.ID, QKaiEx.Ok, QKaiEx.Bolum, QKaiEx.Tarih_Oneri, QKaiEx.Nitelik, QKaiEx.Proses, QKaiEx.DeğerlendirmeTarihi, QKaiEx.Sonuc, QKaiEx.Neden, QKaiEx.KaizenLevel, QKaiEx.Tarih_Kayıt, QKaiEx.Problem, QKaiEx.Çözüm, QKaiEx.OneriKarti, QKaiEx.RecordDate, QKaiEx.Dosya_linki FROM QKaiEx"
    Set rs = adoCN.Execute(strlog)
        X = 1
        Do While Not rs.EOF
            X = X + 1
            Range("A" & X).Value = rs.Fields("ID")
            Range("B" & X).Value = rs.Fields("Ok")
            Range("C" & X).Value = rs.Fields("Bolum")
            Range("D" & X).Value = rs.Fields("Tarih_Oneri")
            Range("E" & X).Value = rs.Fields("Nitelik")
            Range("F" & X).Value = rs.Fields("Proses")
            Range("G" & X).Value = rs.Fields("DeğerlendirmeTarihi")
            Range("H" & X).Value = rs.Fields("Sonuc")
            Range("I" & X).Value = rs.Fields("Neden")
            Range("J" & X).Value = rs.Fields("KaizenLevel")
            Range("K" & X).Value = rs.Fields("Tarih_Kayıt")
            Range("L" & X).Value = rs.Fields("Problem")
            Range("M" & X).Value = rs.Fields("Çözüm")
            Range("N" & X).Value = rs.Fields("OneriKarti")
            Range("O" & X).Value = rs.Fields("RecordDate")
            Range("P" & X).Value = rs.Fields("Dosya_linki")
        rs.MoveNext
        Loop
rs.Close
Set rs = Nothing
Call DbKapat
End Sub
Kullanıcı avatarı
hakangun
Yeni Başlamış
 
Kayıt: 01 Haz 2017 11:07
Meslek: bilgisayar
Yaş: 31
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Çanakkale

Cevap: Veri çekerken Linkde çıkan # işareti

İleti#2)  şahin » 23 Mar 2020 15:59

Sorguyu şu şekilde dene

Kod: Tümünü seç
strlog = "SELECT QKaiEx.ID, QKaiEx.Ok, QKaiEx.Bolum, QKaiEx.Tarih_Oneri, QKaiEx.Nitelik, QKaiEx.Proses, QKaiEx.DeğerlendirmeTarihi, QKaiEx.Sonuc, QKaiEx.Neden, QKaiEx.KaizenLevel, QKaiEx.Tarih_Kayıt, QKaiEx.Problem, QKaiEx.Çözüm, QKaiEx.OneriKarti, QKaiEx.RecordDate, mid(QKaiEx.Dosya_linki,2,LEN(QKaiEx.Dosya_linki)-2) FROM QKaiEx"
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 937
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: Veri çekerken Linkde çıkan # işareti

İleti#3)  hakangun » 24 Mar 2020 08:28

şahin yazdı:Sorguyu şu şekilde dene

Kod: Tümünü seç
strlog = "SELECT QKaiEx.ID, QKaiEx.Ok, QKaiEx.Bolum, QKaiEx.Tarih_Oneri, QKaiEx.Nitelik, QKaiEx.Proses, QKaiEx.DeğerlendirmeTarihi, QKaiEx.Sonuc, QKaiEx.Neden, QKaiEx.KaizenLevel, QKaiEx.Tarih_Kayıt, QKaiEx.Problem, QKaiEx.Çözüm, QKaiEx.OneriKarti, QKaiEx.RecordDate, mid(QKaiEx.Dosya_linki,2,LEN(QKaiEx.Dosya_linki)-2) FROM QKaiEx"


Teşekkürler fakat şöyle bir hata alıyorum.
Öğe bulunamadı (Run time 3265) hatası veriyor. QKaiEx.Dosya_linki ni görmüyor bu şekile.
Kullanıcı avatarı
hakangun
Yeni Başlamış
 
Kayıt: 01 Haz 2017 11:07
Meslek: bilgisayar
Yaş: 31
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Çanakkale

Cevap: Veri çekerken Linkde çıkan # işareti

İleti#4)  şahin » 24 Mar 2020 12:26

Ben excel de denedim çalışıyor yani ilk ve son harfleri almıyor, access db ile dosyayı paylaşırsanız (kopyalarını alalrak özel verileri silerek) üzerinde çalışırız..
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 937
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Veri çekerken Linkde çıkan # işareti

İleti#5)  hakangun » 24 Mar 2020 12:46

şahin yazdı:Ben excel de denedim çalışıyor yani ilk ve son harfleri almıyor, access db ile dosyayı paylaşırsanız (kopyalarını alalrak özel verileri silerek) üzerinde çalışırız..



Şöyle diyeyim zaten access üzerinde bu işaretlemeler yok excel e aktardığımda nasıl oluyorsa kendi ekliyor.
Kullanıcı avatarı
hakangun
Yeni Başlamış
 
Kayıt: 01 Haz 2017 11:07
Meslek: bilgisayar
Yaş: 31
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Çanakkale

Cevap: Veri çekerken Linkde çıkan # işareti

İleti#6)  şahin » 24 Mar 2020 14:16

Aşağıda Accessden istediğiniz gibi çekiyor, alan adlarını kontrol edin aşağıdaki sorguyu çalıştırın
# atmasının nedeni Access veritabanında "Dosya_Linki" alan veri tipi "Köprü" olduğu zaman böyle yapıyor, aşağıdaki sql densonuç alamazsanız veri tipini kısa metin yapın...
Kod: Tümünü seç
Sorgu = "SELECT mid(QKaiEx.Dosya_linki,2,LEN(QKaiEx.Dosya_linki)-2) FROM QKaiEx "
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 937
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe