Skip to main content

AccessTr.neT


Excel'e gönderilen dosyanın adını kodla değiştirme

Excel'e gönderilen dosyanın adını kodla değiştirme

Çözüldü #1
Merhabalar

Ekteki basit uygulamada anlattığım gibi benim isteyipte yapamadığım sorguyu Excel e gönderirken adının değişkene göre değişmesi.

Yani bir Sorgum var adı: sorgu1

Excel gönderince de adı sorgu1.xls oluyor. Ben bunu formun içindeki değişkene göre adlandırmasını istiyorum Mesela Değişken Ali olsun Ali'nin bilgileri.xls gibi

Teşekkürler
.rar excel e isim verme.rar (Dosya Boyutu: 17,87 KB | İndirme Sayısı: 8)
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Komut Botonunun kodunu aşağıdaki ile değiştirin oalacaktır.
Kolay Gelsin.
Private Sub Excel_Click()
Dim Klasor As String
Klasor = CurrentProject.Path & Me.adı.Value & " Bilgileri.xls"
If MsgBox(Me.adı.Value & " Bilgilerini Excele aktarmak istiyor musunuz? ", 36, "Sorgu1 Aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "Sorgu1", Klasor, True, "Bilgiler"
End If
End Sub
Cevapla
Çözüldü #3
Sayın Kur@l

Kodu yazdım. Çalışıyor Ancak dosyayı Access dosyasının bulunduğu klasorde değilde masaüstünde oluşturuyor. Bir de oluşturduğu dosyanın adının önüne "yeni klasör" ifedesi ekliyor

Pardon
access dosyasının bulunduğu klasörün adını dosyanın önüne ekliyor.
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 28/09/2011, 16:21, Düzenleyen: mahirozcan.
Cevapla
Çözüldü #4
Aşağıdaki şekilde denermisiniz.

Private Sub Excel_Click()
Dim Klasor As String
Klasor = CurrentProject.Path

If MsgBox(Me.adı.Value & " Bilgilerini Excele aktarmak istiyor musunuz? ", 36, "Sorgu1 Aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "Sorgu1", Klasor & "\" & Me.adı.Value & " Bilgileri.xls", True, "Bilgiler"
End If
End Sub
Cevapla
Çözüldü #5
Teşekkürler

Şimdi Oldu.

Saygılar
mahirozcan, 07-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da