+- 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ığı: formdaki bilgileri worde aktarmak (/konu-formdaki-bilgileri-worde-aktarmak.html)
Cvp: formdaki bilgileri worde aktarmak - Yandemir - 10/01/2013
excel aktarım yazıp sitede aratırsan birçok örnek çıkar.
Cvp: formdaki bilgileri worde aktarmak - metehan16 - 11/01/2013
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
Cvp: formdaki bilgileri worde aktarmak - Yandemir - 11/01/2013
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
Cvp: formdaki bilgileri worde aktarmak - alperadn01 - 11/01/2013
(10/01/2013, 17:38)Yandemir yazdı: örneğiniz düzenlenmiştir.
hocam sorunum çözüldü teşekkür ederim saygılar...
Cvp: formdaki bilgileri worde aktarmak - metehan16 - 11/01/2013
[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
Cvp: formdaki bilgileri worde aktarmak - alperadn01 - 13/02/2013
(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