AccessTr.neT

Merhabalar accesteki tablomu şablonunu hazırladığım bir Excel e 3. satırdan ihtibaren atsın istiyorum yardımcı olabilirmisiniz


Dim Excl As Excel.Application
Dim KTP As Excel.Workbook
Dim SYF As Excel.Worksheet
Set Excl = CreateObject("Excel.Application")
Excl.Application.Visible = True
    Set KTP = Excl.Workbooks.Open(CurrentProject.Path & "\deneme.xls")
    Set SYF = KTP.Worksheets("sayfa1")
    SYF.Range("a2:o108").Value = "yazılacak veri"

Siteden bunu buldum ama bütün hücrelere aynı veriyi yazıyor. oraya tabloyu uyarlayamadım bir türlü

DoCmd.TransferSpreadsheet fonksiyonu işinize yarayabilir
https://docs.microsoft.com/en-us/office/...preadsheet bağlantısından ayrıntılı bilgiye ulaşabilirsiniz

Hocam çok teşekkür ederim