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

[ثامر أبو بلقيس]

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

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

[عبد الهادي بهاب]

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


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

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

تحياتي و شكرا

[ثامر أبو بلقيس]

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

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

[عبد الهادي بهاب]

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

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

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

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

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

[ثامر أبو بلقيس]

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

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

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

قم بتفعيل luacom

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

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

الا ن في زر التنفيذ ازرع :
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_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

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

[عبد الهادي بهاب]

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


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

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

قم بتفعيل luacom

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

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

الا ن في زر التنفيذ ازرع :
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_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

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


:abc_050::abc_050::abc_050:

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

[عبد الهادي بهاب]

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

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

Grid.LoadFromFile

فكيف الحال ؟؟؟ هل يجب ان احفظ العمل بتوسعة CSV

[ثامر أبو بلقيس]

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

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

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

[ياسرهتهت]

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

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

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

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

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

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
بارك الله فيك أخي ياسر
سألت عن إضافة صورة بالقصد لأنه لو كان فقط نريد كتابة النص في مستند كاف
RichText.SaveToFile("RichText1", "C:\\MyFile.rtf");


لينقل المحتوى النصي لمستند ممكن طباعته لذلك طرحت إضافة الصورة و خاصة أن الأخ المحترف
سأل مرة كيف أضيف صورة لعنصر RichText فقلت لعله مناسب تجربة الكود التالي
بعد وضع صورة في المسار AutoPlay\\Docs\\0.png

وتجربة :
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_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", 0, 1);
paras = book.Paragraphs:Add()
range = paras.Range
range:InsertParagraph()
book:Close()
word:Quit()
في ملفك المرسل شكرا :abc_138:

[ثامر أبو بلقيس]

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

[عبد الهادي بهاب]

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

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

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

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

تمكنت بعون الله من ادماج الصورة في الكود ليصبح الملف كالتالي:
من هنـــــا (http://www.mediafire.com/download/sk8of3xpdmp4okz/Luacom+to+word.apz)

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

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

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته
بارك الله فيك أخي ياسر
سألت عن إضافة صورة بالقصد لأنه لو كان فقط نريد كتابة النص في مستند كاف
richtext.savetofile("richtext1", "c:\\myfile.rtf");


لينقل المحتوى النصي لمستند ممكن طباعته لذلك طرحت إضافة الصورة و خاصة أن الأخ المحترف
سأل مرة كيف أضيف صورة لعنصر richtext فقلت لعله مناسب تجربة الكود التالي
بعد وضع صورة في المسار autoplay\\docs\\0.png

وتجربة :
dll.callfunction("user32.dll", "loadkeyboardlayouta", "\"00000401\", 1", dll_return_type_long, dll_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", 0, 1);
paras = book.paragraphs:add()
range = paras.range
range:insertparagraph()
book:close()
word:quit()
في ملفك المرسل شكرا :abc_138:


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

[ثامر أبو بلقيس]

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

[عبد الهادي بهاب]

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

الحمد لله .............. هل الامر فعال مع ملفات الاكسل
اعني فقط اغير

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

[ثامر أبو بلقيس]

أي نعم بنفس المقاربة لكن ليس بالسهولة التي تجعلنا نقوم بإسقاطات للأكواد و ليس بتلك الصعوبة
التي نضخمها لنا إن شاء الله حوار حول هذا :abc_138:

[ثامر أبو بلقيس]

زادكم الله علما .

[محمد بن أحمد أبو حذيفة]

السلام عليكم ورحمة الله وبركاته
فكرة جيدة بارك الله فيك

[زياد مقداد]

السلام عليكم أريد عمل مشروع تخزين بيانات كرقم التسجيل و الإسم و اللقب تاريخ الولادة و و و.... في ورقة إيكسال مع إمكانية الإضافة واستدعائها في جريد

[ثامر أبو بلقيس]

شكرا لكم على المرور :abc_138:

[عبد الهادي بهاب]

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

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


السلام عليكم

عندي مشروع
فيه : اسم المدرسة ....(input1)......
اسم ااستاذ .......(input2).....
القسم .....(input3).......

وعنص grid او ليسبوكس يحتوي اسماء و تاريخ الميلاد و اسم الاب ....الخ من معلومات التلاميذ

:abc_087::abc_087::abc_087:

كيف اعمل على تصدير العمل الى اكسل بحيث تظهر في ورقة الاكسل في الاعلى المعلومات ( الدولة . الوزارة . اسم المدرسة . اسم الاستاذ . القسم )
و جدول فيه المعلومات


تجياتي

[عبد الهادي بهاب]

هل فيه امكانية تصدير الجداول من ليسبوكس او grid الى word

عتي مثلا كود يزاوج بين محتوى richtext و الصورة و ايضا جدول

[عبد الهادي بهاب]

محاولة فيما يخص استخراج عماصر grid يتكون من 12 عمود




-- create scatterplot in Excel
require('luacom')
local excel = luacom.CreateObject("Excel.Application")
excel.Visible = true
local wb = excel.Workbooks:Add()
local ws = wb.Worksheets(1)
for row=1, 12 do
ws.Cells(row,1).Value2 = Grid.GetCellText("Grid1", row, 1);
ws.Cells(row,2).Value2 = Grid.GetCellText("Grid1", row, 2);
ws.Cells(row,3).Value2 = Grid.GetCellText("Grid1", row, 3);
ws.Cells(row,4).Value2 = Grid.GetCellText("Grid1", row, 4);
ws.Cells(row,5).Value2 = Grid.GetCellText("Grid1", row, 5);
ws.Cells(row,6).Value2 = Grid.GetCellText("Grid1", row, 6);
ws.Cells(row,7).Value2 = Grid.GetCellText("Grid1", row, 7);
ws.Cells(row,8).Value2 = Grid.GetCellText("Grid1", row, 8);
ws.Cells(row,9).Value2 = Grid.GetCellText("Grid1", row,9);
ws.Cells(row,10).Value2 = Grid.GetCellText("Grid1", row, 10);
ws.Cells(row,11).Value2 = Grid.GetCellText("Grid1", row, 11);
ws.Cells(row,12).Value2 = Grid.GetCellText("Grid1", row, 12);


end

[عبد الهادي بهاب]

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

مثال


-- create scatterplot in Excel
require('luacom')
local excel = luacom.CreateObject("Excel.Application")
excel.Visible = true
local wb = excel.Workbooks:Add()
local ws = wb.Worksheets(1)


ws.Cells(1,10).Value2 = Input.GetText("Input1")
ws.Cells(2,10).Value2 = Input.GetText("Input2")
ws.Cells(3,10).Value2 = Input.GetText("Inpût3")


for row=4, 20 do
ws.Cells(row,1).Value2 = Grid.GetCellText("Grid1", row-3, 1);
ws.Cells(row,2).Value2 = Grid.GetCellText("Grid1", row-3, 2);
ws.Cells(row,3).Value2 = Grid.GetCellText("Grid1", row-3, 3);
ws.Cells(row,4).Value2 = Grid.GetCellText("Grid1", row-3, 4);
ws.Cells(row,5).Value2 = Grid.GetCellText("Grid1", row-3, 5);
ws.Cells(row,6).Value2 = Grid.GetCellText("Grid1", row-3, 6);
ws.Cells(row,7).Value2 = Grid.GetCellText("Grid1", row-3, 7);
ws.Cells(row,8).Value2 = Grid.GetCellText("Grid1", row-3, 8);
ws.Cells(row,9).Value2 = Grid.GetCellText("Grid1", row-3,9);
ws.Cells(row,10).Value2 = Grid.GetCellText("Grid1", row-3, 10);
ws.Cells(row,11).Value2 = Grid.GetCellText("Grid1", row-3, 11);
ws.Cells(row,12).Value2 = Grid.GetCellText("Grid1", row-3, 12);
end

[عبد الهادي بهاب]

تطور الكود باضافة الاولوان و اضافة خطوط الجدول و دمج الخانات و الصاق نص من richText


DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
RichText.SetSelection("RichText2", 1, -1);
D=RichText.Copy("RichText2");

require('luacom')
local excel = luacom.CreateObject("Excel.Application")
local wb = excel.Workbooks:Add()
local ws = wb.Worksheets(1)
local range = ws:Range('A1:M16')
local cell = ws.Cells(1,17)
excel.Visible = true
local rangee = ws:Range('A4:M16')
rangee.Borders.LineStyle = 1
ws:Range('A4:M16').BorderAround(1)
cell.Font.Name = 'Traditional Arabic'
range.Font.Name = 'Traditional Arabic'
cell.Font.Bold = true
cell.Font.Size = 16
range.Font.Size = 16
ws:Paste(ws:Range('A1'))
ws:Range('A1:M1'):Merge()
ws:Range('A2:M2'):Merge()
ws:Range('A3:M3'):Merge()
ws:Range('A1:M17').HorizontalAlignment = -4108
local ranget = ws:Range('A4:A16')
local ranger = ws:Range('A4:M4')
ranget.Interior.Color = 0x269900
ranger.Interior.Color = 0xf50000

local cel1 = ws.Cells(1,1)
local cel2 = ws.Cells(2,1)
local cel3 = ws.Cells(3,1)
cel1.Font.Color = 0x0000FF
cel2.Font.Color = 0x00CC33
cel3.Font.Color = 0xFF0000



for row=4, Grid.GetRowCount("Grid1")-2 do
ws.Cells(row,1).Value2 = Grid.GetCellText("Grid1", row-3, 0);
ws.Cells(row,2).Value2 = Grid.GetCellText("Grid1", row-3, 1);
ws.Cells(row,3).Value2 = Grid.GetCellText("Grid1", row-3, 2);
ws.Cells(row,4).Value2 = Grid.GetCellText("Grid1", row-3, 3);
ws.Cells(row,5).Value2 = Grid.GetCellText("Grid1", row-3, 4);
ws.Cells(row,6).Value2 = Grid.GetCellText("Grid1", row-3, 5);
ws.Cells(row,7).Value2 = Grid.GetCellText("Grid1", row-3, 6);
ws.Cells(row,8).Value2 = Grid.GetCellText("Grid1", row-3, 7);
ws.Cells(row,9).Value2 = Grid.GetCellText("Grid1", row-3, 8);
ws.Cells(row,10).Value2 = Grid.GetCellText("Grid1", row-3,9);
ws.Cells(row,11).Value2 = Grid.GetCellText("Grid1", row-3, 10);
ws.Cells(row,12).Value2 = Grid.GetCellText("Grid1", row-3, 11);
ws.Cells(row,13).Value2 = Grid.GetCellText("Grid1", row-3, 12);
end



شكل اخراج المشروع
http://cdn.top4top.co/i_06929c57741.png

[ربيع]

ارفع لنا الملف مفتوح لنستفيد :abc_152:

[عبد الهادي بهاب]

حاضر استاذ ربيع ............... المشكلة الان في ادماج الصورة في ملف اكسل باستعمال الدالةluacom

[ثامر أبو بلقيس]

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

[ربيع]

حاضر استاذ ربيع ............... المشكلة الان في ادماج الصورة في ملف اكسل باستعمال الدالةluacom

في انتظارك استاذ:abc_152:

[عبد الهادي بهاب]

في انتظارك استاذ:abc_152:

معذرة استاذ على التاخير
شغلتنا اموالنا و اهلونا ...............هذا الملف ........فيه كود لالعاء الخانات الفارغة لم يعمل بشكل صحيح ؟؟؟
كما اود ادراج صورة في ملف الاكسل

تحياتي


الملف المفتوح :
http://www.mediafire.com/download/2i66blw6yca826s/to+excel.apz

[عبد الهادي بهاب]

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

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

[ثامر أبو بلقيس]

موفق عندما تخرج من الخطـأ العام من هذا التصور حينها سأجيبك باختصار
من خلال التنسيق الشرطي لخلابيا الايكسل تستطيع أن تضع حدودا للخلايا أو تلوينها
أو غيرها على كل ليست الاضافة luacom لوحدها من تقوم بهكذا اجراءات بل توجد اضافات مساعدة

و يمكن التخلي حتى على الاضافة .... لكن الذي لا يمكن التخلي هو التصور العام للبرمجة الى حين وجود
ورقة ايكسل تصدر و تستورد لها البيانات هاهي تحياتي وتقديري :abc_138:

[عبد الهادي بهاب]

موفق عندما تخرج من الخطـأ العام من هذا التصور :abc_138:


http://i-cms.journaldunet.com/image_cms/original/1635143-se-vider-la-tete-pour-reflechir-efficacement.jpg


انفجر دماغي و لم اجد شيئا

كل ما وجدته التالي :
يمكن وضع ملف اكسل جاهز بالونه و صوره وووو ........و يكفي ان نستعدي المعطيات من grid ووضعها في خانات نحددها


طبعا لا تقل تمخض الجبل عن فار :abc_085::abc_085:

[ثامر أبو بلقيس]

يمكن وضع ملف اكسل جاهز بالونه و صوره وووو ........و يكفي ان نستعدي المعطيات من grid ووضعها في خانات نحددها

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

[عبد الهادي بهاب]

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

http://www.sherv.net/cm/emo/happy/super-excited-boy-smiley-emoticon.gif

جميل جدا .........سابدا في العمل
طبعا اعطيتني دليلا .......ساحاول البحث في هذه الجزئية
شكرا جزيلا

ارجو ان لا يخرجني ذلك عن الموضوع الاصلي

[ثامر أبو بلقيس]

جيد واصل طبعا كيف تخرج عن الموضوع الأصلي ؟؟؟
http://www.sherv.net/cm/emo/happy/super-excited-boy-smiley-emoticon.gif

موفق :abc_023:

[عبد الهادي بهاب]

كيف تخرج عن الموضوع الأصلي

قصدت الموضوع الاول .......حتى لا اغرقكم في مشكلتي

:abc_022:

[عبد الهادي بهاب]

http://dc07.arabsh.com/i/01895/aqqqeqx0e17r.jpg


اعترف بالعجز ...............لذلك استحق مساعدة

عندي ملف محضر في التجميعة 1.xls........... كيف اضع في خانات معينة عناصر grid ؟؟؟؟؟؟؟؟؟؟؟
حاولت من خلال كود luacom ......... من خلال

excel = luacom.GetObject("Excel.Application")

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

:abc_152::abc_152:

[ثامر أبو بلقيس]

حسنا أخي .... قلت
في وضع معطيات grid في اكسل موجود مسبقا

سأنجز حالا هذا التمرين و ستكون مطالب بالعكس من الايكسل إلى grid
:abc_138:

إستراحة برمجية ممتعة

[عبد الهادي بهاب]

لا luacom و لا هم يحزنزن .......جميل جدا

طبعا انا اتكلم عن اخر مساهمة
http://www.abc4web.net/vb/showthread.php?p=293339&posted=1#post293339

[ثامر أبو بلقيس]

بالتأكيد قد اطلعت على المشاركة 95 و التي تم اعدادها وفق طلبك أي من الجريد إلى الايكسل
------
الان ما الطريقة لترحيل جدول من الايكسل إلى داخل الجريد

ملاحظة : أي نعم يمكن التخلي عن luacom بملفات دل أو أكواد الإضافة ذاتها مفككة :abc_138:

[عبد الهادي بهاب]

بالتأكيد قد اطلعت على المشاركة 95 و التي تم اعدادها وفق طلبك أي من الجريد إلى الايكسل
------
الان ما الطريقة لترحيل جدول من الايكسل إلى داخل الجريد

ملاحظة : أي نعم يمكن التخلي عن luacom بملفات دل أو أكواد الإضافة ذاتها مفككة :abc_138:

الامر بسيط جدا اذا تعلق الامر باكسل بتوسعة csv


result = Grid.LoadFromFile("Grid1", "AutoPlay\\Docs\\1.csv", ";", true);

حتى ايجاد كود يتعامل مع اي اكسل
تقبل تحياتي و تشكراتي

[عبد الهادي بهاب]

بالتأكيد قد اطلعت على المشاركة 95 و التي تم اعدادها وفق طلبك أي من الجريد إلى الايكسل
------
الان ما الطريقة لترحيل جدول من الايكسل إلى داخل الجريد

ملاحظة : أي نعم يمكن التخلي عن luacom بملفات دل أو أكواد الإضافة ذاتها مفككة :abc_138:

فيها شويا luacom ...... انا الان احاول فهم الكود

[ثامر أبو بلقيس]

الايكسل بتوسعة csv ليس اكسل و لا يمكنك إجراء أي عملية .... نتعامل مع الايكسل كإيكسل
----
فكر قليلا كيف تنسخ محتوى من الايكسل الى الجريد بل سيتم الترحيل و تتحكم حتى في المنطقة أو الخلايا التي تريد
نقلها من الايكسل إلى الجريد و دائما في وضع مغلق للايكسل التجربة و البحث كفيلان لرسم الطريق الصحيح :abc_138:

[منار بربرة]

مشكور اخى الله يخليك

[عظيمه]

السلام عليكم ورحمة الله وبركاته
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
موفق بإذن الله ... لك مني أجمل تحية .

[عظيمه]

السلام عليكم ورحمة الله وبركاته
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
موفق بإذن الله ... لك مني أجمل تحية .

[خادم المسلمين]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[سليمان الثواب]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[امل الماضي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عبدالله عمر]

مشككككككككككككور

[كمال على كمال]

:abc_139::abc_139::abc_139: شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_139::abc_139::abc_139::abc_139:

[المتعملق]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[السعيد الجزائري]

بسم الله الرحمن الرحيم شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_052:

[محمد سامر]

مشكووووووووووووووووور

[رانيا حسن]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[خالد المسيلي]

الله يبارك فيك

[محمد رمضان أبو يوسف]

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

[kiaamed]

شككككرررررررررررررررررررر اااااا

[مارجوم،]

tnks m8............

[سكياط]

مهتم بالموضوع شكرا

[صالحيب]

شكرا على الشروحات المفيدة

[سمسم يو]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[جمال سات]

بارك الله فيك