Skip to main content

AccessTr.neT


excele aktarımda sorgu değeri değişkenden alınabilirmi

excele aktarımda sorgu değeri değişkenden alınabilirmi

Çözüldü #1
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
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
konu güncel
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #3
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
Hayatta listbox kullanmam..
Cevapla
Çözüldü #4
teşekkürler
komu çözülmüştür
aydın3838, 20-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da