- Katılım
- 28 Haziran 2007
- Mesajlar
- 141
- Excel Vers. ve Dili
- microsoft office 2007 - ingilizce
Merhabalar,
Öncelikle, vba konusunda acemi olduğumu belirteyim. Her gün işyerinde ortak sunucu üstünde bir dizi excel çalışma kitabını açıp, içindeki linkleri güncelleyerek ardından kaydedip kapamam gerekiyor. Bu işi şu şekilde bi kodla halledebildim:
Yalnız bu kodla şöyle bir sıkıntı oluyor. Eğer açılan dosyalardan herhangi biri başka bir kullanıcı tarafından açılmışsa dosya salt okunur (read-only) açıldığından güncellenemiyor ve kaydedilemiyor. Ben bu şekilde açılamayan dosya olunca bana bir hata mesajı versin, dosya üstünde bir değişiklik yapmaya çalışmasın ve masaüstünde hangi dosyanın açılamadığını bir text dosyası oluşturup yazmasını istiyorum. Nasıl halledebilirim bu işi? Gerçekten benim için büyük bir zaman kazancı olacak. Şimdiden teşekkürler.
Öncelikle, vba konusunda acemi olduğumu belirteyim. Her gün işyerinde ortak sunucu üstünde bir dizi excel çalışma kitabını açıp, içindeki linkleri güncelleyerek ardından kaydedip kapamam gerekiyor. Bu işi şu şekilde bi kodla halledebildim:
Kod:
Private Sub File_Update()
Workbooks.Open ("D:\a.xlsx"), UpdateLinks:=xlUpdateLinksAlways
ActiveWorkbook.Close SaveChanges:=True
Workbooks.Open ("D:\b.xlsx"), UpdateLinks:=xlUpdateLinksAlways
ActiveWorkbook.Close SaveChanges:=True
'... Bu şekilde çokça çalışma kitabı var.
End Sub