تفضل استاذنا وجدت لك هذا
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tbl2", strPath & "مصروفات عمومية"
يعدل اسم الورقة والملف
واذا لم تحصل على حل شافي فلدي اقتراح انه يتم تغيير اسم الورقة من داخل اكسل قريب من هذا :
Public Sub changNm()
I = Replace(ActiveSheet.Name, "_", " ")
ActiveSheet.Name = I
End Sub