Skip to main content

AccessTr.neT


Access formundan excel de istediğim hücreye

Access formundan excel de istediğim hücreye

Çözüldü #1
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.
.rar Access excel.rar (Dosya Boyutu: 13,96 KB | İndirme Sayısı: 28)
Cevapla
Çözüldü #2
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.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #3
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
.rar veri_Seruz.rar (Dosya Boyutu: 15,31 KB | İndirme Sayısı: 45)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #4
Sn yahyamacit probleminizi çözebildiniz mi?
Lütfen geri bildirimde bulununuz.
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task