AccessTr.neT

Tam Versiyon: excele aktarımda sorgu değeri değişkenden alınabilirmi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
selam
aktarma konusunda bir kaç sorum olacak

altaki kod ile tabloda mevcut verileri excelle aktarmakta

1-istediğim ise bunu bir vb ortamında değişken deki sorgudan alması
nedeni istenmeyen alanların gözükmesini engellemek
2-yukarıdaki olayı diğer dosya formatlarındada örneğin (excel,word,pdf,txt) gibi diğer dosya türlerinede aktarmak isterim
3-sorgu vs aktarımında başlık kullanabilirmiyiz
örneğin firma logosu adresi vs gibi

yardımcı olacak arkadaşlara şimdiden teşekkürler


Vba Kodu
DoCmd.OutputTo acTable, "tabloadi", "MicrosoftExcel(*.xls)", "", False, "", 0
konu güncel
Selamlar. Bu zannediyorun istediğiniz

Function sendExcelL()
Dim Sql As String
Dim vtcon As Object
Dim vtrst As Object

Set vtcon = Application.CurrentProject.Connection:
Set vtrst = CreateObject("ADODB.Recordset"):
vtrst.CursorLocation = adUseClient:
Sql = "select alan1 as benimverdiğimisim1,alan2 as benimverdiğimisim2 from table where ...."
vtrst.Open SQL, vtcon, adOpenStatic, adLockBatchOptimistic
DoCmd.OutputTo acOutputQuery, SQL, "MicrosoftExcel(*.xls)", "", False, "", 0
Set vtcon = Nothing
Set vtrst = Nothing
End Function
teşekkürler
komu çözülmüştür