excel Farklı Sütunlara Aktarma

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

Ö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.

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