Excel'e Aktarma - Baskı Önizleme

Excel'e Aktarma - 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ığı: Excel'e Aktarma (/konu-excel-e-aktarma.html)

Sayfalar: 1 2

Excel'e Aktarma - ertuğrul2022 - 23/06/2022

Filtrelediğim listeyi Excel'e nasıl atarım acaba bu konuda yardımcı olur musunuz.

RE: Excel'e Aktarma - berduş - 23/06/2022

en pratik yöntem filtreli sorguyu aşağıdaki komut ile excele aktarmaktır ama sizin çalışmanızda filtreli sorgu kullanılmadığı için sorun çıkabilir

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Filtreli Sorgu Adı", "D:\Desktop\ExcelAdı.xls", True

RE: Excel'e Aktarma - ertuğrul2022 - 23/06/2022

(23/06/2022, 19:12)berduş yazdı: en pratik yöntem filtreli sorguyu aşağıdaki komut ile excele aktarmaktır ama sizin çalışmanızda filtreli sorgu kullanılmadığı için sorun çıkabilir
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Filtreli Sorgu Adı", "D:\Desktop\ExcelAdı.xls", True

hocam boş olanlar, süresi dolanlar, süresi olanları filtreleyip gösteriyorum. acaba filtrelemede mi hatam var.

RE: Excel'e Aktarma - berduş - 23/06/2022

Önceki mesajımda da belirttiği gibi çalışmanızda filtreli sorgu kullanılmıyor o nedenle önce filtreli sorgu oluşturmalısınız

RE: Excel'e Aktarma - ertuğrul2022 - 23/06/2022

(23/06/2022, 20:58)berduş yazdı: Önceki mesajımda da belirttiği gibi çalışmanızda filtreli sorgu kullanılmıyor o nedenle önce filtreli sorgu oluşturmalısınız

Hocam kusura bakmayın ama filtreli sorgu nasil oluyor acaba

RE: Excel'e Aktarma - berduş - 24/06/2022

1 - ana forma aşağıdaki yordamı ekleyin
bu yordam altformun kullandığı sorgu ve uygulanan filtreye uygun geçici bir sorgu oluşturur

Sub SilYap()

On Error Resume Next

FiltreAfrm = ""

SQLAfrm = Me.Ana_sayfa_Sorgu.Form.RecordSource ' altformun veri kaynağı

FiltreAfrm = Me.Ana_sayfa_Sorgu.Form.Filter ' altformun filtresi

If Len(FiltreAfrm & "") > 0 Then FiltreAfrm = " WHERE " & FiltreAfrm

strSQL = "Select * From " & SQLAfrm & FiltreAfrm ' oluşturulacak geçici sorgunun kaynağı



DoCmd.DeleteObject acQuery, "qryTemp" 'geçici sorgu varsa siler

Set qryDEF = CurrentDb.CreateQueryDef("qryTemp", strSQL)' 'geçici sorgu oluşturur

'CurrentDb.QueryDefs.Refresh



End Sub

2 - excele aktar düğmesinin kodu

Private Sub Komut32_Click()

SilYap 'geçici sorgu silip oluşturma yordamını çağırır

DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLSX, , True'excele yollar



On Error Resume Next

DoCmd.DeleteObject acQuery, "qryTemp"

End Sub