AccessTr.neT

excel aktarım yazıp sitede aratırsan birçok örnek çıkar.

sayın hocam aram yaptım 4 tane konu çıkıyor ama bunlar sadece normal excele gönderme şeklinde hücre seçerek gönderme bulamadım saygılar

tam teşekküllü bi örnek kod
çok uzun bir koddan 5-6 parça aldığım için hata verebilir ama mantığı budur.

Private Sub ExcelleBasit_Click()

    On Error Resume Next

    Dim rs As Recordset

    Dim belge As Excel.Application

    Set belge = New Excel.Application



    belge.Workbooks.Add

    Me.Excelle.Caption = "Excel Açılacak Bekleyin"

    Me.Durum.Caption = "Ana Başlık Yazılıyor"

    Me.Repaint

    

    belge.Range("A1:N1").MergeCells = True

    belge.Cells(1, 1) = "CARGO MANIFEST"

    belge.Cells(1, 1).Font.name = "Arial Narrow"

    belge.Cells(1, 1).Font.Size = 12

    belge.Cells(1, 1).Font.Bold = True

    belge.Cells(1, 1).Font.Color = vbBlack

    belge.Cells(1, 1).VerticalAlignment = xlCenter

    belge.Cells(1, 1).HorizontalAlignment = xlLeft

        

    belge.Cells(2, 1) = "VESSEL:"

    belge.Cells(2, 1).Font.name = "Arial Narrow"

    belge.Cells(2, 1).Font.Size = 10

    belge.Cells(2, 1).Font.Bold = False

    belge.Cells(2, 1).Font.Color = vbBlack

    belge.Cells(2, 1).VerticalAlignment = xlCenter

    belge.Cells(2, 1).HorizontalAlignment = xlRight

    'belge.Cells(1, 1).Interior.ColorIndex = 5



    belge.Cells.EntireColumn.AutoFit

    belge.Rows("5").RowHeight = 30

    belge.Columns("A").ColumnWidth = 6

    belge.Columns("K").ColumnWidth = 5

    belge.Columns("L").ColumnWidth = 5

    belge.Columns("M").ColumnWidth = 5

    belge.Columns("N").ColumnWidth = 5



    belge.Cells(Sat, 5) = "=SUM(E6:E" & Sat - 1 & ")"

    belge.Cells(Sat, 5).Font.name = "Arial Narrow"

    belge.Cells(Sat, 5).Font.Size = 8

    belge.Cells(Sat, 5).Font.Bold = False

    belge.Cells(Sat, 5).Font.Color = vbBlack

    belge.Cells(Sat, 5).WrapText = True

    belge.Cells(Sat, 5).VerticalAlignment = xlTop

    belge.Cells(Sat, 5).HorizontalAlignment = xlRight



    belge.Cells.EntireColumn.AutoFit

    

    belge.Visible = True

        

    SendKeys "%F", True

    SendKeys "U", True

    SendKeys "%L", True

    

    SendKeys "+{TAB}", True

    SendKeys "{RIGHT}", True

    

    SendKeys "%T", True

    SendKeys ",5", True

    

    SendKeys "%L", True

    SendKeys ",5", True

    

    SendKeys "%R", True

    SendKeys ",5", True

    

    SendKeys "%B", True

    SendKeys ",5", True

    

    SendKeys "%A", True

    SendKeys ",5", True

    

    SendKeys "%F", True

    SendKeys ",5", True

    

    SendKeys "{ENTER}", True



End Sub

(10/01/2013, 17:38)Yandemir yazdı: [ -> ]örneğiniz düzenlenmiştir.

hocam sorunum çözüldü teşekkür ederim saygılar...

[quote='Yandemir' pid='103826' dateline='1357855309']
tam teşekküllü bi örnek kod
çok uzun bir koddan 5-6 parça aldığım için hata verebilir ama mantığı budur.

Sayın hocam çok teşekkürler ben üzerinde anlamak için çalışacağım. çok teşekkür ederim ilgi alaka ve emğiniz için

(10/01/2013, 17:38)Yandemir yazdı: [ -> ]örneğiniz düzenlenmiştir.

hocam sizi yine rahatsız ediyorum kusura bakmayın. şimdi örnekteki koda göre görüntülediğimiz form bilgilerini worde aktarabiliyoruz. peki bütün form bilgilerini worde aktarma şansımız var mı? bu durum sıralı formdaki bilgilerin tamamını worde aktarma şeklinde de olabilir.forum sayfasından araştırdım ama buna uygun bir konu bulamadım.şimdiden teşekkür ederim saygılar