Skip to main content

AccessTr.neT


Accesten Excele Farklı Sayfalara Kayıt

Accesten Excele Farklı Sayfalara Kayıt

#13
(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 
.rar örnek.rar (Dosya Boyutu: 45,65 KB | İndirme Sayısı: 6)
Cevapla
#14
Sayın maras321 ekteki örneği inceleyin devamını örneğe göre tamamlarsınız.
.rar userx53_ornek.rar (Dosya Boyutu: 47,16 KB | İndirme Sayısı: 6)
"Dünyayı fazla düşünme."
Cevapla
#15
(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 .
Son Düzenleme: 26/12/2019, 01:16, Düzenleyen: maras321.
Cevapla
#16
(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
"Dünyayı fazla düşünme."
Cevapla
#17
[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 .



[Resim: do.php?img=9387]
Son Düzenleme: 26/12/2019, 01:21, Düzenleyen: maras321.
Cevapla
#18
References 'lardan Excel' in hangi versiyonunu kullanıyorsanız onu işaretleyin
"Dünyayı fazla düşünme."
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task