如何得知excel檔的最後一筆資料是在那一個行列
我這樣寫程式在讀到最後一行後會出現錯誤
Invalid Variant Operation
所以我想改成讀到最後一筆就不要再往下讀
但不知最後一筆的列數該如何取得      if opendialog1.Execute then begin
    ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.Visible := False;
    ExcelApp.WorkBooks.Open(opendialog1.FileName);
    name:= ExcelApp.Cells[5,1].Value;
    date:= ExcelApp.Cells[5,5].Value;
    try
      while ExcelApp.Cells[i,1].Value = name do begin
        do_something_here;
        i:= i   1;
      end;
    finally
      ExcelApp.Quit;
    end;
  end;

最後一筆??   最右一欄??  行/列常混淆??    以下是用 ADO 連上 EXCEL,判斷最後一筆即結束   希望能給您幫助    

while  not(Form.ADODataset1.eof )  do
begin      // ......資料處理        Form.ADODataset1.Next;    end; // while eof()

-------------------------------- 這一網站,真的不錯!!

------
---------------------------------------
偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩.

判斷下一筆是否為空白就知道是否到最後一行了。 就算後面沒資料也是只會讀出空白，沒道理會出現錯誤。 i的初值要是1，不然會引發錯誤 i:=0; while (true) do begin inc(i);//先加1次變成1 S:=Excel.Cells[i,1]; if (S='') then break; end;

我的最後一筆資料ExcelApp.Cells[40,1].Value 我用inspect下去看是 unassigned 而不是 空白 可能是因為這樣才會出現錯誤訊息 是否有解決方法

S:=Excel.Cells[i,1]; 請用這樣把Excel資料丟到一個字串變數來判斷。 OleVariant的資料型態你用Inspect看到的一定是unassigned。 請先照我上面方式試。

請問一下喔。

如果用判斷下一個是否為空值的話，遇到下面那一個情況怎麼辦？

	B	50
	50

這樣不會有問題嗎?

同樣遇到不知道要怎麼判斷最後一行及最後一列的人。

您好,

請試一下

ExcelApp.worksheets[1].activate;
ExcelApp.worksheets[1].cells.SpecialCells(xlcelltypelastcell, emptyparam).activate;
exc_rows:=ExcelApp.activecell.row;


===================引 用 writeman 文 章===================

如何得知excel檔的最後一筆資料是在那一個行列
我這樣寫程式在讀到最後一行後會出現錯誤
Invalid Variant Operation
所以我想改成讀到最後一筆就不要再往下讀
但不知最後一筆的列數該如何取得      if opendialog1.Execute then begin
    ExcelApp := CreateOleObject( 'Excel.Application' );
    ExcelApp.Visible := False;
    ExcelApp.WorkBooks.Open(opendialog1.FileName);
    name:= ExcelApp.Cells[5,1].Value;
    date:= ExcelApp.Cells[5,5].Value;
    try
      while ExcelApp.Cells[i,1].Value = name do begin
        do_something_here;
        i:= i   1;
      end;
    finally
      ExcelApp.Quit;
    end;
  end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.