إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

الايكسل و الاوتوبلاي

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

  • الايكسل و الاوتوبلاي

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

    ملاحظة : مصنف الايكسل من الافيد أن يكون بـ 2003 لأن الاصدارات الأخرى تتعامل معه و العكس غير صحيح
    مصنف الايكسل يكون خال من وحدات الماكرو أو الاضافات البرمجية لتفادي الرسائل التي تعيق المزاوجة بين البرنامجين

  • #2
    عظيمة جدا هذه الفكرة ........ فهي ستوفر العناء على كل تساؤول من باب انها ستجمع بحول الله معظم التساؤلات .......شكرا على الطرح استاذ ثامر


    -------------------------------------
    بداية : عندي مجموعة ملفات اكسل كلها تحتوي على جدول بعمودين .......... كل جدول يمثل مجال معين ( حيوانات . ارقام . اعضاء الجسم ....... ) فيه كلمات و ترجمتها الى لغة اخرى كالفرنسية او الانجليزية

    السؤال : كيف استدعي كل القيم من كل ملفات الاكسل هاته في كائن grid واحد .......؟
    الفكرة من مشروع تصميم قاموس مبسط

    تحياتي و شكرا

    تعليق


    • #3
      تقول أخي عندك ملفات ايكسل لجداول
      -----
      عوض أن يكون هناك ملفات جيد لو يوضع كل ملف ايكسل أي جداوله في ورقة عمل بمعنى عوض يكون عندي 10 ملفات ايكسل
      رايح بكون ملف واحد مقسم لأوراق عمل بعدها سهل استدعاء أي ورقة لعنصر grid

      علما أن فكرة القاموس تنجز بقواعد البيانات SQL أفضل بكثير و أسرع

      تعليق


      • #4
        المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
        تقول أخي عندك ملفات ايكسل لجداول
        -----
        عوض أن يكون هناك ملفات جيد لو يوضع كل ملف ايكسل أي جداوله في ورقة عمل بمعنى عوض يكون عندي 10 ملفات ايكسل
        رايح بكون ملف واحد مقسم لأوراق عمل بعدها سهل استدعاء أي ورقة لعنصر grid

        علما أن فكرة القاموس تنجز بقواعد البيانات SQL أفضل بكثير و أسرع
        شكرا سيدي على الاجابة ....... يعني في الشطر الاول ..... كيف استدعي كل عناصر الجداول الى grid دفعة واحدة ......يعني يجمعهم كلهم في جدول واحد

        اما مسالة SQL فانا لم اتعامل معها قط ابدا و بالتالي ساحاول التركيز عليها الان.

        .............
        سؤال اخر : هل هناك مرجعيات او ملفات مفتوحة حول luacom و خصوصا فيما تعلق بالوورد

        تعليق


        • #5
          السلام عليكم ورحمة الله وبركاته
          سؤال اخر : هل هناك مرجعيات او ملفات مفتوحة حول luacom و خصوصا فيما تعلق بالوورد
          جيد جرب الآتـــي :

          01 - عند التعامل مع luacom لا يمكن أن يكون اسم المشروع بالعربي و أقصد WINDOW TITEL
          02 - المشروع لا يوضع في مسارات عربي
          ------------------------------------------------------------------------------------------------------------------------

          قم بتفعيل luacom

          ضمن مشروعك مثلا عنصر RichText و ليكن RichText1

          أكتب فيه بالعربي أو يغير اللغة و استعمل الألوان و نوع في حجم الخط إن شئت

          الا ن في زر التنفيذ ازرع :
          كود PHP:
          DLL.CallFunction("user32.dll""LoadKeyboardLayoutA""\"00000401\", 1"DLL_RETURN_TYPE_LONGDLL_CALL_STDCALL
          RichText.SetSelection("RichText1"1, -1);
          D=RichText.Copy("RichText1");
          local word luacom.CreateObject("Word.Application")
          local book word.documents:Add()
          word.Visible true
          local section 
          book.Sections(1)
          local headers section.Headers
          local header 
          headers:Item(1)
          word.Selection:PasteSpecial();
          book:SaveAs("C:\\THAMEUR.doc")
          paras book.Paragraphs:Add()
          range paras.Range
          range
          :InsertParagraph()
          book:Close()
          word:Quit() 

          بعد تنفيذ المشروع تفقد القرص C دون نسيان المسؤولية للوينداوز الارقى من الــ XP

          أضن هكذا تم تحقيق تصدير المدخلات لملف وووورد دون فتح الوووورد موفق

          تعليق


          • #6
            المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
            السلام عليكم ورحمة الله وبركاته


            جيد جرب الآتـــي :

            01 - عند التعامل مع luacom لا يمكن أن يكون اسم المشروع بالعربي و أقصد WINDOW TITEL
            02 - المشروع لا يوضع في مسارات عربي
            ------------------------------------------------------------------------------------------------------------------------

            قم بتفعيل luacom

            ضمن مشروعك مثلا عنصر RichText و ليكن RichText1

            أكتب فيه بالعربي أو يغير اللغة و استعمل الألوان و نوع في حجم الخط إن شئت

            الا ن في زر التنفيذ ازرع :
            كود PHP:
            DLL.CallFunction("user32.dll""LoadKeyboardLayoutA""\"00000401\", 1"DLL_RETURN_TYPE_LONGDLL_CALL_STDCALL
            RichText.SetSelection("RichText1"1, -1);
            D=RichText.Copy("RichText1");
            local word luacom.CreateObject("Word.Application")
            local book word.documents:Add()
            word.Visible true
            local section 
            book.Sections(1)
            local headers section.Headers
            local header 
            headers:Item(1)
            word.Selection:PasteSpecial();
            book:SaveAs("C:\\THAMEUR.doc")
            paras book.Paragraphs:Add()
            range paras.Range
            range
            :InsertParagraph()
            book:Close()
            word:Quit() 

            بعد تنفيذ المشروع تفقد القرص C دون نسيان المسؤولية للوينداوز الارقى من الــ XP

            أضن هكذا تم تحقيق تصدير المدخلات لملف وووورد دون فتح الوووورد موفق



            جميل جدا ............ هذا ممتع جدا ........... ارجو ان تكرمت و كان هناك متسعا من الوقت و الفراغ .......موضوع او روابط للتعامل مع هذه الدالة .......

            تعليق


            • #7
              في ملفات اكسل CSv توجد ورقة عمل واحدة
              لكن في حال استدعاء بيانات ملف اكسل xls لا تظهر البيانات بل فقط مربعات و رموز في الخانة الاولى

              استعملت دالة الاستدعاء العادية

              كود PHP:
               Grid.LoadFromFile 
              فكيف الحال ؟؟؟ هل يجب ان احفظ العمل بتوسعة CSV

              تعليق


              • #8
                قبل الاجابة عن تساؤلك الأخير ... عد إلى سؤالك بخصوص الوووورد

                و حاول رفع ملفا مفتوحا
                ---------------------------------------------------------
                سؤال : حاول تمرير صورة إلى ملف الووورد السابق مع النص بحيث تكون الصورة بالضبط في رأس الصفحة
                أي في صفحة الووورد

                ----------------------------------------------------

                تعليق


                • #9
                  المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
                  قبل الاجابة عن تساؤلك الأخير ... عد إلى سؤالك بخصوص الوووورد

                  و حاول رفع ملفا مفتوحا
                  ---------------------------------------------------------
                  سؤال : حاول تمرير صورة إلى ملف الووورد السابق مع النص بحيث تكون الصورة بالضبط في رأس الصفحة
                  أي في صفحة الووورد

                  ----------------------------------------------------
                  ---------------------------------------------------------------------------------
                  بسم الله الرحمن الرحيم

                  السلام عليكم ورحمة الله وبركاته
                  بارك الله فيك استاذنا الكريم على هذا الموضوع الجيد والمفيد
                  قد تم التطبيق الكود بنجاح
                  وهذا الملف المفتوح في المرفقات
                  لكن تمرير صورة للملف لم اعرف كيف ؟
                  موفق بإذن الله ... لك مني أجمل تحية .
                  الملفات المرفقة

                  تعليق


                  • #10
                    السلام عليكم ورحمة الله وبركاته
                    بارك الله فيك أخي ياسر
                    سألت عن إضافة صورة بالقصد لأنه لو كان فقط نريد كتابة النص في مستند كاف
                    كود PHP:
                    RichText.SaveToFile("RichText1""C:\\MyFile.rtf"); 
                    لينقل المحتوى النصي لمستند ممكن طباعته لذلك طرحت إضافة الصورة و خاصة أن الأخ المحترف
                    سأل مرة كيف أضيف صورة لعنصر RichText فقلت لعله مناسب تجربة الكود التالي
                    بعد وضع صورة في المسار AutoPlay\\Docs\\0.png

                    وتجربة :
                    كود PHP:
                    DLL.CallFunction("user32.dll""LoadKeyboardLayoutA""\"00000401\", 1"DLL_RETURN_TYPE_LONGDLL_CALL_STDCALL)  
                    RichText.SetSelection("RichText1"1, -1); 
                    D=RichText.Copy("RichText1"); 
                    local word luacom.CreateObject("Word.Application"
                    local book word.documents:Add() 
                    word.Visible true 
                    local section 
                    book.Sections(1
                    local headers section.Headers 
                    local header 
                    headers:Item(1
                    word.Selection:PasteSpecial(); 
                    book:SaveAs("C:\\THAMEUR.doc"
                    book.InlineShapes:AddPicture(_SourceFolder.."\\AutoPlay\\Docs\\0.png"01);
                    paras book.Paragraphs:Add() 
                    range paras.Range 
                    range
                    :InsertParagraph() 
                    book:Close() 
                    word:Quit() 
                    في ملفك المرسل شكرا

                    تعليق


                    • #11
                      مع ملاحظة السطر 6
                      فعند تغيير true بـ false
                      لن نشاهد عملية النسخ و اللصق

                      تعليق


                      • #12
                        المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
                        قبل الاجابة عن تساؤلك الأخير ... عد إلى سؤالك بخصوص الوووورد

                        و حاول رفع ملفا مفتوحا
                        ---------------------------------------------------------
                        سؤال : حاول تمرير صورة إلى ملف الووورد السابق مع النص بحيث تكون الصورة بالضبط في رأس الصفحة
                        أي في صفحة الووورد

                        ----------------------------------------------------

                        بعد بحث حول هذه الدالة و علاقتها بالصورة

                        تمكنت بعون الله من ادماج الصورة في الكود ليصبح الملف كالتالي:
                        من هنـــــا

                        شكرا على التحفيز

                        ارجو كود يدرج جدولا موجودا في المشروع grid داخل ملف الوورد

                        تعليق


                        • #13
                          المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
                          السلام عليكم ورحمة الله وبركاته
                          بارك الله فيك أخي ياسر
                          سألت عن إضافة صورة بالقصد لأنه لو كان فقط نريد كتابة النص في مستند كاف
                          كود PHP:
                          richtext.savetofile("richtext1""c:\\myfile.rtf"); 
                          لينقل المحتوى النصي لمستند ممكن طباعته لذلك طرحت إضافة الصورة و خاصة أن الأخ المحترف
                          سأل مرة كيف أضيف صورة لعنصر richtext فقلت لعله مناسب تجربة الكود التالي
                          بعد وضع صورة في المسار autoplay\\docs\\0.png

                          وتجربة :
                          كود PHP:
                          dll.callfunction("user32.dll""loadkeyboardlayouta""\"00000401\", 1"dll_return_type_longdll_call_stdcall)  
                          richtext.setselection("richtext1"1, -1); 
                          d=richtext.copy("richtext1"); 
                          local word luacom.createobject("word.application"
                          local book word.documents:add() 
                          word.visible true 
                          local section 
                          book.sections(1
                          local headers section.headers 
                          local header 
                          headers:item(1
                          word.selection:pastespecial(); 
                          book:saveas("c:\\thameur.doc"
                          book.inlineshapes:addpicture(_sourcefolder.."\\autoplay\\docs\\0.png"01);
                          paras book.paragraphs:add() 
                          range paras.range 
                          range
                          :insertparagraph() 
                          book:close() 
                          word:quit() 
                          في ملفك المرسل شكرا

                          السلام عليكم
                          قرات المشاركة هذه متاخرا .............. لذلك ساعيد المحاولة الاخيرة من جديد ............معذرة

                          تعليق


                          • #14
                            بالعكس محاولتك أجمل فقط احذف هذا السطر
                            range.Style = ("Normal")

                            تعليق


                            • #15
                              المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
                              بالعكس محاولتك أجمل فقط احذف هذا السطر
                              range.Style = ("Normal")
                              الحمد لله .............. هل الامر فعال مع ملفات الاكسل
                              اعني فقط اغير

                              local word = luacom.createobject("Excel.application")

                              تعليق

                              مواضيع تهمك

                              تقليص

                              المنتدى: القسم العام نشرت بواسطة: ماريا عبد الله الوقت: 06-08-2025 الساعة 11:33 PM
                              المنتدى: القسم العام نشرت بواسطة: ماريا عبد الله الوقت: 06-04-2025 الساعة 05:29 PM
                              المنتدى: القسم العام نشرت بواسطة: ماريا عبد الله الوقت: 05-31-2025 الساعة 10:07 PM
                              المنتدى: القسم العام نشرت بواسطة: ماريا عبد الله الوقت: 05-30-2025 الساعة 11:48 PM
                              المنتدى: التصنيع والانتاج نشرت بواسطة: HaMooooDi الوقت: 05-30-2025 الساعة 09:36 AM
                              يعمل...
                              X