AccessTr.neT

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