list to excel

[michkadol]

با سلام
در نمونه زیر
2 تا سوال:
1-با چه دستوری میتوان اطلاعاتی که در لیست نمایش میشود را به اکسل اکسپورت کرد؟
2- با چه دستوری میتوان فقط اطلاعاتی که در لیست (multi select)انتخاب میشوند را به اکسل اکسپورت کرد؟

[michkadol]

با سلام
اساتید جوابی نداشتین واسه سوال ما؟

[Abbas Amiri]

برای مورد اول یک باتن ایجاد ودرروال کلیک آن بنویسید


Private Sub cmdExport_Click()
Dim tmpQuery As QueryDef
Set tmpQuery = CurrentDb.CreateQueryDef("QueryTemp", List2.RowSource)
DoCmd.TransferSpreadsheet acExport, , "QueryTemp", "F:\myfile.xlsx"
CurrentDb.QueryDefs.Delete "QueryTemp"
Set tmpQuery = Nothing
End Sub



برای سوال دوم کمی کار میبرد ولی راه دارد.

[salambeshoma]

با سلام خدمت استاد امیری این کار را می شود برای ارسال به word هم انجام داد ، اگر می شود کدش را بنویسید . باتشکر

[Abbas Amiri]

از لینک زیر کمک بگیرید
http://www.devhut.net/2012/04/23/ms-access-vba-export-records-to-ms-word/

[michkadol]

برای سوال دوم کمی کار میبرد ولی راه دارد.

با سلام
اقا دمت گرم
اولی اکی شد
عالی بود فقط اگه وقت داشتی دومی رو هم کمکم کنی ممنونت میشم
قربون تو

[abolfazl.r]

سلام.
خدا قوت
چطور میشه یک سری اطلاعات تکراری در ستون اول یک شیت رو به هم جمع زد و در شیت دیگه هر آیتم فقط یک بار به همراه جمع ردیفهای مشابه نمایش داده بشه
به طور مثال در شیت اول اطلاعات زیر هست
1 aaaa 2 5 7
4 aaaa 1 9 6
5 bbbb 3 8 5
1 bbbb 2 3 9
5 aaaa 2 4 6