اذهب الي المحتوي
أوفيسنا

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


Elsayed Bn Gemy

الردود الموصى بها

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

جرب كده

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

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

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

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

زى كدا

Untitled33.png.5eeb1763e6b06fa2533feaa812f7f359.png

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

السلام عليكم

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


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

 

 

رابط هذا التعليق
شارك

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

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

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

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

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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information