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ı: 152)
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