[Yardım]  1004 nesne yüklenemiyor hatası

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

1004 nesne yüklenemiyor hatası

İleti#1)  m.acar » 26 Haz 2020 10:36

Merhaba değerli arkadaşlar, foruma yeni katıldım ve ilk mesajımı değerli üstadlarla paylaşmak istedim.

Aşağıdaki kod ile windows excelde pdf dosyalarını açabiliyorum..Ancak Mac excelde, activex denetimi ve oleObject nesnelerini kullanamadığımız için MacExcel de kod çalışmıyor..( Error 1004 nesne yüklenemiyor hatası)
pdf dosyaları "ortak" isimli ve onedrive içindeki klasörde yer alıyor.(hedefte yolu veriyorum)

Acaba nasıl bir kod ile [c5] hücresindeki isme göre , klasördeki pdf dosyasını açabilirim..(sadece görüntüleme, excel sayfasına yerleştirmek şart değil)

Saygılarımla,

Kod---------------------------------------------------------------------------------------------------------

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--
Kullanıcı avatarı
m.acar
 
Kayıt: 24 Haz 2020 13:16
Meslek: ekonomist
Yaş: 56
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/başakşehir

Cevap: 1004 nesne yüklenemiyor hatası

İleti#2)  yildirima » 26 Haz 2020 17:31

Merhaba ,

Excel c5 hücre değerine göre pdf dosyası açıcaksınız. Aşağıdaki kodu denermisiniz.

sub pdf_ac()

On Error Resume Next
Dim konum As String
konum = "C:\Resimler\" & [C5].Value & ".pdf"

If pdf <> "" Then
CreateObject("Shell.Application").Open (konum)
Else
msgbox " açmak istediğiniz pdf yerinde yok"

End If
End Sub
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 36
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: 1004 nesne yüklenemiyor hatası

İleti#3)  m.acar » 27 Haz 2020 12:23

Teşekkür ederim sayın yildirima ilginize fakat bende çalışmadı pdf için "expectedfunction or variable " hatası veriyor..(pdf satırında)
şöyle düzenledim kendi yoluma göre;

Sub ornek2()

On Error Resume Next
Dim konum As String
konum = ThisWorkbook.Path & "\" & "Ortak" & [C5].Value & ".pdf"
If pdf <> "" Then
CreateObject("Shell.Application").Open (konum)
Else
MsgBox " açmak istediğiniz pdf yerinde yok"

End If

End Sub

****pdf üzerinde hata veriyor
Kullanıcı avatarı
m.acar
 
Kayıt: 24 Haz 2020 13:16
Meslek: ekonomist
Yaş: 56
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/başakşehir

Cevap: 1004 nesne yüklenemiyor hatası

İleti#4)  yildirima » 27 Haz 2020 16:13

Merhaba
If konum olucak pdf yazmışım kendi denememde ad değişikliğini düzeltmemişim. Aşağıdaki şekilde denermisiniz.

On Error Resume Next
Dim konum As String
konum = ThisWorkbook.Path & "\" & "Ortak" & [C5].Value & ".pdf"
If konum <> "" Then
CreateObject("Shell.Application").Open (konum)
Else
MsgBox " açmak istediğiniz pdf yerinde yok"

End If

End Sub
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 36
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

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

Cevap: Cevap: 1004 nesne yüklenemiyor hatası

İleti#5)  m.acar » 27 Haz 2020 17:43

yildirima yazdı:Merhaba
If konum olucak pdf yazmışım kendi denememde ad değişikliğini düzeltmemişim. Aşağıdaki şekilde denermisiniz.

On Error Resume Next
Dim konum As String
konum = ThisWorkbook.Path & "\" & "Ortak" & [C5].Value & ".pdf"
If konum <> "" Then
CreateObject("Shell.Application").Open (konum)
Else
MsgBox " açmak istediğiniz pdf yerinde yok"

End If

End Sub


Şimdi düzelttim ama hata vermiyor ama hiç tepki vermiyor kod??
Kullanıcı avatarı
m.acar
 
Kayıt: 24 Haz 2020 13:16
Meslek: ekonomist
Yaş: 56
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/başakşehir

Cevap: 1004 nesne yüklenemiyor hatası

İleti#6)  yildirima » 27 Haz 2020 18:56

Merhaba,

Anladığım kadarı ile excelinizle aynı yerde ortak adında bir klasör var ve pdf ler bu klasör içinde bu şekilde ise konum kısmını aşağıdaki gibi güncelleyerek denermisiniz. Bir klasör gösterdiyseniz sonrasında bu klasörün içine girmesini istiyor iseniz "\" olmalı.

Daha önceki yazdığınız konum da şunu diyorsunuz C5 hücresinde "vba"yazdığını düşünelim. Eexcelimle aynı konumda olan Ortakvba.pdf dosyasını aç diyorsunuz. Yok ortak klasörünün içindeki vba.pdf yi aç diyorsanız aşağıdaki şekilde güncelleyin.

konum = ThisWorkbook.Path & "\" & "Ortak" & "\" & [C5].Value & ".pdf"
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 36
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: 1004 nesne yüklenemiyor hatası

İleti#7)  m.acar » 27 Haz 2020 19:27

Merhaba tekrar,

On Error Resume Next
Dim konum As String
konum = ThisWorkbook.Path & "\" & "Ortak" & "\" & [C5].Value & ".pdf"

If konum <> "" Then
CreateObject("Shell.Application").Open (konum)
Else
MsgBox " açmak istediğiniz pdf yerinde yok"

End If

Yine aynı tepki yok üstad..Excel ve klasör onedrive içerisinde..
Aşağıdaki kod ile excelde nesne ekleyip açıyorum ama Mac de çalışmadığı için sizin kodu deniyorum..
Sub Makro2()
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
yol = ThisWorkbook.Path & "\" & "Ortak" & "\"
dosya = [C5] & ".pdf"


ActiveSheet.OLEObjects.Add(Filename:=yol & dosya, link:=False, DisplayAsIcon:=False).Select
[m1].Select

End Sub
Kullanıcı avatarı
m.acar
 
Kayıt: 24 Haz 2020 13:16
Meslek: ekonomist
Yaş: 56
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/başakşehir

Cevap: 1004 nesne yüklenemiyor hatası

İleti#8)  yildirima » 27 Haz 2020 20:43

Merhaba

Masaüstünüze bir klasör acın. Adını istediğiniz gibi verebilirsiniz. Açtığınız klasör içine excelinizi ve ortak adında bir klasör acin. Ortağın içine pdflerinizi bırakın
Daha sonra excelinize aşağıdaki kodu girin. C5 hücresine pdfnin adını yazın. Mesela ortak içinde vba adında pdf var
C5 e vba yazın ve butona basın. Test ettim calisiyor.
Sub pdf ()

On Error Resume Next
Dim konum As String
konum = ThisWorkbook.Path & "\" & "Ortak" & "\" & [C5].Value & ".pdf"
If konum <> "" Then
CreateObject("Shell.Application").Open (konum)
Else
MsgBox " açmak istediğiniz pdf yerinde yok"

End If

End Sub
Kullanıcı avatarı
yildirima
Yeni Başlamış
 
Kayıt: 24 May 2017 08:14
Meslek: Uzman
Yaş: 36
İleti: 86
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KOCAELİ

Cevap: 1004 nesne yüklenemiyor hatası

İleti#9)  m.acar » 27 Haz 2020 22:36

Evet üstad masaüstünde olunca çalışıyor..
onedrive için sorun var demek..klasör ve excel onedrive içindeyken çalışmıyor, hata da vermiyor..

Çok teşekkür ederim tekrar emeğinize sağlık..Bulut için araştıracağım..
Kullanıcı avatarı
m.acar
 
Kayıt: 24 Haz 2020 13:16
Meslek: ekonomist
Yaş: 56
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/başakşehir


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe