ثامر أبو بلقيس
26-03-2015, 01:39 AM
السلام عليكم ورحمة الله وبركاته
اليوم لديك مشروع ما , هذا المشروع مقترن بورقة ايكسل
كأن يكون مثلا كتابة بيانات في عناصر الاوتوبلاي لتنقل هذه البيانات
للايكسل
نأخذ مثالا مبسطا
لدينا أنبوت بحيث لما نكتب اسم الطالب فيه باللغة العربية
ينقل هذا الاثر الكتابي مباشرة لورقة الايكسل و ليكن في الخلية a1 على سبيل المثال
--------
افتح مشروعا جديدا
نضع فيه انبوت1 وليكن Input1
نؤشر أو نعلم أو نحدد الإضافة LuaCom
نضع زر فيه نزرع الكود
local sFilePath = _DesktopFolder.."\\belkiss.xls"
if sFilePath then
File.Delete(sFilePath, false, false, false);
local Excel=luacom.CreateObject("Excel.Application")
local wBook=luacom.CreateObject("Excel.Document")
Excel.Visible = true;
local wBook=Excel.Workbooks:Add()
wBook.Application.DisplayAlerts = False
local wSheet = wBook.Worksheets(1)
wSheet:Activate()
wSheet:Activate()
v = Input.GetText("Input1");
d=""
for t=1,String.Length(v)do
result = String.Asc(String.Mid(v, t, t));
d=d.."CHAR("..result..")&"
end
wSheet.Cells(1,1).Formula= "="..String.Mid(d, 1, String.Length(d)-1)
wBook:SaveAs(sFilePath)
end
باعتبار أني أعمل على الاوفيس 2003 لذلك لعلك لاحظت اللاحقة xls تعامل مع اللاحقة حسب الاصدرات الملائمة
لديك
الان لنكتب في الانبوت أثر عربي أو مدمج بالارقام أو بلغة أخرى
ترى هل انتقل هذا المحتوى الى ورقة الايكسل؟
نلتقي بود :abc_138:
اليوم لديك مشروع ما , هذا المشروع مقترن بورقة ايكسل
كأن يكون مثلا كتابة بيانات في عناصر الاوتوبلاي لتنقل هذه البيانات
للايكسل
نأخذ مثالا مبسطا
لدينا أنبوت بحيث لما نكتب اسم الطالب فيه باللغة العربية
ينقل هذا الاثر الكتابي مباشرة لورقة الايكسل و ليكن في الخلية a1 على سبيل المثال
--------
افتح مشروعا جديدا
نضع فيه انبوت1 وليكن Input1
نؤشر أو نعلم أو نحدد الإضافة LuaCom
نضع زر فيه نزرع الكود
local sFilePath = _DesktopFolder.."\\belkiss.xls"
if sFilePath then
File.Delete(sFilePath, false, false, false);
local Excel=luacom.CreateObject("Excel.Application")
local wBook=luacom.CreateObject("Excel.Document")
Excel.Visible = true;
local wBook=Excel.Workbooks:Add()
wBook.Application.DisplayAlerts = False
local wSheet = wBook.Worksheets(1)
wSheet:Activate()
wSheet:Activate()
v = Input.GetText("Input1");
d=""
for t=1,String.Length(v)do
result = String.Asc(String.Mid(v, t, t));
d=d.."CHAR("..result..")&"
end
wSheet.Cells(1,1).Formula= "="..String.Mid(d, 1, String.Length(d)-1)
wBook:SaveAs(sFilePath)
end
باعتبار أني أعمل على الاوفيس 2003 لذلك لعلك لاحظت اللاحقة xls تعامل مع اللاحقة حسب الاصدرات الملائمة
لديك
الان لنكتب في الانبوت أثر عربي أو مدمج بالارقام أو بلغة أخرى
ترى هل انتقل هذا المحتوى الى ورقة الايكسل؟
نلتقي بود :abc_138: