Raporu Word'e resimli gönderme

Sayın ates2014,

Alıntı:bu seferde her kişi için bir word belgesi hazırlıyor Geçici klasörün içine.

İfadenize yönelik olarak;
Sayın ozan bey tarafından hazırlanıp konunuzun 17.mesajına dahil edilen örnek uygulama ve sonrasındaki mesajlar akabinde yapılması gereken işlemlerin nihayetinde elde edilen sonucun aşamaları şöyle,tekrarlamak gerekirse:

1) Önce, gecici adlı klasör kontrolü yapılmakta olduğu için,daha önceki mesajda da belirtildiği üzere,bu isimle bir klasör oluşturmanız gerekmektedir.

2) ardından, personelbilgileri.dot adlı şablon dosyası örnek alınarak;her bir kişiye dair id değeri üzerinden isimlendirme yapılmak sureti ile içeriğinde kendisine ait bilgileri barındıran dosya kaydedilerek dosyası oluşturulmaktadır.

3) Call Birlestir(strPath) adlı kod satırı ile,bu oluşturulan dosyalar, birlesikbelge adı ile uygulamanın olduğu klasöre kaydedilmektedir.

4) Son olarak da,

Kill strPath & "*.*"
PrepareDirModified (strPath)

Kodları ile de,bu geçici olarak oluşturulan dosyalar klasörden silinmektedir.

Uygulamanın işleyişi bu doğrultuda gerçekleşmektedir.

Bilginize…iyi çalışmalar,saygılar.

Sy.Atoz112, malesef yapamadım...

Merhaba, daha önceden eklediğim örneği 4 farklı bilgisayarda sorunsuz çalıştırdım. Uygulamanın çalışma prensibi atoz112'nin belirttiği şekildedir.

Önceki örnekte bazı değişiklikler yaptım. İnceleyip olumlu/olumsuz bildirimde bulununuz.

Sy.ozan hocam, hakkınızı helal edin sizi çok yoruyorum,
bende aşağıdaki hatayı veriyor, atoz112 hocamın daha önce dediği gibi
gecici klasörünüde eklediğim halde neden bu hatayı veriyor acaba?

FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory)

Sayın ates2014,

Aşağıdaki açıklamaların yapılması uygun görülmüştür.bu hata iletisini almanızın iki nedeni olabilir kanısındayım.

1)

Öncelikle,

Alıntı:gecici klasörünüde eklediğim halde neden bu hatayı veriyor acaba?

FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory)

ifadenize yönelik olarak;
konunuzun 23. ve 25.mesajlarında da değinildiği üzere,bu hatayı almanızın nedeni,gecici adlı klasör oluşumundan kaynaklı görülmektedir.bununla ilgili olarak,böyle bir hata iletisinin nasıl alındığını göstermek için,







Resimlerde de görüleceği üzere,eğer gecici adlı klasör uygulamanın yer aldığı klasör içerisinden olmadığı (ya da,kodlar aracılığı ile bakıldığında bu klasör bulunamadığı takdirde),resimlerdeki gibi ve bahsettiğiniz gibi hata iletisi olarak almanız söz konusu olacaktır.

Her ne kadar,ifadenizde bu isimle klasör oluşturduğunuzu beyan ediyor olsanız da,bu açıklama da geçersiz kalıyor gibi görünse de,sadece bilgilendirme amacı ile yazılmıştır.

2)

Bu hata iletisini almanızın bir diğer nedeni olarak da;

Private Sub PrepareDirModified(dirStr As String)

On Error Resume Next

    If Right(dirStr, 1) <> "\" Then dirStr = dirStr & "\"

    Kill dirStr & "*.*"

    RmDir dirStr

    'MkDir dirStr

On Error GoTo 0

End Sub

Yukarıdaki kodlar içerisinde yer alan RmDir dirStr kod satırı dolayısı ile,gecici adlı klasörü de silmesinden dolayı,işlemler sonrasında tekrar çalıştırıldığında bu isimli klasörü bulamadığı için,bu hata iletisine maruz kalıyorsunuzdur.dolayısı ile de,bu satırı etkisiz duruma getirerek bir de bu şekilde deneyiniz.

Bilginize…iyi çalışmalar,saygılar.

Sy.Atoz112,
benim anlamadığım nokta şu,
gecici klasörünü benmi oluşturacam,
yoksay kod kendisimi oluşturuyor?