Skip to main content

AccessTr.neT


Kod Hatası

Kod Hatası

Çözüldü #1
Merhaba Arkadaşlar Hayırlı Cumalar

Bir arkadaşım sormam için rica etti. Yardımcı olabilirseniz sevinirim.
Vb de
Sub TopluYaz()

Dim evn As Object, klasor As Object, dosya As Object, yol As Variant, Msg
Msg = MsgBox("Yazdırmak İstediğinizden Emin misiniz?", vbYesNo + vbQuestion, "Çıkış")
If Msg = vbYes Then
Set evn = CreateObject("shell.application")
yol = CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path)
Set klasor = evn.Namespace(yol)
Set dosya = klasor.Items()
    For Each dosya In dosya
        dosya.InvokeVerbEx "Print"
    Next
Set dosya = Nothing: Set klasor = Nothing
Set yol = Nothing: Set evn = Nothing
End
ElseIf Msg = vbNo Then
Exit Sub
End If
End Sub

Kodunda hata alıyormuş 424 Object Required hatası
yol = CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path) kısmı sarı oluyormuş teşekkürler
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Kod Hatası - Yazar: kübrashn - 17/04/2015, 12:33
Cvp: Kod Hatası - Yazar: kübrashn - 19/04/2015, 22:53
Cvp: Kod Hatası - Yazar: ramazanemrullah - 19/04/2015, 23:40
Cvp: Kod Hatası - Yazar: kübrashn - 20/04/2015, 04:43
Cvp: Kod Hatası - Yazar: KulAhmet - 20/04/2015, 16:36
Cvp: Kod Hatası - Yazar: kübrashn - 21/04/2015, 09:10
Cvp: Kod Hatası - Yazar: KulAhmet - 23/04/2015, 03:16
Cvp: Kod Hatası - Yazar: kübrashn - 23/04/2015, 23:10
Cvp: Kod Hatası - Yazar: kübrashn - 24/04/2015, 09:58
Cvp: Kod Hatası - Yazar: KulAhmet - 25/04/2015, 17:58
Cvp: Kod Hatası - Yazar: kübrashn - 27/04/2015, 17:56
Cvp: Kod Hatası - Yazar: KulAhmet - 27/04/2015, 19:28
Cvp: Kod Hatası - Yazar: kübrashn - 28/04/2015, 15:11
Cvp: Kod Hatası - Yazar: KulAhmet - 28/04/2015, 16:23
Cvp: Kod Hatası - Yazar: kübrashn - 28/04/2015, 16:58
Cvp: Kod Hatası - Yazar: KulAhmet - 28/04/2015, 20:59
Cvp: Kod Hatası - Yazar: kübrashn - 29/04/2015, 09:01
Task