Access formundan excel de istediğim hücreye

04/10/2010, 19:29

yahyamacit

Access formundan Excel de istediğim hücreye veri göndermek istiyorum.Örneği ekte sunuyorum. Yardımlarınız için teşekkür ederim.
05/10/2010, 12:27

Kur@l

Sayın yahyamacit;
Aşağıdaki linkte ki eklentiyi inceleyiniz. Bu eklenti Seruz Hocam tarafından yapılmıştır. İnceleyiniz istediğinizden fazlası o örnekte var.
Kolay Gelsin.
Excele Verme Örneği.
15/10/2010, 17:22

Seruz

Private Sub btn_EXCEL_Click()
On Error GoTo Err_btn_EXCEL_Click

'Excel'le ilgili koddan işlem yapabilmek için öncelikle Tools-Reference menüsünden,
'Microsoft Excel 1x.0 Object Library referansını işaretlemek gerekiyor.
'Forumda da anlattığım şekilde, boş bir Excel dosyasında makro kaydet'i seçip,
'yapmak istediğim işlemleri yaptım ve oluşan makroyu
'buraya kopyalayıp, üzerinde ufak tefek düzeltmeler yaptım.
'Yazılan kodlara biraz dikkat edersen, ne yaptığını anlıyorsun

'---------------------------------------------------------------------------------------------------------
'Excel açılıyor ve başlıklar ayarlanıyor
'---------------------------------------------------------------------------------------------------------
Set ExcelDosyasi = CreateObject("Excel.Application")

With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open Filename:=CurrentProject.Path & "\data.xls"
.Range("B4").Value = Me.adı
.Range("B5").Value = Me.yaşı
End With
Set ExcelDosyasi = Nothing

'Excel hücreye değer atamayı bu şekilde kaydediyor
' .Range("B4").Select
' .ActiveCell.FormulaR1C1 = "DENEME"
'Hücreye değer atamayı sen bu şekilde yapabilirsin.
' .Range("A1").FormulaR1C1 = "DENEME"
'Hücreye değer atamayı böyle yapabilirsin.
' .Range("A1").Value = "DENEME"
'Hücreye değer atamayı böyle de yapabilirsin. (Satır ve Sütun numarası ile)
' .Cells(1, 1) = "DENEME"
'Benim bilmediğim farklı yöntemlerde olabilir.

Exit_btn_EXCEL_Click:
Exit Sub

Err_btn_EXCEL_Click:
MsgBox Err.Description
Resume Exit_btn_EXCEL_Click

End Sub
05/11/2010, 07:42

benremix

Sn yahyamacit probleminizi çözebildiniz mi?
Lütfen geri bildirimde bulununuz.
Saygılar...