一個EXCEL問題，真的拜託各位幫忙了^^

發文回覆瀏覽次數：1545

推到 Plurk!

推到 Facebook!

一個EXCEL問題，真的拜託各位幫忙了^^

尚未結案

starhua628
一般會員

發表：16
回覆：9
積分：5
註冊：2005-03-19

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-09-12 17:10:40

IP:211.21.xxx.xxx 未訂閱

請問關於EXCEL取值的問題，我參考了其他人的寫法，並且加以改寫，如以下的程式，但是出來的結果卻是無窮回圈，請為各位有誰可以幫我看一下我是那邊出了問題嗎，真的感激不盡各位了

 FILE *out;
 WideString aa; //定義aa
 int i;
 int ARow = 1;
 int ACol = 1;
 Variant g;     out=fopen("D:\\out_1.txt","w");
 
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());//連接工作表
 }     while(OleStrToString(g)!=(NULL))  //因為出來有無窮的(null)結果，所以
                                     設這個條件讓程式停止，但好像沒用
 {
  ARow  ;
  Variant v(ARow);
  Variant k(ACol);
  g=ExcelWorksheet1->Cells->get__Default(v,k);
  fprintf(out, "%s\t""\n",OleStrToString(g));
 }     fclose(out);

RaynorPao
版主

發表：139
回覆：3622
積分：7025
註冊：2002-08-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-09-30 14:34:24

IP:202.3.xxx.xxx 未訂閱

引言: 請問關於EXCEL取值的問題，我參考了其他人的寫法，並且加以改寫，如以下的程式，但是出來的結果卻是無窮回圈，請為各位有誰可以幫我看一下我是那邊出了問題嗎，真的感激不盡各位了

 FILE *out;
 WideString aa; //定義aa
 int i;
 int ARow = 1;
 int ACol = 1;
 Variant g;     out=fopen("D:\\out_1.txt","w");
 
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());//連接工作表
 }     while(OleStrToString(g)!=(NULL))  //因為出來有無窮的(null)結果，所以
                                     設這個條件讓程式停止，但好像沒用
 {
  ARow++;
  Variant v(ARow);
  Variant k(ACol);
  g=ExcelWorksheet1->Cells->get__Default(v,k);
  fprintf(out, "%s\t""\n",OleStrToString(g));
 }     fclose(out);

starhua628 你好:
請參考以下連結中的範例程式碼，加以修改即可達到目的
>    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

系統時間：2024-11-23 13:01:13

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！