Rick

Thanks for the try but @saNames crashed


>I have done this before. I can't remember for sure. Maybe @laArrayName??
>
>
>>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
>>
>>