Ö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ğim şu bu kod dizisine Farklı kaydetmek için bir kod ekleyebiliryor muyuz? Kod şu anda çalışır durumda ama veriyi aktarıp exceli açıyor. Bunun yerine şablona dokunmadan farklı kaydet yapabiliyor muyuz?