• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

1004 Nesne eklenemiyor hatası

B

bravo64

Katılım
21 Eylül 2005
Mesajlar
184
Excel Vers. ve Dili
ofis 365 İngilizce
Merhaba Arkadaşlar,
Aşağıdaki kod ( Sayın Leumruk tarafından öğrendiğim, sonsuz teşekkür ederim tekrar kendisine) excel windows'da çalışıyor ancak Mac excelde Nesne eklenemiyor hatası veriyor..
Mac excelde activex denetimi çok sınırlı ayrıca oleObject 'de kullanamıyoruz..
Acaba aşağıdaki kod ile göstermek istediğim pdf dosyasını/dosyalarını alternatif yolla nasıl açtırabilirim?
(Excel üzerinde açılması şart değil önemli olan dosyanın açılışı..)

İlgilenen herkese teşekkür ederim..


Sub callpdf()

Dim dosya As String
For Each rsm In ActiveSheet.Pictures
If Not Intersect(rsm.TopLeftCell, Range("g1")) Is Nothing Then
rsm.Delete
End If
Next

Range("g1").Select

hedef = ThisWorkbook.Path & "\" & "Ortak" & "\" & [c5] & ".pdf"

ActiveSheet.OLEObjects.Add(FileName:=hedef, link:=False, DisplayAsIcon:=False).Select

End Sub--
 
Deneyiniz.

C++: 
ActiveWorkbook.FollowHyperlink hedef
 
Çok teşekkür ederim üstad , deneyip ekleyeceğim foruma..
 
Sub dene()

hedef = ThisWorkbook.Path & "\" & "Ortak" & "\" & [C5].Value & ".pdf"
ActiveWorkbook.FollowHyperlink hedef
Sheets("register").[c1] = hedef

End Sub

Üstad çok teşekkürler ...

Birşey daha sormak istiyorum,
on error goto 10 satırı ile dosya yoksa C2 hücresine dosya yok" yazdırıyorum..

Tam tersi dosya var olduğunda zaten link çalışıyor ama, link doğruysa dosyayı açmadan c2 hücresine "Dosya var" nasıl yazdırırım..??
Çünkü 4000 dosya var ve bunlar hastalara ait pdf dosyaları, her hasta adının yanındaki hücreye Dosyası var yada yok olduğunu bileceğim liste halinde..
Mümkün müdür?? Hyperlink çalıştığında Microsoft Office Display alert çıkıyor ve uyarıyor yönleniyorsunuz devam mı diye..Bu durumda dosyanın varlığı belli oluyor ama bunu koda nasıl dökebilirim..?
 
Deneyiniz.

Kod: 
If Dir(hedef) = "" Then
Range("D1") = "Dosya Yok"
Else
Range("D1") = "Dosya Var"
End If
 
Üstad hyperlink açılıyor ancak Bad file name or number hatası alıyorum..Run time error 52
 
Bu kodu da denedim aynı hatayı veriyor Dir satırında..( Klasör onedrive üzerinde bu arada)
Sub hyper1()
Dim Yol$, Dosya$
Yol = ThisWorkbook.Path & "\" & "Ortak" & "\" & [C5] & ".pdf"
Dosya = Dir(Yol)
If Dosya Like "" Then
[c2] = "Dosya yok"
Else
[c1] = Yol
ActiveSheet.Hyperlinks.Add anchor:=Cells(1, "f"), _
Address:=Yol
End If
End Sub
 
Mac'te durum nasıl bilemiyorum.
 
Windows ise aşağıdaki gibi kullanın.

C++: 
CreateObject("Shell.Application").Open (hedef)
 
Üstad bu şekilde sayfa açılıyor ancak Dir satırı aynı hatayı veriyor..52 hata kodu Bad file name or number...
Bilgisayardaki klasörler için sorun yok, ama path onedrivede olunca hata veriyor..Dir sorun yani gösterimde sorun yok dosyayı..
 
Çalışırmı bilemem ama Onedrive için şöyle deneyiniz.

Onedrive klasörünü açın. Üst kısımda klasör adresinin göründüğü beyaz alana mouse ile bir kez tıklayın. Size yolu gösterecektir. Bu yolu kopyalayıp DIR komutu içine yazıp deneyin. Çalışırsa bu şekilde kullanabilirsiniz. Çalışmıyorsa yapacağım birşey yok maalesef..
 
Çok teşekkür ederim üstadım..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst