- 最後登錄
- 2021-7-22
- 在線時間
- 0 小時
- 註冊時間
- 2016-6-19
- 閱讀權限
- 20
- 精華
- 0
- UID
- 7653083
- 帖子
- 0
- 積分
- 0 點
- 潛水值
- 130 米
| 分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。 本帖最後由 arthurliuliu 於 2011-3-2 11:49 AM 編輯
- //開啟一個新的應用程式
- myExcel = new Microsoft.Office.Interop.Excel.Application();
- //快樂的使用Excel
- //加入新的活頁簿
- myExcel.Workbooks.Add(true);
- //停用警告訊息
- myExcel.DisplayAlerts = false;
- //讓Excel文件可見
- myExcel.Visible = true;
- //引用第一個活頁簿
- myBook = myExcel.Workbooks[1];
- //設定活頁簿焦點
- myBook.Activate();
- //引用第一個工作表
- mySheet = (_Worksheet)myBook.Worksheets[1];
- //命名工作表的名稱為 "Cells"
- mySheet.Name = "Cells";
- //設工作表焦點
- mySheet.Activate();
- //用offset寫入陣列資料
- myRange = mySheet.get_Range("A2", Type.Missing);
- myRange.get_Offset(i, j).Select();
- myRange.Value2 = "'" + myData[i, j];
- //用Cells寫入陣列資料
- myRange.get_Range(myExcel.Cells[2 + i, 1 + j], myExcel.Cells[2 + i, 1 + j]).Select();
- myExcel.Cells[2 + i, 1 + j] = "'" + myData[i, j];
- //加入新的工作表在第1張工作表之後
- myBook.Sheets.Add(Type.Missing, myBook.Worksheets[1], 1, Type.Missing);
- //引用第2個工作表
- mySheet = (_Worksheet)myBook.Worksheets[2];
- //命名工作表的名稱為 "Array"
- mySheet.Name = "Array";//加入新的工作表在第1張工作表之後
- myBook.Sheets.Add(Type.Missing, myBook.Worksheets[1], 1, Type.Missing);
- //引用第2個工作表
- mySheet = (_Worksheet)myBook.Worksheets[2];
- //命名工作表的名稱為 "Array"
- mySheet.Name = "Array";
- //寫入報表名稱
- myExcel.Cells[1, 4] = "普通報表";
- //設定範圍
- myRange=(Range)mySheet.get_Range(myExcel.Cells[2, 1], myExcel.Cells[UpBound1 + 1, UpBound2 + 1]);
- myRange.Select();
- //用陣列一次寫入資料
- myRange.Value2 = "'" + myData;
- //設定儲存路徑
- string PathFile = Directory.GetCurrentDirectory() + @"\button4.xls";
- //另存活頁簿
- myBook.SaveAs(PathFile, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing
- , XlSaveAsAccessMode.xlNoChange, Type.Missing, Type.Missing, ype.Missing,Type.Missing,Type.Missing);
- //關閉活頁簿
- myBook.Close(false, Type.Missing, Type.Missing);
- //關閉Excel
- myExcel.Quit();
- //釋放Excel資源
- System.Runtime.InteropServices.Marshal.ReleaseComObject(myExcel);
- myBook = null;
- mySheet = null;
- myRange = null;
- myExcel = null;
- GC.Collect();
複製代碼 ... |
|