تمرير أثركتابي بالعربية للايكسل

كود بلغة HTML:

        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