Öncelikle merhaba,
Üzerinde çalıştığım bir projede accsess ile aynı klasörde buluna hazır excelde yapılmış bir şablona veri aktarıyorum.
kullandığım kod
Dim objExcel
Dim objWorkBook
Set objExcel = CreateObject("EXCEL.APPLICATION")
objExcel.Visible = True
Set objWorkBook = objExcel.Workbooks.Open(CurrentProject.Path & "\raportemp.xlsx")
objExcel.Range("E15") = Dlookup ("[id]", "ExceleVer")
objExcel.Range("E16") = Dlookup ("[ekipman_no]", "ExceleVer")
End Sub
merak etti