29-07-2023, 15:31
Merhabalar. Sitemiz accesssql.com’da varolan örnekler, sorular ve cevapları sayesinde; formuma eklediğim Buton1 ile , sorgum "srg_deneme" sonuçlarını masaüstüne “ornek1.xls" adıyla excel belgesi olarak kaydedip, “ornek2.xlsm” isimli excel belgesini aynı anda açabildim. Bu işlemin amacı iki excel belgesi arasında kurduğum “bağlantılı yapıştır” verilerinin güncellenmesi. Yazdığım gibi kod işimi gördü. Ancak vba yazılımı ya da nasıl söylenir, dizimi böylemi olmalıydı?
Private Sub Komut1_Click()
Set shell_app = CreateObject("shell.application")
shell_app.Open "C:\Users\puma\Desktop\ornek2.xlsm"
Set shell_app = Nothing
DoCmd.OutputTo acQuery, "srg_deneme", "MicrosoftExcel(*.xls)", "C:\Users\puma\Desktop\ornek1.xls", True, "", 0
End Sub
bu şekildedir.

