Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
09/12/2011 18:34
Konu Sahibi
drummers
Yorumlar
6
Okunma
4030
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy

drummers

Omur Can
Kullanici Avatari
Destek
O.... C....
408
11/05/2009
125
İzmir
Ofis 2003
13/04/2018,19:04
Çözüldü 
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

DUAYEN

Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
18/04/2018,17:46
Çözüldü 
Sn Oğulcan92 hocamın yaptıuğı örnek size yol gösterecektir.


Ek Dosyalar
.rar   Excelden Accesse Aktar.rar(Dosya Boyutu: 498,67 KB / İndirme Sayısı: 148)
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

yorum70

Aktif Üye
Kullanici Avatari
Aktif Üye*
A.... Ş....
1.184
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
Çözüldü 
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ı ?


"Her tercih, bir vazgeçiştir"

Cevapla

yorum70

Aktif Üye
Kullanici Avatari
Aktif Üye*
A.... Ş....
1.184
08/10/2010
71
Ankara
Ofis 2013 64 Bit
22/10/2016,21:00
Çözüldü 
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.


"Her tercih, bir vazgeçiştir"

Cevapla

schworse

Java Gui Uzmani
Kullanici Avatari
Onursal Üye
M.... E.... Ö....
197
8
02/11/2008
100
İzmir
Yazılım Uzmanı
Ofis 2013 64 Bit
11/02/2018,20:32
Çözüldü 
Merhaba;

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

Kod:
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
26
27
28
29
30
31
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

drummers

Omur Can
Kullanici Avatari
Destek
O.... C....
408
11/05/2009
125
İzmir
Ofis 2003
13/04/2018,19:04
Çözüldü 
Teşekkürler.


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü makro ile excele veri almak siyahhayis 4 2.503 05/06/2016, 15:48 atoz112
Çözüldü excele klasörden resim çağırma bitikhoca 2 1.229 09/05/2016, 12:36 atoz112
Çözüldü Sayfadan sayfaya veri aktarımı sitem27 5 1.013 06/03/2016, 20:55 atoz112
Çözüldü Çalışma sayfalarından ana sayfaya veri aktarımı drummers 7 2.673 10/04/2012, 15:58 DUAYEN
Çözüldü Sayfa Kopyalama ve Veri Aktarımı drummers 19 4.976 09/04/2012, 12:31 DUAYEN

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
 
 
Forum use Krzysztof "Supryk" Supryczynski addons.