Skip to main content

AccessTr.neT


Varolan Excel dosyası üzerine aynı ad ile tekrar kayıt yapmak

megasoftware
megasoftware
3
2073

Varolan Excel dosyası üzerine aynı ad ile tekrar kayıt yapmak

Question #1
Saygıdeğer Hocalarım ve arkadaşlarım bir tablomu aşağıda ki komut ile excele yolluyorum. Ancak eski dosya yerinde durduğu müddet boyunca sonraki yollamalarım da yeni hali gelmiyor. Yani mevcut dosya üzerine yenisini yazarark yenilemiyor. Bu sorunu aşmak için acaba komuta bir şey mi eklemem lazım yoksa her seferinde farklı ad ile mi kaydetmek zorundayım ?  Yardımlarınız için şimdiden çok teşekkür ederim..
Kod:
Dim YOL As String
YOL = CurrentProject.Path & "\Müşteri Listesi.xls"
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"

Cevapla
#2
Saynım megasoftware;

Alıntı:tablomu aşağıda ki komut ile excele yolluyorum. Ancak eski dosya yerinde durduğu müddet boyunca sonraki yollamalarım da yeni hali gelmiyor.

ifadenize yönelik olarak,
belirtmiş olduğunuz komutta herhangi bir sorun görünmüyor. kendi çalışmamda da denedim değişiklikleri excele aktarıyor.

Çalışmanızı içinde gerçek dışı farazi 5-10 kayıt barındıracak şekilde konunuza dahil ederseniz muhtemel başka bir hatanın buna sebep olup olmadığını kontrol edebiliriz.

Bilgilerinize
Saygılar iyi çalışmalar...
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların
Son Düzenleme: 05/05/2016, 10:27, Düzenleyen: emir ustaoğlu.
Cevapla
#3
sayın megasoftware,

bahsettiğiniz talebinize yönelik olarak;

sayın ustaoğlu'nun yazdıklarına ek olarak,bir diğer alternatif kullanım olması adına,önceki dosyayı bir kontrol yolu ile silip tekrar aktarımı da sağlayabilirsiniz.

ÖRNEK

Kod:
If Dir(YOL) <> "" Then
   Kill YOL
End If
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
[quote pid='134203' dateline='1462436114']
Kod:
If Dir(YOL) <> "" Then
   Kill YOL
End If
DoCmd.TransferSpreadsheet acExport, 8, "Cari_Tbl", YOL, True, "Müşteri Listesi"

[/quote]

Sayın hocam verdiğiniz fikir ile sorun çözülmüştür. Saygılarımla iyi çalışmalar dilerim. Konuyu taşıya bilirsiniz.  +rep
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da