formdaki bilgileri worde aktarmak

1 2 3 4 5 6 7
10/01/2013, 23:59

Yandemir

excel aktarım yazıp sitede aratırsan birçok örnek çıkar.
11/01/2013, 00:29

metehan16

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
11/01/2013, 01:01

Yandemir

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
11/01/2013, 09:29

alperadn01

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

hocam sorunum çözüldü teşekkür ederim saygılar...
11/01/2013, 09:40

metehan16

[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
13/02/2013, 17:25

alperadn01

(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

worde_aktarmak1.rar
1 2 3 4 5 6 7