Forum

&OnClient
Procedure LoadGoods(command) //button event
   Items = getItemsTable();
   FromXLSGOODS(Items); //code of this server fucntion i think you can write selfdepended
EndProcedure

&Onclient
function getItemsTable() 
   Separator = "/";
   ExcelObject = new COMObject("Excel.Application");
   ExcelObject.Visible = False;
   WorkBook = ExcelObject.Workbooks.Open(xlsFile);//file name
   TCells = WorkBook.ActiveSheet.Cells;
   VT = New ValueList;
   StringC = 2;
   VT.Clear();
   While Not EmptyString(TCells .Cells(StringC ,3).Value) do
      tablestring= New structure(("ItemCode,ItemDescr");//add another wich you need
      tablestring.ItemCode= TCells .Cells(StringC ,3).Value ;//
      tablestring.ItemDescr=  TCells .Cells(StringC ,4).Value;//
      VT.Add(tablestring);
      StringC = StringC + 1;
   EndDo;
   WorkBook.Close();
   ExcelObject.Quit();
    TablStc = New Structure;
    TablStc.Insert("VvalueTable",VT);
   TAddres= LoadToTemporaryStore(TablStc,ThisForm.UniqueIdentifier);//sorry i don't know English version of this function
   Return TAddres;
EndFunction

&AtClient 
Procedure LoadGoods(Command) //button event 
    Address = GetItemsTable(); 
    // handle the data 
EndProcedure 

&AtClient 
Function GetItemsTable() 
    xlCellTypeLastCell = 11; // VBA constant 

    CodeColumnNumber = 3; 
    DescriptionColumnNumber = 4; 
    RowNumber = 2; // first row with data 

    ExcelObject = New COMObject("Excel.Application"); 
    ExcelObject.Visible = False; 
    WorkBook = ExcelObject.Workbooks.Open(XlsFile); //file name 
    TCells = WorkBook.ActiveSheet.Cells; 

    VT = New ValueList; 
    LastRowNumber = WorkBook.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row; 
    VT.Clear(); 
    While RowNumber <= LastRowNumber Do 
        Row = New Structure("ItemCode,ItemDescr"); //add another wich you need 
        Row.ItemCode = TCells.Cells(RowNumber, CodeColumnNumber).Value; 
        Row.ItemDescr = TCells.Cells(RowNumber, DescriptionColumnNumber).Value; 
        VT.Add(Row); 
        RowNumber = RowNumber + 1; 
    EndDo; 
    WorkBook.Close(); 
    ExcelObject.Quit(); 
    TablStc = New Structure; 
    TablStc.Insert("ValueTable", VT); 
    TAddres = PutToTempStorage(TablStc, ThisForm.UUID); 
    Return TAddres; 
EndFunction