Skip to main content

AccessTr.neT


Excele veri aktarımı hk.

Excele veri aktarımı hk.

Çözüldü #1
Ekteki deneme.xls dosyama tablolar.mdb dosyamdaki "data" tablosundan veri aktarmak istiyorum. deneme.xls deki butona bastığımda verilerin aktarılmasını nasıl sağlarım.


Not: Yazacağınız kodda aktarılacak sütunları ve aktarılacak olan hücre aralığını seçebilme şansım olursa çok makbule geçer.
Teşekkürler

Ek Dosyalar
 tablolar.rar(76.8 KB)

Ek Dosyalar
 deneme.xls(13 KB)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Sn Oğulcan92 hocamın yaptıuğı örnek size yol gösterecektir.
.rar Excelden Accesse Aktar.rar (Dosya Boyutu: 498,67 KB | İndirme Sayısı: 153)
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #3
Bu olayı başka bir accessten yapabilmemiz için ne yapabiliriz ? Sn.Oğulcan92'nin acceste ki tabloyu silip kendi tablomu ekledim veri alışverişi olmdı..Hata kodu var ! Nasıl yapabiliriz bu olayı ?
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #4
Konuyu hallettim, kodu değişrirdim, dataya uyarladım, güzel çalışma ama aktar denince zınk diye 4000 kayıtı aktarıyor.

İlginize Tşk.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
Çözüldü #5
Merhaba;

İlk olarak projenize bir modül ekleyin ve modüle bu kodları yapıştırın.

Kod:
Option Explicit
Dim CON As ADODB.Connection
Dim Rec As ADODB.Recordset
Dim Query As QueryTable
Dim strSQL As String
Dim RS As Object
Dim adoCN As Object
Sub SQL_Sorgusu()
   Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim Nsql As String
   Dim i As Integer
   Worksheets("Sayfa1").Select
    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open Application.ActiveWorkbook.Path & "\tablolar.mdb"
    End With
    Nsql = "SELECT * FROM data;"
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = conn
        .Open Nsql, conn, adOpenDynamic, adLockBatchOptimistic
    End With
    Range("A2:H30000").ClearContents
    For i = 0 To rst.Fields.Count - 1
    Range("A2").Offset(0, i).Value = rst.Fields(i).Name
    Next i
    Range("A2").CopyFromRecordset rst
    conn.Close
End Sub

Sonra sayfanızın Btn_Click eventine bu kodu yapıştırın.

Kod:
SQL_Sorgusu
Son olarakta Projenize Kod panelinde iken Tools menusunden Microsoft Activex Data Objets 2.8 Library references ekleyin ve sayfaya dönüp butona basın işlem olacaktır.

Not: tablolar Access ile Excel aynı dizinde olmalı bu önemli.
Kolay gelsin.

Ek Dosyalar
 Access-Excell_Schworse.rar(87.38 KB)
Cevapla
Çözüldü #6
Teşekkürler.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da