نمونه ضمیمه رو بررسی کن ببین همون چیزیه که مد نظرته
در نمونه فوق برای فیلتر کردن اطلاعات Continuous Forms سه تکست باکس جستجو قرار داده ام که شما میتونی در هر کدوم به تنهائی یا باهم بصورت ترکیبی حرف یا عبارت ستون مربوطه رو وارد کنی و دکمه ای که با آیکون فیلتر مشخصه کلیک کنی تا اطلاعات فیلتر شوند بعد اونها رو به اکسل بفرستی . درصورت عدم فیلتر هم میتونی کل اطلاعات رو یکجا به اکسل ارسال کنی
در مورد کدهای ماژول ارسال فایل اکسل عنایت داشته باش در خطی که کد xlWSh.Range("A1:D1").Select درج شده D1 را با توجه به تعداد ستونهای جدول تغییر بده . در جدول فایل نمونه چون تعداد ستونها 4 تا میباشد آخرین ستون در فایل اکسل D1 میباشد و بفرض اگر تعداد ستون های جدول شما 6 تا باشد باید F1 رو جایگزین D1 نمائید .
و اگر به فعال شدن شیت Dashboard در فایل اکسل نیاز نداری میتونید یک خط کد زیر رو از کدهای ماژول ارسال به اکسل حذف نمائید!
ApXL.Worksheets("Dashboard").Activate