AccessTr.neT

Günaydın. Ekte göndermiş olduğum dosya ile sorgulama yapıyorum. Çıkan sonucu excele nasıl gönderebilirim.
Teşekkürler.

(21/08/2017, 06:33)metin02 yazdı: [ -> ]Günaydın. Ekte göndermiş olduğum dosya ile sorgulama yapıyorum. Çıkan sonucu excele nasıl gönderebilirim.
Teşekkürler.

Günaydın metin02;
İnternetten bulduğum kodları sizin uygulamanıza ekledim.
Bendeki testlerde formdaki sorgulamadan gelen sonucu excele başarılı olarak aktarıyor.
Ekli örneği incelemenizi rica ederim.
İyi çalışmalar.

Teşekkürler.
Set xlWSh = xlWBk.Worksheets("Sheet1")

    If Len(strSheetName) > 0 Then

koyu renkli satırda hata veriyor.

(21/08/2017, 18:53)metin02 yazdı: [ -> ]Teşekkürler.
Set xlWSh = xlWBk.Worksheets("Sheet1")

    If Len(strSheetName) > 0 Then

koyu renkli satırda hata veriyor.

Merhaba;
Bu örneği dener misiniz?

Teşekkürler. Kayıt yerini sorabilirmiyiz.

Dataları excele atıyor sadece. Yani açılan Excel henüz kaydedilmemiş olan bir dosya. Siz istediğiniz yere kaydedebilirsiniz.