>>// .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 >> >>