1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64:
| using System; using System.IO; using System.Reflection; using System.Windows.Forms; using System.Collections;
. . .
Excel._Application excel = new Excel.ApplicationClass(); excel.Visible = true;
Object missing = Missing.Value; excel.Workbooks.Add(missing);
Excel.Workbook workbook = excel.ActiveWorkbook;
if ( workbook.Worksheets.Count == 0) { workbook.Worksheets.Add(missing,missing,missing, missing); }
Excel.Worksheet worksheet = (Excel.Worksheet)workbook.Worksheets[1];
worksheet.get_Range("A2", missing).Value2 = "2"; worksheet.get_Range("A3", missing).Value2 = "4"; worksheet.get_Range("A4", missing).Value2 = "8"; worksheet.get_Range("A5", missing).Value2 = "16"; worksheet.get_Range("A6", missing).Value2 = "32";
worksheet.get_Range("B2", missing).Value2 = "2"; worksheet.get_Range("B3", missing).Value2 = "4"; worksheet.get_Range("B4", missing).Value2 = "8"; worksheet.get_Range("B5", missing).Value2 = "16"; worksheet.get_Range("B6", missing).Value2 = "32";
Excel.Range yValues = (Excel.Range)worksheet.get_Range("A2","A6"); Excel.Range xValues = (Excel.Range)worksheet.get_Range("B2","B6"); Excel.Range output = (Excel.Range)worksheet.get_Range("D2","D6");
excel.Run("C:\\Programme\\Office2000\\Office\\Makro\\Analyse\\ATPVBAEN.XLA!Regress", yValues, xValues, false, false, Type.Missing, output, false, false, false, false, Type.Missing, false, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); |