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
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 |