LOCAL xlApp As Excel.Application DIMENSION x(2) x(1) = "1" x(2) = "2" xlApp = CreateObject("Excel.Application") xlWb = xlApp.Workbooks.Add xlWs = xlWb.Worksheets("Sheet1") xlApp.Visible = .T. xlApp.UserControl = .T. =COMARRAY(xlApp, 1) =COMARRAY(xlWs, 1) xlWs.Cells(2, 1).Resize(2, 1).Value = x