Skip to main content

AccessTr.neT


excel Farklı Sütunlara Aktarma

excel Farklı Sütunlara Aktarma

Çözüldü #1
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
.rar EXCELL1.rar (Dosya Boyutu: 46,22 KB | İndirme Sayısı: 4)
Cevapla
#2
Ö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.
Cevapla
#3
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da