excel Farklı Sütunlara Aktarma

25/01/2019, 01:58

zaferlacin

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
25/01/2019, 03:59

ozanakkaya

Ö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 = Nothing

kodu ekle.
25/01/2019, 11:54

zaferlacin

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