AccessTr.neT

(25/12/2019, 18:13)ozanakkaya yazdı: [ -> ]Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Dim xlApp As Excel.Application

Dim objWkb As Workbook

Dim rs As DAO.Recordset

Dim xlSh As Worksheet



Set xlApp = New Excel.Application

xlApp.Visible = True

Set objWkb = xlApp.Workbooks.Add



Set rs = CurrentDb.OpenRecordset("Tablo1")



If Not (rs.EOF And rs.BOF) Then

    rs.MoveFirst

    Do Until rs.EOF = True

    

        Set xlSh = objWkb.Sheets.Add

        xlSh.Name = rs!adi & " " & rs!soyada

      

        xlSh.Range("B13") = rs!adi

        xlSh.Range("B14") = rs!soyada

      

        rs.MoveNext

    Loop

End If



For Each xlSh In objWkb.Worksheets

If InStr(1, xlSh.Name, "Sayfa") = 1 Then

objWkb.Worksheets(xlSh.Name).Delete

End If

Next xlSh

sayın ozanakkaya sizin kod çalışıyor lakim istediğim tam olarak oda değil örneği gücelledim form veya tablo üzerinde bulunan verileri hazır olan ve Excel formatında hazırlanmış tablolara gönderme istiyorum 

Sayın maras321 ekteki örneği inceleyin devamını örneğe göre tamamlarsınız.

(26/12/2019, 00:48)userx yazdı: [ -> ]Sayın maras321 ekteki örneği inceleyin devamını örneğe göre tamamlarsınız.

[attachment=31058]

İlginiz için teşekkürler ama hata alıyorum .

(26/12/2019, 01:15)maras321 yazdı: [ -> ]

(26/12/2019, 00:48)userx yazdı: [ -> ]Sayın maras321 ekteki örneği inceleyin devamını örneğe göre tamamlarsınız.

İlginiz için teşekkürler ama hata alıyorum .

Nasıl bir hata

[attachment=31059 yazdı:userx pid='161472' dateline='1577312189']

(26/12/2019, 01:15)maras321 yazdı: [ -> ][quote='userx' pid='161469' dateline='1577310532']
Sayın maras321 ekteki örneği inceleyin devamını örneğe göre tamamlarsınız.

İlginiz için teşekkürler ama hata alıyorum .

References 'lardan Excel' in hangi versiyonunu kullanıyorsanız onu işaretleyin