+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablodaki Verileri Excele Sitediğim Satırdan Başlayarak Taşımak (/konu-tablodaki-verileri-excele-sitedigim-satirdan-baslayarak-tasimak.html)
Tablodaki Verileri Excele Sitediğim Satırdan Başlayarak Taşımak - erden1 - 11/11/2019
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ü
Cvp: Tablodaki Verileri Excele Sitediğim Satırdan Başlayarak Taşımak - berduş - 11/11/2019
DoCmd.TransferSpreadsheet fonksiyonu işinize yarayabilir
https://docs.microsoft.com/en-us/office/vba/api/access.docmd.transferspreadsheet bağlantısından ayrıntılı bilgiye ulaşabilirsiniz
Cvp: Tablodaki Verileri Excele Sitediğim Satırdan Başlayarak Taşımak - ferdiqq - 11/11/2019
Hocam çok teşekkür ederim