Raporu Word'e resimli gönderme

Eklediğim son örnekte, geçici olarak belirtilen klasörü Temp dizinine oluşturmaktadır. Son örneği  kullanıyorsanız gecici adında klasör oluşturmayın. Hata veren satırın başına ' ekleyerek iptal edip deneyin.

sayın ates2014,

eklediğiniz alıntı kodlara göre düzenlemek gerekirse,mevcut kodlar eklediğiniz kadarı ile geçerli olmak üzere;

Private Sub btn_wordeaktar_Click()



Dim BelgeAcik As Boolean

Dim ResimBilgisi As Variant

Dim ResimAdi As String

Dim Sorgum As QueryDef

Dim Kayit As Recordset

Dim WordApp As Word.Application

Dim WordDoc As Word.Document

Dim WordDocYeni As Word.Document

Dim GSablon, GKlasor, GDosyaNo, GDosyaYolu As String

Dim AcikBelgeResim

Dim GeciciPersonelDosyasi, GeciciBelgeAdi As String



GKlasor = Environ("TEMP")

GDosyaNo = Format(Now(), "ddmmyyyyhhnnss")

GDosyaYolu = GKlasor & "\AccessTrneT" & GDosyaNo & "\"

GSablon = CurrentProject.Path & "\personelbilgileri.doc"



If Len(Dir(GDosyaYolu, vbDirectory)) = 0 Then

MkDir GDosyaYolu

End If

yukarıda yazıldığı gibi olmalı.

ayrıca;
eğer bu şekilde çalıştırmadan öncesinde bu isimle herhangi bir klasör mevcutsa temizleyip tekrar deneyiniz.

bilginize...iyi çalışmalar,saygılar.

Dediğiniz kodları değiştirdim,
aşağıdaki hatayı verdi.

kodları silip yeniden ekledim,
bu sefer hata vermiyor, belgeyi oluşturdum, açayımmı diyor,
evet diyorum,
maalesef hiç bir kayıt çıkmıyor...
Belge boş, kayıt falan yok.

Sayın ates2014,

Eklediğiniz hata resmini tekrar incelediğinizde,bahsettiğiniz hata ieltisini almanızın nedeni de fark edilecektir.

Dim AcikBelgeResim

İfadesi iki kere yazılmış.zaten hatada da bundan bahsediyor.

dolayısı ile,bu fazla satırı silip tekrar deneyiniz.

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

sayın ates2014,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

Sy.Atoz112 sizi yorduğum için hakkınızı helal edin lütfen,
word belgeyi oluşturuyor yalnız resim yok,
görüntüsünü printscrenle aldım ek de ekliyorum