+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel'e gönderilen dosyanın adını kodla değiştirme (/konu-excel-e-gonderilen-dosyanin-adini-kodla-degistirme.html)
Excel'e gönderilen dosyanın adını kodla değiştirme - mahirozcan - 28/09/2011
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
Cvp: Excel'e gönderilen dosyanın adını kodla değiştirme - Kur@l - 28/09/2011
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
Cvp: Excel'e gönderilen dosyanın adını kodla değiştirme - mahirozcan - 28/09/2011
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.
Cvp: Excel'e gönderilen dosyanın adını kodla değiştirme - Kur@l - 28/09/2011
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
Cvp: Excel'e gönderilen dosyanın adını kodla değiştirme - mahirozcan - 28/09/2011
Teşekkürler
Şimdi Oldu.
Saygılar