11/11/2019, 00:48
erden1
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ü
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ü