Skip to main content

AccessTr.neT


Önce Bul Sonra Kaydet Veya Farklı Kaydet

Önce Bul Sonra Kaydet Veya Farklı Kaydet

Thumbs Down #31
(29/04/2019, 14:16)haliliyas yazdı: aslında gerçekten anlamadım galiba
çünkü bence istediğiniz şey ile benim yaptığım aynı
c:\a\b\ ile
daha önceden belirttiğiniz uzun adres arasında fark yok
kendi bilgisayarımda denediğimde yazdığım adresteki ayna ada sahip dosyayı aktif dosya olarak güncelledi
ActiveWorkbook.SaveAs "c:\a\b\" & ActiveWorkbook.Name

üstat sizin verdiğiniz kod ile yapınca farklı kaydet olduğu için dosya adı zaten var üzerine kaydetmek istiyormusunuz diyor.
ama ben
ThisWorkbook.Save "\\10.0.0.10\ortakdata\HASARLI ARAÇLAR TAKİBİ\ARŞİV\HASARLI DOSYA KARDEDİLEN ARAÇ ARŞİVİ\" & ActiveWorkbook.Name
farklı kaydet değil işaretlediğim kodun yaptığı gibi mevcut kaydet istiyorum. ben bu yazdığım şekilde kodu kullanamıyorum bunu nasıl kullanabilirim acaba ?
Cevapla
#32
ben de hatlar koptu))
aktif dosyadaki değişiklikler ayna ada sahip yedek Excel dosyasına da mı kayedilsin?
siz başka klasöre kaydetmek istediğinizde her zaman "saveas"  kullanılır.
mesela Excel dosyanızı excelin kendi menüsünden girerek farklı bir yere kaydetmek istediğinizde
yine "farklı kaydet" der ama aslında yaptığı aktif dosyanızı farklı yere kaydeder.
şimdi anlaşılır olması için daha açık sorayım
aktif dosyanız==> d:\a\b\wolf.xlsm
ise
daha önce oluşturulmuş yedek dosyanız da ==>d:\arşiv\yedek\wolf.xlsm
ise eski dosyayı güncelleyip yeni dosya ile aynı veriye sahip olmasını istiyorsanız gerekli kod
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name 
yani yeni yedek dosyanız da ==>d:\arşiv\yedek\wolf.xlsm olur
bana böyle adım adım mümkün olduğunca basit anlatırmısınız
Cevapla
Smile #33
(29/04/2019, 15:07)haliliyas yazdı: ben de hatlar koptu))
aktif dosyadaki değişiklikler ayna ada sahip yedek Excel dosyasına da mı kayedilsin?
siz başka klasöre kaydetmek istediğinizde her zaman "saveas"  kullanılır.
mesela Excel dosyanızı excelin kendi menüsünden girerek farklı bir yere kaydetmek istediğinizde
yine "farklı kaydet" der ama aslında yaptığı aktif dosyanızı farklı yere kaydeder.
şimdi anlaşılır olması için daha açık sorayım
aktif dosyanız==> d:\a\b\wolf.xlsm
ise
daha önce oluşturulmuş yedek dosyanız da ==>d:\arşiv\yedek\wolf.xlsm
ise eski dosyayı güncelleyip yeni dosya ile aynı veriye sahip olmasını istiyorsanız gerekli kod
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name 
yani yeni yedek dosyanız da ==>d:\arşiv\yedek\wolf.xlsm olur
bana böyle adım adım mümkün olduğunca basit anlatırmısınız
üstat
1-
ilk dosyamı açtık ve yaptığımız butona basarak
önce 
aktif dosyamız ==> d:\a\b\wolf.xlsm 
kaydetti.
işlem devam ederken de aynı anda
yedek dosyamız da ==>d:\arşiv\yedek\wolf.xlsm 
olarak da kaydetti ve dosyamız kapandı.
yani ilk açılışı yaptık aynı anda bu iki yere kaydetti ve kapadı.
daha sonra kaydettiğim dosyayı

2-
aktif dosyamız ==> d:\a\b\wolf.xlsm 
konumunda bulunan dosyamı açtım üzerinde ilaveler değişiklikler yaptım ve yeniden kapadım
ThisWorkbook.Save
bu kod ile mevcut dosyamın üzerine kaydetti ama ben aynı zamanda da
daha önceden yedeğini kaydettiğim
yedek dosyamız ==>d:\arşiv\yedek\wolf.xlsm 
konumunda bulunan aynı isimli dosyamda da güncellenmesini istiyorum (yani 2 diye yazdığım işlemde değişiklik yaptım) 
bu yaptığım değişikliğin hem aktif dosya konumunda hemde yedeklediğimde olmasını istiyorum.
daha nasıl açık anlatabilirim.
Cevapla
#34
anlaşamadığımız kesin benim verdiğim 
==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name kodunu
==>ThisWorkbook.Save kodunun altına yazınca 
ThisWorkbook.Save
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name

zaten sizin istediğinizi yapmıyor mu?
aynı ada sahip yedek dosyanızı güncellemiyor mu?
==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name <== kodunu nereye yazdınız? ne yapıyor, hangi dosyayı güncelliyor?
kendi bilgisayarımda denediğimde bu kod yedek Excel dosyamı da güncelledi.
Cevapla
Thumbs Down #35
(29/04/2019, 16:35)haliliyas yazdı: anlaşamadığımız kesin benim verdiğim 
==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name kodunu
==>ThisWorkbook.Save kodunun altına yazınca 
ThisWorkbook.Save
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name

zaten sizin istediğinizi yapmıyor mu?
aynı ada sahip yedek dosyanızı güncellemiyor mu?
==> ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name <== kodunu nereye yazdınız? ne yapıyor, hangi dosyayı güncelliyor?
kendi bilgisayarımda denediğimde bu kod yedek Excel dosyamı da güncelledi.

üstadım sizin dediğiniz kodu yazınca dosya adı mevcut yinede kaydetmek istiyormusunuz diye uyarı veriyor.
benim dediğimi siz anlamıyorsunuz.
ben uyarı vermeden kaydetmesini istiyorum.
farklı kaydet ile değil.
kaydet ile nasıl yaparız diyorum anlamıyorsunuz sanırım. ben anlatamadım herhalde size.
Son Düzenleme: 29/04/2019, 16:41, Düzenleyen: comp_wolf.
Cevapla
#36
Application.DisplayAlerts = False
ThisWorkbook.Save
ActiveWorkbook.SaveAs "d:\arşiv\yedek\" & ActiveWorkbook.Name
Application.DisplayAlerts = true
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task