Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

varolan excele veri aktarımı

feyyazselim
feyyazselim
Access Cevaplanmış Soruları
9
4433

varolan excele veri aktarımı

Çözüldü #1
feyyazselim
Üye
feyyazselim
Bul
Üye
Adı Soyadı:
Konum: Antalya
Ofis Versiyonu: Belirtilmemiş
Son Oturumu: 30/04/2013,19:06
Yorumları: 16
Konuları: 3
Kayıt Tarihi: 24/03/2011
Teşekkür Puanı: 0
Değerli forum üyeleri,
Accessten daha önceden belirlenmiş bir Excel tablosuna veri aktarmak istiyorum.arkadaşlarıngönderdiği kodlarla istediğimi yapıyorum ama formda bir değişiklik yaptığımda veya yeni kayıt eklediğimde excele sadece ilk satırı veya aktif satırı yazıyor. Birde aynı kodu aynı tablodan ama farklı sorgularda alan diğer formlara eklediğimde aynı hatayı veriyor. Formda çalışan formlar aşağdaki gibidir

Set ExcelDosyasi = CreateObject("Excel.Application")
Dim i As Integer
On Error Resume Next
DoCmd.GoToRecord , , acFirst
With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open FileName:=CurrentProject.Path & "\aktarma.xls"
For i = 1 To Me.Recordset.RecordCount

.CELLS(i + 14, 1).Value = Me.HALNO
.CELLS(i + 14, 2).Value = Me.MÜSTAHSİLADI
.CELLS(i + 14, 3).Value = Me.ÜRÜNADI
.CELLS(i + 14, 4).Value = Me.ÜRÜNCİNSİ
.CELLS(i + 14, 5).Value = Me.NETKİLO
.CELLS(i + 14, 6).Value = Me.FİYAT
.CELLS(i + 14, 7).Value = Me.TUTAR
.CELLS(i + 14, 8).Value = Me.KDVORANI
.CELLS(i + 14, 10).Value = Me.SAHTEKÜÇÜK
.CELLS(i + 14, 11).Value = Me.SAHTEBÜYÜK
DoCmd.GoToRecord , , acNext
Next

End With
Set ExcelDosyasi = Nothing


Exit_Komut88_Click:
Exit Sub

Err_Komut88_Click:
MsgBox Err.Description
Resume Exit_Komut88_Click


Cevapla
Çözüldü #2
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 50
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 01/11/2024,00:00
Yorumları: 3.764
Konuları: 69
Kayıt Tarihi: 14/11/2008
Teşekkür Puanı: 1.089
Bu tür bir soruya cevap alabilmeniz için örneği eklemeniz daha sağlıklı olacaktır.
Cevapla
Çözüldü #3
Yandemir
Only Office 2003
Yandemir
www Bul
Onursal Üye
Adı Soyadı: Mu.... Ya....
Yaşı: 52
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2003
Son Oturumu: 31/12/2024,00:16
Yorumları: 1.461
Konuları: 17
Kayıt Tarihi: 26/08/2009
Teşekkür Puanı: 487
Mesleğiniz: Yazılım 
    Set ExcelDosyasi = CreateObject("Excel.Application")
    Dim i As Integer
    On Error Resume Next
    With ExcelDosyasi
    .Application.Visible = True
    .UserControl = True
    .Workbooks.Open FileName:=CurrentProject.Path & "\aktarma.xls"
    
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(Me.RecordSource)
    i = 0
    rs.MoveFirst
    Do Until rs.EOF
        i = i + 1
        .CELLS(i + 14, 1).Value = rs!HALNO
        .CELLS(i + 14, 2).Value = rs!MÜSTAHSİLADI
        .CELLS(i + 14, 3).Value = rs!ÜRÜNADI
        .CELLS(i + 14, 4).Value = rs!ÜRÜNCİNSİ
        .CELLS(i + 14, 5).Value = rs!NETKİLO
        .CELLS(i + 14, 6).Value = rs!FİYAT
        .CELLS(i + 14, 7).Value = rs!TUTAR
        .CELLS(i + 14, 8).Value = rs!KDVORANI
        .CELLS(i + 14, 10).Value = rs!SAHTEKÜÇÜK
        .CELLS(i + 14, 11).Value = rs!SAHTEBÜYÜK
        rs.MoveNext
    Loop
    End With
    Set ExcelDosyasi = Nothing
    rs.close
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #4
leydies81
Hesap Aktif Değil
leydies81
Bul
Aktivasyon Bekleyen
Adı Soyadı:
Yaşı: 43
Konum: Eskişehir
Ofis Versiyonu: -
Son Oturumu: 17/08/2012,11:49
Yorumları: 160
Konuları: 27
Kayıt Tarihi: 12/12/2009
örneğinizi eklerseniz üzerinde düzeltmeler yapılabilir
Cevapla
Çözüldü #5
feyyazselim
Üye
feyyazselim
Bul
Üye
Adı Soyadı:
Konum: Antalya
Ofis Versiyonu: Belirtilmemiş
Son Oturumu: 30/04/2013,19:06
Yorumları: 16
Konuları: 3
Kayıt Tarihi: 24/03/2011
Teşekkür Puanı: 0
Merhaba,
Aşağıdaki kod, bir formdaki verileri alt alta dizebiliyor ancak aynı tablodan fakat başka bir sorgudan oluşturulmuş form verilerinin sadece ilkini Excel tablosuna aktarıyor. Şayet bunu çözebilirseniz akabinde isteğim : verilerden belirli bir kritere sahip olan verileri daha alt satırlardan başlatarak sıralasın bu mümkün mü? Bence select deyimi ile yapmak gerekecek ama onun nasıl kullanıoldığını bilmiyorum şimdiden teşekkürler.
Private Sub Komut48_Click()
Set ExcelDosyasi = CreateObject("Excel.Application")
Dim i As Integer
On Error Resume Next
DoCmd.GoToRecord , , acFirst
With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open FileName:=CurrentProject.Path & "\HİTİTAKTARMA.xls"
'herbir satıra aktarmak için
For i = 1 To Me.Recordset.RecordCount
.CELLS(i + 4, 1).Value = Me.HALNO
.CELLS(i + 4, 2).Value = Me.MÜSTAHSİLADI
.CELLS(i + 4, 3).Value = Me.ÜRÜNADI
.CELLS(i + 4, 4).Value = Me.ÜRÜNCİNSİ
.CELLS(i + 4, 6).Value = Me.FİYAT
.CELLS(i + 4, 10).Value = Me.SAHTEKÜÇÜK
.CELLS(i + 4, 11).Value = Me.SAHTEBÜYÜK
DoCmd.GoToRecord , , acNext
Next
End With
Set ExcelDosyasi = Nothing
Exit_Komut48_Click:
Exit Sub
Err_Komut48_Click:
MsgBox Err.Description
Resume Exit_Komut48_Click

End Sub
Cevapla
Çözüldü #6
Yandemir
Only Office 2003
Yandemir
www Bul
Onursal Üye
Adı Soyadı: Mu.... Ya....
Yaşı: 52
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2003
Son Oturumu: 31/12/2024,00:16
Yorumları: 1.461
Konuları: 17
Kayıt Tarihi: 26/08/2009
Teşekkür Puanı: 487
Mesleğiniz: Yazılım
sendeki kod ile çok zor bir üst mesajdaki kodu dene ben denedim oldu. gayette güzel çalışıyor.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
+rep Yollar biter Access bitmez. +rep
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da