Skip to main content

AccessTr.neT


Accesten Excele Farklı Sayfalara Kayıt

Accesten Excele Farklı Sayfalara Kayıt

Çözüldü #1
Private Sub Komut8_Click()

    Dim xl As Excel.Application
    Dim xlwkbk As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    
    If Me.Dirty Then
    DoCmd.RunCommand acCmdSaveRecord
    End If
        
    Set xl = New Excel.Application
    Set xlwkbk = xl.Workbooks.Open(CurrentProject.Path & "\Ornek.xlsx")
           
    xl.Sheets("Sayfa1").Select
   
    With xlsheet
    xl.Range("B13") = Dlookup ("[adi]", "Tablo1", "[Kimlik]=" & Me.Id)
    xl.Range("B14") = Dlookup ("[soyada]", "Tablo1", "[Kimlik]=" & Me.Id)
    End With
    
    xl.Visible = True
    
    
    Set MyRecordset = Nothing
    Set xl = Nothing
    Set xlwkbk = Nothing
    Set xlsheet = Nothing
    
End Sub



kullanmış olduğum kod tek sayfaya kayıt yapıyor ama ben sayfa2 sayfa3 sayfa4.... vs kayıt yapmak istersem nasıl bir düzenleme yapmam lazım?
.rar excell.rar (Dosya Boyutu: 38,77 KB | İndirme Sayısı: 7)
Son Düzenleme: 25/12/2019, 01:46, Düzenleyen: maras321.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Accesten Excele Farklı Sayfalara Kayıt - Yazar: maras321 - 25/12/2019, 01:44
Task