+- 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ığı: Accessten Excel E (/konu-accessten-excel-e.html)
Cvp: Accessten Excel E - ferdiqq - 12/11/2019
1- hocam aynı gün içinde birden fazla butona tıklarsak aynı dosyanın uzerine yazabilir. veya saatin 12:12 gibi formatını 12.12 gibi yapıp dosya adına ilave edipte yapılabilir.
2-sorgularımın Sql lerini kopylayıp aralarına unıon koyarak birleştireceğim
3- örneğimi yükleyeceğim başka birine daha faydası olabilir gayet kolay bir yapısı var 3 5 yere değişecek sadece.
Hocam Sizden İstediğim ben bunu günlük alacağım aynı Excel kitabı üzerinde yeni sayfa şeklide DATE isminde olması... Birde buraya 3 sorguyu birleştirmek yerine toplamları excelde yukarıda kodla yaptırdım ama aşağıdaki veriler silip yenisi geldiği için hesaplayamıyor BAŞ! yazıyor hücrelerde
. , acceste toplatıp öyle atmak zorundamıyım Excel formülü yineleyemezmi..
Cvp: Accessten Excel E - berduş - 12/11/2019
Gönderdiğiniz örnekte tek sorgu var?
Cvp: Accessten Excel E - ferdiqq - 12/11/2019
hocam o sıkıntı değil with exap ile başlayan lopp la biten döngüyü 3 kere kopyalarsam veya her sorguyu ayrı ayrı koordinata yazdırırısam oluyor, veya sorguları Sql kodunu göster diyip açıp unıon koyarak aralarına birleştirme sorgusu yapıp tek sorguylada olabiliri. şuan 2 şey çözemedim
1- koordinatlı sildirme çünkü a24 ten aşağı ve solu komple siliyor,
2- her butoan basılışında date aynıysa üzerine farklıysa yeni sayfaya yapıştırsın istiyorum.
Kusura bakmayın sizleride yoruyorum açık açık yazamadım galiba
Cvp: Accessten Excel E - ozanakkaya - 12/11/2019
Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.
' REFERANSLARDAN MİCROSOFT Excel ... OBJECT LİBRARY TANIMLAMINIZ GEREKİYOR..
Dim Exapp As Excel.Application
Dim objWsh As Object
Dim rs As Recordset
Dim yol As String
Dim x As Long
Dim r As Range
Dim GTarih As String
'On Error Resume Next
Set Exapp = GetObject("", "excel.application")
If Err.Number <> 0 Then
Err.Clear
Set Exapp = CreateObject("Excel.Application")
End If
' On Error GoTo Error_Handler
'exel yol tanımlıyoruz..
yol = CurrentProject.Path & "\yeni.xlsx"
'exceli açarak yükler.. false derseni.. exceli açmadan yükler.. size kalmış
Exapp.Visible = True
Exapp.Workbooks.Open yol
GTarih = Date
For Each objWsh In Exapp.Worksheets
If objWsh.Name = GTarih Then
Exapp.Worksheets(GTarih).Delete
End If
Next
Exapp.Visible = True
Exapp.Sheets("Sayfa1").Copy Before:=Exapp.Sheets(1)
Exapp.ActiveSheet.Name = Date
'eski Excel verileri siliyoruz...
With Exapp
.Range("a24", .Range("a24").End(xlDown).End(xlDown).End(xlToRight)).Select
.Range("a24", .Range("a24").End(xlDown).End(xlDown).End(xlToRight)).Delete
.Range("a24").Select
End With
Exapp.Visible = True
'With Exapp
'Set r = Cells(5, 27)
'r.Delete
'End With
'rapor sorgusunu açılıyor...
Set rs = CurrentDb.OpenRecordset("arac_tablo_s")
x = 24
Do While Not rs.EOF
With Exapp
.Cells(x, 1) = rs("no") ' 1 A KOLONU
.Cells(x, 2) = rs("Model") '2 B KOLONUDUR
.Cells(x, 3) = rs("myili")
End With
rs.MoveNext
x = x + 1
Loop
'SORGUYU KAPATIYORUZ..
rs.Close
'İŞLEMİ BİTİRİYORUZ.. VE ÇIKIYORUZ..
'Exit Sub
'Error_Handler:
'Exapp.ActiveWorkbook.Close True
'Exapp.Workbooks.Close
'Exapp.Quit
'Set Exapp = Nothing
'Resume 0
Geçerli tarih isminde yeni sayfa oluşturur ve verileri yeni sayfaya aktarır. Aynı isimde sayfa var ise sayfayı siler ve yeni sayfa oluşturur.
Cvp: Accessten Excel E - ferdiqq - 12/11/2019
Hocam Çok Teşekkür ederim Nokta atışı yaptınız resmen istediğim tamda buydu elinize sağlık...
Cvp: Accessten Excel E - ferdiqq - 12/11/2019
Hocam kusura bakmazsanız bu konuyla ilgili bir sorum daha var, koordinatlı sildirme olsun istiyorum
a24 ten aşağısını ve sağını siliyorya hani, ayrıca örneğin c 5 ile g12 arasınıda silsin istiyorum o şekilde de çıktı olacak o da laızm olacak yardımcı olabilirmisiniz.