EXCEL換頁的部分 |
尚未結案
|
starhua628
一般會員 ![]() ![]() 發表:16 回覆:9 積分:5 註冊:2005-03-19 發送簡訊給我 |
下面的例子,是我在其他討論區看到的,這是關於EXCEL的存取值的程式碼
請問在取值的部分,該如何取sheet2其他頁面呢
//------------------
void __fastcall TForm1::Button1Click(TObject *Sender) { WideString aa; //定義aa if (OpenDialog1->Execute()) //直接打開檔案選擇視窗 { aa=OpenDialog1->FileName; //指定檔名 ExcelApplication1->Connect(); //EXCEL APPLICATION 連接 ExcelApplication1->Workbooks->Open(aa); ExcelWorkbook1->ConnectTo(ExcelApplication1->get_ActiveWorkbook()); ExcelApplication1->set_Visible(0,true); //指定EXCEL視窗為可視 ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveSheet()); //連接工作表 } } void __fastcall TForm1::Button2Click(TObject *Sender) { Variant v5(1); Variant v6(1); Variant v7; Variant KKK(String("ddd")); v7=ExcelWorksheet1->Cells->get__default(v5,v6); //取列1欄1的值 //若要寫入值可用 ExcelWorksheet1->Cells->set__default(v5,v6,KKK);//將列1欄1的值寫入ddd }//----------------- 另外我在其他篇有看到其他的寫法如下,但寫法比較複雜,有沒有寫法是利用上面方法是簡單一點的呢...真的謝謝大大幫忙了 Variant Excel,Workbooks,Workbook,Cells,FColumns; //宣告變數 Variant Worksheets,Worksheet,Column,Cell; //宣告變數 Variant Item,PageSet,Range,Chart,Charts; //宣告變數 CoInitialize(NULL); //在引用Com元件前要加這行 Excel=CreateOleObject("Excel.Application"); Workbooks=Excel.OlePropertyGet("Workbooks") ; Workbook=Workbooks.OleFunction("Add"); //開啟新Workbooks Worksheets=Workbook.OlePropertyGet("Worksheets"); Worksheet=Worksheets.OlePropertyGet("Item",1); //跳至頁面第一頁 |
malanlk
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:20 回覆:694 積分:577 註冊:2004-04-19 發送簡訊給我 |
void __fastcall TForm1::Button1Click(TObject *Sender) { WideString aa; //定義aa if (OpenDialog1->Execute()) //直接打開檔案選擇視窗 { aa=OpenDialog1->FileName; //指定檔名 ExcelApplication1->Connect(); //EXCEL APPLICATION 連接 ExcelApplication1->Workbooks->Open(aa); ExcelWorkbook1->ConnectTo(ExcelApplication1->get_ActiveWorkbook()); ExcelApplication1->set_Visible(0,true); //指定EXCEL視窗為可視 ExcelWorksheet1->ConnectTo(ExcelWorkbook1->OlePropertyGet("WorkSheets", "Sheet2")); //ExcelWorksheet1->Activate // 將 Sheet2 設為目前頁 //ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveSheet()); //連接工作表 } } |
starhua628
一般會員 ![]() ![]() 發表:16 回覆:9 積分:5 註冊:2005-03-19 發送簡訊給我 |
引言:真的很謝謝malanlk的幫忙了^^void __fastcall TForm1::Button1Click(TObject *Sender) { WideString aa; //定義aa if (OpenDialog1->Execute()) //直接打開檔案選擇視窗 { aa=OpenDialog1->FileName; //指定檔名 ExcelApplication1->Connect(); //EXCEL APPLICATION 連接 ExcelApplication1->Workbooks->Open(aa); ExcelWorkbook1->ConnectTo(ExcelApplication1->get_ActiveWorkbook()); ExcelApplication1->set_Visible(0,true); //指定EXCEL視窗為可視 ExcelWorksheet1->ConnectTo(ExcelWorkbook1->OlePropertyGet("WorkSheets", "Sheet2")); //ExcelWorksheet1->Activate // 將 Sheet2 設為目前頁 //ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveSheet()); //連接工作表 } } |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |