+- 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ığı: excel Farklı Sütunlara Aktarma (/konu-excell-farkli-sutunlara-aktarma.html)
excel Farklı Sütunlara Aktarma - zaferlacin - 25/01/2019
hocam ben butona basıp excel'e aktarmak istiyorum ama
adı excel'de sayfa1 b5 sütununa
soyadı sayfa1 e3 sütununa
kimlik sayfa2 d4 sütununa gitsin istiyorum
birde bu sütunları kare içine almak istiyorum yani sütunlara çizgi çekebiliyor muyum?
Teşekkür ederim
Cvp: excel Farklı Sütunlara Aktarma - ozanakkaya - 25/01/2019
Öncelikle, onun adı Excel.
Referanslara Microsoft Excel X.XX Object Library referansını ekle,
butonun tıklandığında olayına
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open(CurrentProject.Path & "\excel.xlsx")
xlApp.Visible = True
With xlWB.Sheets("Sayfa1")
.Range("B5") = Me.Metin1
.Range("E3") = Me.Metin2
End With
With xlWB.Sheets("Sayfa2")
.Range("D4") = Me.Metin3
End With
Set xlWB = Nothing
Set xlApp = Nothingkodu ekle.
Cvp: excel Farklı Sütunlara Aktarma - zaferlacin - 25/01/2019
hocam yazılarımda zaten Excel yazdım dosyayı yüklerken masa üstünde çift dosya olduğu için L harfini bilerek yazdım
bu arada kodlar tam istediğim şey Teşekkür ederim