تصدير استعلام الى ملف اكسل

كل عام وأنت بخير

بكل بساطة غير القيمة A5 إلى A8 كما هو في محرر الأكواد:

Set xlc = xls.Range("A5")

إلى:

Set xlc = xls.Range("A8")

تحياتي: أبو محمد

شكرا اخي ابو محمد رغم اننا عملت ذلك قبل ان اكتب الموضوع ولم يضبط معي 

الا انه الان ضبط

لكن ممكن شرح مبسط لذلك لاننا معي استعلام اريد تصديرة بنفس الطريقة غير ان عدد الحقول اكثر

هل يمكن فعل ذلك وماذا يجب علي تغيره في الكود هذا وتحياتي للحميع