عليكم السلام... بالامكان استعمال نفس الكود المذكور ولكن تستبدل الQryNam بالعبارة
Me.recordsource بدون علامات الاقتباس """
في السطر
.OutputTo acOutputQuery, "QryName", acFormatXLSX, Fname, Autostart:=False
لكي يصبح
.OutputTo acOutputQuery, me.recordsource, acFormatXLSX, Fname, Autostart:=False
مع تحياتي وابلاغي في حالة وجود خطأ