Accsess Üzerinden excel Farklı Kaydet?

Ö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?

şablon dosyanızı .xltx formatında kaydederseniz -ilk kaydedildiğinde doğrudan belgelere kaydedebilir oradan ilgili yere taşırsınız- dosya açıldığında yapacağınız değişiklikler şablonu etkilemez. ama isterseniz aşağıdaki şekilde de kullanılabilir

wbFarkliKaydet=CurrentProject.Path & "\istenilen İsim.xlsx"

objWorkBook .SaveAs Filename:= wbFarkliKaydet

(17/04/2024, 16:18)berduş yazdı: şablon dosyanızı .xltx formatında kaydederseniz -ilk kaydedildiğinde doğrudan belgelere kaydedebilir oradan ilgili yere taşırsınız- dosya açıldığında yapacağınız değişiklikler şablonu etkilemez. ama isterseniz aşağıdaki şekilde de kullanılabilir

wbFarkliKaydet=CurrentProject.Path & "\istenilen İsim.xlsx"

objWorkBook .SaveAs Filename:= wbFarkliKaydet

bu kodu mevcut kodun sonuna mı eklemeliyim? Yoksa başka bi yer mi
.xlts olarak kaydettim dediğiniz gibi oda işimi gördü bu arada çok teşekkür ederim.

rica ederim

(17/04/2024, 21:14)andarc yazdı: bu kodu mevcut kodun sonuna mı eklemeliyim? Yoksa başka bi yer mi

ben mevcut koda göre önermiştim o nedenle o kodun sonuna end sub'ın hemen üstüne eklemeniz yeterli
iyi çalışmalar