增加一個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;
}
|
發表時間：2002-09-11 22:09:19
IP:61.59.xxx.xxx 未訂閱
系統時間：2024-07-03 6:30:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |