+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kod Hatası (/konu-kod-hatasi--80279.html)
Kod Hatası - kübrashn - 17/04/2015
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
Cvp: Kod Hatası - kübrashn - 19/04/2015
Hayirli geceler arkadaslar. Konu hakkinda bir fikri olan var mu?
Cvp: Kod Hatası - ramazanemrullah - 19/04/2015
ornek uygulamayi verirsen yardimci olmaya çalışırım inşallah fakat siz sadece butonun kodunu vermişsiniz.
Cvp: Kod Hatası - kübrashn - 20/04/2015
Ramazan bey hayirli sabahlar.
Uygulamanin tamami bir buton zaten.Butona basinca bulundugu dosyanin icindeki dosyalari yazdiracak. Vb de bir form yapip icine bir buton koydum butonun kodu da bu. Kodu Excel de bir buton yapip yerlestirdigimde calisiyor. Lakin Vb de projeyi .exe olarak kaydet dedigimde zaten bir form ve bir buton tikladigimda dedigim alanda hata veriyor.
Cumleten üc aylarimiz mubarek olsun
Cvp: Kod Hatası - KulAhmet - 20/04/2015
Sn kübrashn;
senin de üc aylarimiz mubarek olsun
ThisWorkbook.Path yerine App.Path olarak deneyin.
Cvp: Kod Hatası - kübrashn - 21/04/2015
Hayırlı sabahlar arkadaşlar
Maalesef Ahmet bey yine olmadı. Bu seferde pdf leri tek tek açıp kaydetmeyi deniyor. Ben direk yazdırmaya başlamasını istiyorum.
18 nci gün başladı 5 kişi ile bir çözüm bulamadık.