Populating Excel rows from a table one at a time can be very slow.
I came across something in .NET that speeds the process up a lot.. you can populate a range of cells from an array

Using the .NET code below, I get a spreadsheet with the names where the belong.
Using the VFP code below it, I get the word "John" in every cell.
Can anyone tell me how to get it to see the whole array?

Thanks in advance!!

// .NET Code
using System;
using Excel = Microsoft.Office.Interop.Excel;
using System.Reflection; 

using System.Collections.Generic;
using System.Linq;
using System.Windows.Forms;
using System.Text;

namespace ExcelArray
{
  class Program
  {
    



    static void Main(string[] args)
    {
      Excel.Application oXL;
      Excel._Workbook oWB;
      Excel._Worksheet oSheet;
      Excel.Range oRng;
      try
      {
        //Start Excel and get Application object.
        oXL = new Excel.Application();
        oXL.Visible = true;

        //Get a new workbook.
        oWB = (Excel._Workbook)(oXL.Workbooks.Add(Missing.Value));
        oSheet = (Excel._Worksheet)oWB.ActiveSheet;

        //Add table headers going cell by cell.
        oSheet.Cells[1, 1] = "First Name";
        oSheet.Cells[1, 2] = "Last Name";
        oSheet.Cells[1, 3] = "Full Name";
        oSheet.Cells[1, 4] = "Salary";

        //Format A1:D1 as bold, vertical alignment = center.
        oSheet.get_Range("A1", "D1").Font.Bold = true;
        oSheet.get_Range("A1", "D1").VerticalAlignment =
          Excel.XlVAlign.xlVAlignCenter;

        // Create an array to multiple values at once.
        string[,] saNames = new string[5, 2];

        saNames[0, 0] = "John";
        saNames[0, 1] = "Smith";
        saNames[1, 0] = "Tom";
        saNames[1, 1] = "Brown";
        saNames[2, 0] = "Sue";
        saNames[2, 1] = "Thomas";
        saNames[3, 0] = "Jane";
        saNames[3, 1] = "Jones";
        saNames[4, 0] = "Adam";
        saNames[4, 1] = "Johnson";

        //Fill A2:B6 with an array of values (First and Last Names).
        oSheet.get_Range("A2", "B6").Value2 = saNames;

        //Fill C2:C6 with a relative formula (=A2 & " " & B2).
        oRng = oSheet.get_Range("C2", "C6");
        oRng.Formula = "=A2 & \" \" & B2";

        //Fill D2:D6 with a formula(=RAND()*100000) and apply format.
        oRng = oSheet.get_Range("D2", "D6");
        oRng.Formula = "=RAND()*100000";
        oRng.NumberFormat = "$0.00";

        //AutoFit columns A:D.
        oRng = oSheet.get_Range("A1", "D1");
        oRng.EntireColumn.AutoFit();

        //Manipulate a variable number of columns for Quarterly Sales Data.
      //  DisplayQuarterlySales(oSheet);

        //Make sure Excel is visible and give the user control
        //of Microsoft Excel's lifetime.
        oXL.Visible = true;
        oXL.UserControl = true;
      }
      catch (Exception theException)
      {
        String errorMessage;
        errorMessage = "Error: ";
        errorMessage = String.Concat(errorMessage, theException.Message);
        errorMessage = String.Concat(errorMessage, " Line: ");
        errorMessage = String.Concat(errorMessage, theException.Source);

        MessageBox.Show(errorMessage, "Error");
      }


    }
  }
}

*-- VFP Code
CLOSE ALL
CLEAR ALL
DIMENSION saNames(5,2)
saNames[1, 1] = "John"
saNames[1, 2] = "Smith"
saNames[2, 1] = "Tom"
saNames[2, 2] = "Brown"
saNames[3, 1] = "Sue"
saNames[3, 2] = "Thomas"
saNames[4, 1] = "Jane"
saNames[4, 2] = "Jones"
saNames[5, 1] = "Adam"
saNames[5, 2] = "Johnson"
oExcel = CREATEOBJECT("Excel.Application")
oExcel.Visible = .T.
oBook =  oExcel.Workbooks.Add()
oBook.Sheets[1].Name = "Summary"

WITH oExcel.ActiveSheet
  .Range["A1"].Value = "First"
  .Range["B1"].Value = "Last"
  oRange = .Range["A2:B6"]
ENDWITH
oRange.Value2 = saNames