1004 Nesne eklenemiyor hatası

[bravo64]

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--

 

[Korhan Ayhan]

Deneyiniz.

ActiveWorkbook.FollowHyperlink hedef

 

[bravo64]

Çok teşekkür ederim üstad , deneyip ekleyeceğim foruma..

 

[bravo64]

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..?

 

[Korhan Ayhan]

Deneyiniz.

If Dir(hedef) = "" Then
Range("D1") = "Dosya Yok"
Else
Range("D1") = "Dosya Var"
End If

 

[bravo64]

Üstad hyperlink açılıyor ancak Bad file name or number hatası alıyorum..Run time error 52

 

[bravo64]

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

 

[Korhan Ayhan]

Mac'te durum nasıl bilemiyorum.

 

[bravo64]

Üstad windowstayım..

 

[Korhan Ayhan]

Windows ise aşağıdaki gibi kullanın.

CreateObject("Shell.Application").Open (hedef)

 

[bravo64]

Tamam üstad

 

[bravo64]

Ü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ı..

 

[Korhan Ayhan]

Ç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..

 

[bravo64]

Çok teşekkür ederim üstadım..