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.