增加一個Excel的Sheet |
尚未結案
|
bluestorm
一般會員 發表:7 回覆:3 積分:2 註冊:2002-09-08 發送簡訊給我 |
查閱過網路上的資料,僅學會開啟單一的Workbook與Sheet,嘗試要在同一個Workbook中再開啟一個或多個Sheet,都試不出來,還請前輩們幫忙,程式碼如下:
Variant FExcel;
Variant FWorkBooks;
Variant FWorkBook;
Variant FWorkSheets;
Variant FWorkSheet,FWorkSheet1;
Variant FColumns,FColumns1;
Variant FCells,FCells1;
Variant FCell,FCell1;
Variant ColumnLen,ColumnLen1; try {
FExcel = CreateOleObject("Excel.Application");
FExcel.OlePropertySe("Visible",false);
FWorkBooks = FExcel.OlePropertyGet("Workbooks");
FWorkBooks.OleFunction("Add",1);
FWorkBook = FWorkBooks.OlePropertyGet("Item",1);
FWorkSheet = FWorkBook.OlePropertyGet("Sheets",1); FCells = FWorkSheet.OlePropertyGet("Cells");
FCell = FCells.OlePropertyGet("Cells",1,1);
FCell.OlePropertySet("Value","A");
FCells = FWorkSheet.OlePropertyGet("Cells");
FCell = FCells.OlePropertyGet("Cells",1,2);
FCell.OlePropertySet("Value","B");
FCells = FWorkSheet.OlePropertyGet("Cells");
FCell = FCells.OlePropertyGet("Cells",1,3);
FCell.OlePropertySet("Value","C"); 或是再開啟一個Workbook又該如何呢?
謝謝... 健君12恨
------
健君12恨 |
denise
一般會員 發表:2 回覆:5 積分:15 註冊:2002-10-09 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
Hi, 簡單說明一下概念..
void __fastcall TForm1::Button1Click(TObject *Sender) { Variant fexcel, fworkbooks, fworkbook, fworksheets, fworksheet; fexcel = CreateOleObject("Excel.Application"); //fexcel就是excel 程式 fworkbooks = fexcel.OlePropertyGet("WorkBooks"); //fworkbooks指的是.xls的檔案群(也就是所有開啟的檔案 workbook 的集合) fworkbook = fworkbooks.OleFunction("add"); //新增workbook 其實就是開新.xls檔案 新加一個 workbook 用 add //fworkbook = fworkbooks.OleFunction("open", "c:\\1.xls"); //開啟 workbook. 其實就是.xls檔案 開啟舊檔用 open fworksheets = fworkbook.OlePropertyGet("WorkSheets"); //由一個workbook 也就是一個 .xls 檔案下的所有的 worksheet, 也就是 worksheets (和 workbook, workbooks 的概念相同) fworksheet = fworksheets.OleFunction("add"); //由worksheets新增一頁 worksheet fworksheet.OlePropertySet("Name", "mysheet"); //可藉由上一行回傳的 fworksheet (也就是新增的 worksheet) 來進行改 sheetname fexcel.OlePropertySet("Visible", true); //將excel顯示出來 //fexcel.OleProcedure("quit"); fexcel = Unassigned; } |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |