28/01/2019, 17:01 #7 Aktif Üye mmert06 Bul Aktif Üye Adı Soyadı: me.... me.... Yaşı: 43 Konum: Ankara Ofis Versiyonu: Ofis 2010 32 Bit Son Oturumu: 24/04/2019,01:02 Yorumları: 246 Konuları: 63 Kayıt Tarihi: 01/05/2013 Teşekkür Puanı: 0 Mesleğiniz: mühendis Ozan bey hata veren bilgisayarda İnternet olmadığı için teamwier ile bağlanma şansımız yok malesef Cevapla Cevapla
28/01/2019, 17:18 #8 sledgeab ozanakkaya Bul Kurucu Adı Soyadı: Oz.... Ak.... Konum: Denizli Ofis Versiyonu: Ofis 2016 64 Bit Son Oturumu: Dün,01:07 Yorumları: 13.543 Konuları: 499 Kayıt Tarihi: 29/01/2008 Teşekkür Puanı: 3.139 Mesleğiniz: Memur Merhaba, Set Excl = New Excel.ApplicationKodu SeçKodu Kopyala kodunu iptal edip, yerine On Error Resume Next Set Excl = GetObject(, "Excel.Application") On Error GoTo 0 If Excl Is Nothing Then Set Excl = CreateObject("Excel.Application") Excl.Visible = True End IfKodu SeçKodu Kopyala kodunu deneyin. Cevapla Cevapla
29/01/2019, 12:47 #9 Aktif Üye mmert06 Bul Aktif Üye Adı Soyadı: me.... me.... Yaşı: 43 Konum: Ankara Ofis Versiyonu: Ofis 2010 32 Bit Son Oturumu: 24/04/2019,01:02 Yorumları: 246 Konuları: 63 Kayıt Tarihi: 01/05/2013 Teşekkür Puanı: 0 Mesleğiniz: mühendis Kodu denedim yine aynı hatayı veriyor Cevapla Cevapla
29/01/2019, 13:03 #10 sledgeab ozanakkaya Bul Kurucu Adı Soyadı: Oz.... Ak.... Konum: Denizli Ofis Versiyonu: Ofis 2016 64 Bit Son Oturumu: Dün,01:07 Yorumları: 13.543 Konuları: 499 Kayıt Tarihi: 29/01/2008 Teşekkür Puanı: 3.139 Mesleğiniz: Memur Merhaba, daha önce sizin için hazırlanan uygulamadaki excele aktar butonu çalışıyor mu. O uygulamada da benzeri kod mevcut. Cevapla Cevapla
30/01/2019, 17:40 #11 Aktif Üye mmert06 Bul Aktif Üye Adı Soyadı: me.... me.... Yaşı: 43 Konum: Ankara Ofis Versiyonu: Ofis 2010 32 Bit Son Oturumu: 24/04/2019,01:02 Yorumları: 246 Konuları: 63 Kayıt Tarihi: 01/05/2013 Teşekkür Puanı: 0 Mesleğiniz: mühendis Sorun kodlar da değil sanırım ofis programını kaldırıp tekrar kurmayı deneyeceğiz Cevapla Cevapla
