verileri excel veya word olarak kaydederken dosya isimlerine tarih atama nasıl yapılı

[selcukkahya]

Arkadaşlar Merhaba

Tablodan veya sorgudan excel veya word e kayıt yaparken dosya isimleri normalde tablonun veya sorgunun adıyla kaydoluyor.Bunu tarih.xls veya tarih.rtf olarak Veya tabloda bulunan bi alandaki veriyi .rtf ve .xls önüne gelecek şekilde nasıl yapabilirim.


Örneğin : 04062008selcuk.xls
04062008selcuk.rtf



Yardımcı olabilirseniz sevinirim.

Çok teşekkürler

Saygılar

 

[modalı]

Sayın selcukkahya,

Dim xlApp As New Excel.Application
Dim Name As String
Dim tarih As String
    tarih = Date
    Name = CurrentProject.Path & "\" & tarih & "selcuk.xls"  
   xlApp.SaveAs Name

Excel için yukarıdaki kod parçası yeterli.

Dim strFileLocation As String
 
strFileLocation = CurrentProject.Path & "\"  tarih & "Bookmarks.doc"
Set objWord = CreateObject("word.application") 
objWord.ActiveDocument.SaveAs (strFileLocation)
Set objWord = Nothing

Word belgesi için ise yukarıdaki kod yeterli. doc yerine rtf kullanabilirsiniz

İyi çalışmalar

 

[selcukkahya]

excel veya word aktarma hakkında

Sayın Modalı

Çalışmamla ilgili ilgilendiğiniz için çok teşekkürler.Bilgileri vermişsiniz denedim ama kod yönüm biraz zayıf olduğu için uğraşmama rağmen yapamadım ne yazıkki.(kusuruma bakmayın)

Ekte dosyamı ekledim acaba verdiğiniz kodları formumdaki word e aktar butonu olayına ekleyebilir misiniz?

Birde sanırım eksik anlatmışım formumda bulunan sipariş veren alanındaki yazılı olan veri ve tarih birlikte dosya ismi oluşturmak istiyorum. (örneğin formda sipariş veren selçuk ise selçuk04062008.rtf gibi veya mehmet04062008.rtf gibi)

Bunu yapabilirseniz çok sevinirim.

Teşekkürler.

Saygılarımla

 

[modalı]

Sayın selcukkahya,

Word a aktar düğümesinin kodlarını şöyle değiştirin:

On Error GoTo Err_cmdWordAktar_Click
    Dim stDocName As String
    Dim strPath As String
    Dim tarih
    
    tarih = Date
    stDocName = "qrySiparisMenuSorgu"
    strPath = "C:\" & Me.SiparisVeren & tarih & ".rtf"
    
    'DoCmd.RunMacro stDocName
    DoCmd.OpenReport stDocName, acViewPreview, "Report Filter"
    DoCmd.OutputTo acOutputReport, stDocName, acFormatRTF, strPath
    DoCmd.Close acReport, stDocName
Exit_cmdWordAktar_Click:
    Exit Sub
Err_cmdWordAktar_Click:
    MsgBox Err.Description
    Resume Exit_cmdWordAktar_Click

Siz ilk sorunuzda rapordan behsetmemiştiniz. Raporu açıp öyle kaydetmeniz gerekir.

İyi çalışmalar

 

[selcukkahya]

kaydetme problemi

Sayın Modalı,

Konumla ilgilendiğiniz için tekrar teşekkürler.

Verdiğiniz kodları word a aktar olay yordamına yerleştirdim fakat ekte eklediğim ileti ile karşılaştım.

bu durumda ne yapmam gerekiyor.

Tekrar yardımcı olabilirseniz sevinirim.

Çok teşekkürler

İyi çalışmalar.

 

[modalı]

Sayın selcukkahya,

Gönderdiğiniz uygulama bende çalışıyor. Onu da ekliyorum.

İyi çalışmalar

 

[selcukkahya]

WORD a aktarma hakkında

Sayın Modalı,

Şimdi farkettim ki Windows Bölgesel Ayarlardaki tarih ayıracının (/) olduğunu farkettim ve onu (.) olarak değiştirdiğimde kodlar çalıştı sorun çıkmadan kaydetme yaptım.Ellerinize Sağlık çok teşekkürler.Tam istediğim gibi olmuş.

Yalnız Öğrenmek istediğim bu kodlarla otomatik olarak (makro yoluyla) e-mail atma şansım var mı?

İkincisi Bölgesel ayarlar / olmasına rağmen dosya isim kaydının tarih arasında . olarak yapma şanşı var mı?

Örnek : selcuk05.06.2008 gibi

yardımlarınız için şimdiden çok teşekkürler.

Kolay gelsin.

 

[modalı]

E-mail gönderme kodu şöyle:

Dim stDocName As String
    Dim stFormat As String
    Dim stTo As String
    Dim stCc As String
    Dim stBcc As String
    Dim stSubject As String
    Dim stMesajText As String
    Dim EditMesage As Variant
    
    MsgBox cboFormat
    stDocName = "Rapor1"
   
    stFormat = Me.cboFormat
    stTo = Me.txtTo
    'stCc = Me.txtCc
    'stBc = Me.txtBc
    stSubject = Me.txtKonu
    stMesajText = Me.txtMesaj
    EditMesage = -1
    
    DoCmd.SendObject acReport, stDocName, stFormat, stTo, stCc, stBc, stSubject, stMesajText, EditMesage

Yerel ayarlar sorununu pek anlayamadım ama bir de şöyle deneyin sanırım hata üretmeyecek:

Dim tarih As String
    
 tarih = CStr(Date)

İyi çalışmalar

 

[selcukkahya]

Sayın Modalı,

tarih = CStr(Date) kodunu hemen uyguladım fakat yine aynı hatayla karşılaştım. Aslında anlatmak istediğim kodlar çalıştıktan sonra bölgesel ayarlardaki tarih ayıracı / seçiliyse program dosya adını selcuk05/06/2008.rtf

olarak kaydetmeye çalışıyor fakat kaydedemiyor. bahsettiğim hata buradan kaynaklanıyor. Bunu sormamın sebebide kullanmış olduğum bazı programlar / ayıracı kullanmak durumunda maalesef.

Size sormamın sebebi de bu maalesef.

teşekkürler

kolay gelsin

 

[modalı]

Sayın selcukkahya,

Şimdi oldu:

tarih = Replace(tarih, "/", ".")

satırını da ekleyin.

İyi çalışmalar

 

[selcukkahya]

Sayın Modalı,

Şimdi oldu ) teşekkür ederim.

Şimdi e-mail kodunu deniyorum.

teşekkürler.

 

[selcukkahya]

Sayın Modalı

Oldu zannetmiştim ama

şimdi oldu )


tarih = Replace(date, "/", ".")

tekrar teşekkürler

 

[selcukkahya]

Sayın Modalı

E-mail kodlarını word a aktar butonunun olay yordamına ilave ettim fakat çalıştıramadım maalesef.

Nerede yanlış yapıyorum acaba bunuda çözebilirsek çok sevinirim.

tekrar teşekkürler

kolay gelsin.




Private Sub cmdWordAktar_Click()

On Error GoTo Err_cmdWordAktar_Click
Dim stDocName As String
Dim strPath As String
Dim tarih

tarih = Date
stDocName = "qrySiparisMenuSorgu"
strPath = "D:\ACCESS_PROJELERİM\köksal bey\" & Me.SiparisVeren & tarih & ".rtf"

'DoCmd.RunMacro stDocName
DoCmd.OpenReport stDocName, acViewPreview, "Report Filter"
DoCmd.OutputTo acOutputReport, stDocName, acFormatRTF, strPath
DoCmd.Close acReport, stDocName


Dim stFormat As String
Dim stTo As String
Dim stCc As String
Dim stBcc As String
Dim stSubject As String
Dim stMesajText As String
Dim EditMesage As Variant

MsgBox cboFormat
stDocName = "Rapor1"

stFormat = Me.cboFormat
stTo = Me.txtTo
'stCc = Me.txtCc
'stBc = Me.txtBc
stSubject = Me.txtKonu
stMesajText = Me.txtMesaj
EditMesage = -1

DoCmd.SendObject acReport, stDocName, stFormat, stTo, stCc, stBc, stSubject, stMesajText, EditMesage


MsgBox "İşlem Tamamlandı.", 48, "Word Aktar"

Exit_cmdWordAktar_Click:
Exit Sub

Err_cmdWordAktar_Click:
MsgBox Err.Description
Resume Exit_cmdWordAktar_Click

End Sub

 

[karaayhan]

sayın selçukkahya , bu örneğin son halini eklermesiniz baştan biz ekleyerek devam etmeyelim son soru üzerinde çalışmak adına doğrusu bu sanırım.
teşekkürler

 

[selcukkahya]

Sayın Karaayhan

çalışmamın son hali ektedir.

teşekkürler

 

[assenucler]

dynapdf.dll dosyasını nereden indirebilirim?

Sayın selcukkahya;

Paylaşımınız için teşekkürler.

Dosyanızı çalıştırmak istediğimde, "DynaPDF.dll" dosyasını Windows System32 klasörüne kopyalayın, iletisi alıyorum.Bunu nereden indirebilirim?

Bu arada sayın Modalı hocama da verdiği katkı için teşekkürler.

Sevgi ve saygılar.

 

[modalı]

Sayın assenucler,

Uygulama içinde pdf olarak rapor kaydetme var. O da Pdf Creator adlı bir yazıcı ara programıyla gerçekleşiyor. Sanırım bu dll ona ait. Bende yüklü ve uygulama düzgün çalışıyor.

İyi çalışmalar

 

[selcukkahya]

Sayın assenucler

http://www.sharewarematrix.com/dynapdf-dll

yukarıdaki linkte konuyla ilgili bir program var . download edin .belki yükleyince durum düzelebilir.

kolay gelsin

iyi çalışmalar

 

[selcukkahya]

Sayın Modalı

Çalışmam bitmek üzere sizden ricam word olarak oluşan dosyayı e-mail olarak göndermek için kodları verdiniz fakat nereye ekleyeceğimi anlayamadım. Bu konudada yardımcı olursanız çok sevinirim.

Teşekkürler

 

[fengari]

arkadaşlar,
satış raporlarını print baskıya alma aşamasında windows destekli bir programda sol üst kçşede file çubuğundan dosyayı farklı kaydet var dosyayı masa ustune excell formatında kopyalamk istiyorum dosya adı sonuna .xls yazdığımda bu mumkun fakat içerdeki bilgiler çok net görünmüyor excell tabloları çok karmaşık ve yoğun bu excell dosyasını nasıl daha düzenli bir hale getirebilirim.