Skip to main content

AccessTr.neT M.


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ı: 3)
Cevapla
#2
Öncelikle, onun adı Excel.

Referanslara Microsoft Excel X.XX Object Library referansını ekle,

butonun tıklandığında olayına 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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