Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Accsess Üzerinden excel Farklı Kaydet?

andarc
andarc
Access Cevaplanmış Soruları
3
465

Accsess Üzerinden excel Farklı Kaydet?

Çözüldü #1
andarc
Üye
andarc
Bul
Üye
Adı Soyadı:
Yaşı: 36
Konum: Kocaeli
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 22/04/2025,13:20
Yorumları: 22
Konuları: 7
Kayıt Tarihi: 06/04/2024
Teşekkür Puanı: 0
Mesleğiniz: Kalite Kontrol ve Raporlama
Ö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?
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:04
Yorumları: 8.551
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
ş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
Cevapla
#3
andarc
Üye
andarc
Bul
Üye
Adı Soyadı:
Yaşı: 36
Konum: Kocaeli
Ofis Versiyonu: Ofis 2013 32 Bit
Son Oturumu: 22/04/2025,13:20
Yorumları: 22
Konuları: 7
Kayıt Tarihi: 06/04/2024
Teşekkür Puanı: 0
Mesleğiniz: Kalite Kontrol ve Raporlama
(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.
Son Düzenleme: 17/04/2024, 21:20, Düzenleyen: andarc.
Cevapla
#4
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:04
Yorumları: 8.551
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task