Rapordaki çizelgeyi excele göndermek

[akd]

Merhaba arkadaşlar,
Rapordaki hazırladığım çizelgeyi,
içinde veriler varken tablo şekilde excel'e göndermek istiyorum,
nasıl yapabilirim.

 

[foubleu]

Bir örnek eklerseniz eminimki daha kısa sürede çözüm bulunacaktır.

 

[mehmetdemiral]

Raporda hazırladığınız çizelgeyi değil ama o raporun veri aldığı sorguyu excele aktarabilirsiniz.

 

[akd]

Sayın arkadaşlar,
veriyi gönderiyorum ama ben çizelge ile birlikte göndermem gerek,
üzerinde degişiklik yapıp saonra yazdırmak için.

 

[mehmetdemiral]

Nerde?.. Sanırım eklemeyi unuttunuz..

 

[beab05]

Çizelgenin de çıkması için PDF ya da SNP ye convert edilmesi gerekiyor. Tabii SNP olursa üzerinde değişklik yapamaz ama PDF e dönüştürür ve Adobe Acrobat kurulursa ( READER değil) PDF üzerinde de her türlü değişklik yapılabilir. Ya da çizelgesi, çizgileri olan bir Excel belgesine export edilebilir, tabii bu biraz daha karışık bir iş gibi..

 

[Ersen]

Çok daha farklı bir metod önereceğim vaktiyle ben de yapmıştım. Çizelgeyi öncelikle excelde oluştur. Sonra birebir boyutu ile kopyalayarak raporun veri kısmına yapıştır.

Sonra access'ten aldığın alanları bu tablonun üzerine teker teker yerleştir kenarlıklar vs saydam olmalı.
Excelde yapacağın işleri önceden planlayıp son şeklini verdikten sonra rapor hazır vaziyette çizgileri ile birlikte yazdırılıyor.

Kolay gelsin.

 

[akd]

sn.beab05,
bu Adobe Acrobat tam olarak nereden indirebilirim?
link verebilirmisiniz lütfen
ben bir kaç indirdim randımanlı degil,
netice alamadım...

 

[beab05]

Merhaba;

En ucuz standart versiyonu 299 USD
Warez linkleri de vermek uygun olmaz sanırım

http://www.adobe.com/products/acrobat/?promoid=BPDDU

 

[akd]

kulağıma söyle

 

[modalı]

Sayın akd,

Bir adet excel şablonuna istediğiniz çizelgeyi çizin. Ondan sonra bu şablona dayanarak çizelgeyi doldurup kaydedin. Sonra istediğiniz değişiklikleri yapabilirsiniz.

İyi çalışmalar

 

[karaayhan]

şu konuyla ilgili basit bir örnek ekleyin sayın akadir, böyle çok hayalı oluyor
ki sanırım çözümü basit onlarcasını yaptım ...

 

[akd]

eki ekliyorum

Arkadaşlar örnek çalışmamı ekliyorum
Listeden öğrenci seçince ön izlemeden bakabilirsiniz
dolu tabloyu olduğu gibi excele göndermek istiyorum.
sayın modalı sablon excelden bahsetmişti
onuda ekledim.
İyi geceler dilerim...

 

[karaayhan]

bu kodları dene sayın akd örnek üzerine uygulmadım ama biraz ayar işinizi görecektir microsoft office excel.10 yada 11 i referans olarak eklemeyi unutmayın

Function fnTabletoExcel()


Dim xlApp As New Excel.Application
'Dim xlApp As Object
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet

Dim Name As String
    Name = CurrentProject.Path & "\sablon.xls"
Set xlApp = CreateObject("Excel.Application")

    xlApp.Workbooks.Open Name
    xlApp.Visible = True

Dim rec As Recordset, db As Database, i%
Dim looper As Integer

Dim RowCellPos As Integer
Dim ColCellPosNum As Integer
Dim ColCellPosText As String

Dim OrigCell As String
Dim ColPos As String
Dim ColPos2 As String
Dim colpos3 As String
Dim PastePos As String
Dim testcellref As String

Dim intCounter As Integer

    Set db = CurrentDb
    Set rec = db.OpenRecordset("beep")


If rec.EOF Then rec.Close: Exit Function

rec.MoveLast: rec.MoveFirst

    Set xlWB = xlApp.ActiveWorkbook
    xlWB.Sheets("Sayfa1").Activate
    Set xlWS = xlWB.ActiveSheet
    

For i = 0 To (rec.Fields.Count - 1)
    xlWS.Cells(4, (i + 1)) = rec(i).Name '8(1) sekizinci satır,3(1) c sütunu başlığın yeri
Next i


rec.MoveFirst
 
For i = 2 To rec.RecordCount + 1
    For looper = 0 To (rec.Fields.Count - 1)
        xlWS.Cells(i + 3, (looper + 1)) = rec(looper)
                                                      
    Next looper
rec.MoveNext
Next i
End Function

 

[akd]

sn.karaayhan,
teşekkür ederim ama olmadı malesef,
tablo tek düze birşey olmadığı için,
olmadı.

 

[modalı]

Sayın akd,

Biraz sabır üzerinde çalışıyorum.


İyi çalışmalar

 

[akd]

Çok teşekkür ederim sayın modalı....

 

[modalı]

Sayın akd,

Sabrın sonu selametmiş.


Formunuzdaki listeden bir öğrenci seçip, deneme butonuna basın. Excel dosyalarını kaydedilecek şekilde yaptım. Belki saklamak istersiniz.

Öğretmen TC no için öğretmen tablosu olmadığı için deneme yapamadım. ama kod var önündeki ' kaldırırsanız onun da çalışması gerekir.

İyi çalışmalar

 

[akd]

Çok Çok teşekkürlerimi sunarım,
elleriniz dert görmesin sayın modalı hocam...
İyi geceler...

 

[nafis]

Merhaba;

Sn.Modalı güzel bir çalışma çok işe yarayacak ama bende çalışmadı.
- program açılışında resim 1 deki hatayı verdi.
- listeden isim seçip deneme düğmesine tıklayınca resim 2 deki hatayı verdi.
- Tools-refenrences den MISSING: mo 12.0 objet libray kaldırdım resim 3 deki hatayı verdi.
- Tools-references den mo 11.0 objet libray ekledim bu seferde resim 4 deki hatayı verdi.

Programı hatasız çalıştırmam için ne yapmalıyım.

Selamlar.