+- 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ığı: Bir Access Verisini Bir Excel Hücresine Kopyalamak (/konu-bir-access-verisini-bir-excel-hucresine-kopyalamak.html)
Bir Access Verisini Bir Excel Hücresine Kopyalamak - msertcan - 20/07/2019
Access tablosundaki açık olan kayıttaki bir veriyi, Excel tablosundaki bir hücreye kopyalamak istiyorum.
Örnek olarak "tds_data" tablosunda açık olan "mat_name" alanındaki bilgiyi Access ile aynı klasörde olan "asd.xlsm" içerisndeki "C1" hücresine yazmasını istiyorum. Bunu da forma yerleştireceğim bir butona bağlamayı planlıyorum.
Şimdiden teşekkürler.
Cvp: Bir Access Verisini Bir Excel Hücresine Kopyalamak - berduş - 20/07/2019
'referanslara ==> Microsoft Excel xx.xobject library eklenmeli, " xx.x " yerine sizdeki ofise uygun sürüm olmalı
Private Sub Komut11_Click()
Dim Excl As Excel.Application
Dim KTP As Excel.Workbook
Dim SYF As Excel.Worksheet
Set Excl = CreateObject("Excel.Application")
Excl.Application.Visible = True
Set KTP = Excl.Workbooks.Open(CurrentProject.Path & "\asd.xlsm")
Set SYF = KTP.Worksheets("sayfa1") 'kopyalanacak sayfanın adı
SYF.Range("C1").Value = Me.TxtKopyalanacakAlan ' TxtKopyalanacakAlan sizin kopyalamayı istediğiniz veri
End Sub