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

[Omar_Kreem]

الخبراء الكرام ..

لدى قاعدة بيانات أكسس 2003 .. واقوم بتصدير استعلام منها إلى أكسيل 2003..

المشكلة هى تحويل الأرقام والتواريخ إلى اللغة العربية.

Formatt_Ex.mdb

[Foksh]

أخي الكريم ، اتبع ما يلي لتحقيق هدفك .

 

 

ثم بالعودة إلى إكسل قم بتطبيق ما يلي لتبديل تنسيق الأرقام والتاريخ .

 

 

وهذه النتيجة 

[Omar_Kreem]

شكراً جزيلا لردك أخى الكريم Foksh

- إعدادات ويندوز عندى كما ذكرت حضرتك.

- كنت أود أن يكون الحل برمجياً .. وليس عن طريق قوائم التنسيق.

[Foksh]

11 دقائق مضت, Omar_Kreem said:

- كنت أود أن يكون الحل برمجياً .. وليس عن طريق قوائم التنسيق.

لا يوجد عندي فكرة محددة في الوقت الحالي اذا كانت الطريقة ممكن تكون برمجياً ، ولكن ان وجدت شيئاً ستجده هنا إن شاء الله .

[kanory]

13 ساعات مضت, Omar_Kreem said:

- كنت أود أن يكون الحل برمجياً .. وليس عن طريق قوائم التنسيق.

هل تريدها لجميع اوراق الاكسل ام  ورقة محددة ؟؟؟؟

[Foksh]

13 ساعات مضت, Foksh said:

لا يوجد عندي فكرة محددة في الوقت الحالي اذا كانت الطريقة ممكن تكون برمجياً ، ولكن ان وجدت شيئاً ستجده هنا إن شاء الله .

أخي الكريم قم بتجربة إضافة هذا الجزء قبل الجزء المسؤول عن الحفظ والتصدير ..

 ' تحديد نطاق الورقة بأكملها
    Dim rngSheet As Object
    Set rngSheet = objWorksheet.UsedRange ' يمكن تغيير هذا حسب احتياجاتك

    ' قم بتحديد خاصية NumberFormat لتنسيق الخانات التي تحتوي على الأرقام
    rngSheet.NumberFormat = "0"

 

[Foksh]

21 دقائق مضت, kanory said:

هل تريدها لجميع اوراق الاكسل ام  ورقة محددة ؟؟؟؟

اعتذر أخي الكريم وأستاذنا @kanory على المداخلة ، قمت بالرد وتفاجأت بردك ومتابعتك بعد التحديث 😬

[Omar_Kreem]

11 ساعات مضت, Foksh said:

أخي الكريم قم بتجربة إضافة هذا الجزء قبل الجزء المسؤول عن الحفظ والتصدير ..

 ' تحديد نطاق الورقة بأكملها
    Dim rngSheet As Object
    Set rngSheet = objWorksheet.UsedRange ' يمكن تغيير هذا حسب احتياجاتك

    ' قم بتحديد خاصية NumberFormat لتنسيق الخانات التي تحتوي على الأرقام
    rngSheet.NumberFormat = "0"

 

أخى الكريم ..

- يعطى خطأ (Object required (Error 424)).

- وأعتقد هذا الكود لتنسيق الرقم وليس تعريبه، كما أنه سيحول التواريخ إلى سلسلة رقمية.

 

 

 

************************************

 

11 ساعات مضت, kanory said:

هل تريدها لجميع اوراق الاكسل ام  ورقة محددة ؟؟؟؟

أستاذنا الفاضل .. أريدها لجميع أوراق الاكسل.

تم تعديل يناير 24, 2024 بواسطه Omar_Kreem
فصل الردود

[kanory]

15 دقائق مضت, Omar_Kreem said:

أستاذنا الفاضل .. أريدها لجميع أوراق الاكسل.

طيب اضف هذا السطر في فانك الفورمات لديك <<<<>>>>>>>

.usedRange.ReadingOrder = -5004

 

[Omar_Kreem]

نعم أستاذى الكريم تم تعديل الأرقام إلى اللغة العربية ....

وتم اضافة ..

        

    .usedRange.Columns(4).NumberFormat = "yyyy/mm/dd"

لتعديل اتجاه التاريخ الى اليمين..

جزيل الشكر لحضرتك

تم تعديل يناير 24, 2024 بواسطه Omar_Kreem