AccessTr.neT
excele aktarımda sorgu değeri değişkenden alınabilirmi - 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ığı: excele aktarımda sorgu değeri değişkenden alınabilirmi (/konu-excele-aktarimda-sorgu-degeri-degiskenden-alinabilirmi.html)



excele aktarımda sorgu değeri değişkenden alınabilirmi - aydın3838 - 21/09/2013

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



Cvp: excele aktarımda sorgu değeri değişkenden alınabilirmi - aydın3838 - 22/09/2013

konu güncel


Cvp: excele aktarımda sorgu değeri değişkenden alınabilirmi - fatih karagöl - 24/09/2013

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


Cvp: excele aktarımda sorgu değeri değişkenden alınabilirmi - aydın3838 - 06/10/2013

teşekkürler
komu çözülmüştür