AccessTr.neT
varolan excele veri aktarımı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: varolan excele veri aktarımı (/konu-varolan-excele-veri-aktarimi.html)

Sayfalar: 1 2

varolan excele veri aktarımı - feyyazselim - 05/04/2011

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




Cvp: varolan excele veri aktarımı - ercansahin - 05/04/2011

Bu tür bir soruya cevap alabilmeniz için örneği eklemeniz daha sağlıklı olacaktır.

Cvp: varolan excele veri aktarımı - Yandemir - 05/04/2011 

    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


Cvp: varolan excele veri aktarımı - leydies81 - 07/04/2011

örneğinizi eklerseniz üzerinde düzeltmeler yapılabilir

Cvp: varolan excele veri aktarımı - feyyazselim - 07/04/2011

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

Cvp: varolan excele veri aktarımı - Yandemir - 07/04/2011

sendeki kod ile çok zor bir üst mesajdaki kodu dene ben denedim oldu. gayette güzel çalışıyor.