تعديل اسم شيت الاكسل المصدر من اكسس

[Elsayed Bn Gemy]

السلام عليكم ورحمة الله تعالى وبركاته

اخوانى الكرام دمتم سالمين

حتى لا اطيل عليكم

اقوم بتصدير بعض البيانات من اكسس الى اكسل ولكن واجهتنى مشكلة وهو اسم ورقة الاكسل

المفترض ان يكون اسمها      مصروفات عمومية     ولكن بعد التصدير  اجد اسمها      مصروفات_عمومية

يضيف علامة _  بعد كل كلمة   هل هناك حل لذلك   الكود المستخدم هو

 DoCmd.TransferSpreadsheet acExport, , "Query1", FilPath, True, "مصروفات عمومية"

وشكرا لكم جميعا

[wael_rafat]

اهلا باستاذنا الغالي

جرب كده

DoCmd.OutputTo acOutputTable, "Query1", "ExcelWorkbook(*.xlsx)", "ãÕÑæÝÇÊ ÚãæãíÉ.xlsx", True, "", , acExportQualityPrint

مصروفات عمومية.xlsx

[ابوخليل]

السلام عليكم

هذا يعمل عندي ولا يضيف علامة :

DoCmd.TransferSpreadsheet acExport, 5, "tbl2", FilPath & "مصروفات عمومية", True, ""

 

[Elsayed Bn Gemy]

5 ساعات مضت, wael_rafat said:

اهلا باستاذنا الغالي

جرب كده

DoCmd.OutputTo acOutputTable, "Query1", "ExcelWorkbook(*.xlsx)", "ãÕÑæÝÇÊ ÚãæãíÉ.xlsx", True, "", , acExportQualityPrint

مصروفات عمومية.xlsx

شكرا لك اخى الكريم   الكود يخبرنى برسالة عدم دعم الاستعلام

توضيح اخى جعفر   انا اريد تعديل اسم ورقة العمل الداخلية وليس اسم الملف عامة

زى كدا

4 ساعات مضت, ابوخليل said:

السلام عليكم

هذا يعمل عندي ولا يضيف علامة :

DoCmd.TransferSpreadsheet acExport, 5, "tbl2", FilPath & "مصروفات عمومية", True, ""

 

 

[kanory]

أخي عصام استخدم هذا الكود

DoCmd.OutputTo acOutputReport, "كشف متابعة الطلاب", "MicrosoftExcelBiff8(*.xlsx)", "", True, ".xlsx", , acExportQualityPrint

 

[ابوخليل]

تفضل استاذنا  وجدت لك هذا

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tbl2", strPath & "مصروفات عمومية"

يعدل اسم الورقة والملف

واذا لم تحصل على حل شافي فلدي اقتراح انه يتم  تغيير اسم الورقة من داخل اكسل  قريب من هذا :

Public Sub changNm()
I = Replace(ActiveSheet.Name, "_", " ")
ActiveSheet.Name = I
End Sub