如題
我用delphi去讀excel~
然後判定如果該excel裡有某關鍵字時就列出該檔名與表格名
可以執行程式時~都會出現
could not convert variant of type (dispatch) into type (string)
然後就會中斷程式~程式停在以下這一行~
IF (STRING((MsExcel.Cells[I,j]))=edit2.Text) THEN

請問各位先進~我有哪邊語法是錯誤的?~還是我應該怎麼修改??

照這樣看來應該是型態錯了...吧!?
你的cell跟edit2的資料型態應該是不同的
把string拿掉試試看~

供參考~

您好,

老大仔大大說得沒錯, 是 datatype 不對.

發生問題的那個 cell 是 dispatch 型, 也就是 指向一個 automation 物件的 pointer.
我想最直接(兵來將擋)的方法是
先用 varType function 去判斷是否是 dispatch 型, 如果不是再用 string 去轉型和 edit2.text 去比較

if varType(MsExcel.Cells[I,j]) <> varDispatch then begin

// 您原來的程式段
IF (STRING((MsExcel.Cells[I,j]))=edit2.Text) THEN ....

end;

參考一下,
ps. 我沒實測哦, 請自行測一下


又, 另一方法是用 try ... except ... end 結構去排除不能轉的,
不過可能不是好方法, 因有可能包容其他錯誤.

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

編輯記錄

IF  (vartostr((MsExcel.Cells[I,j]))=edit2.Text)  THEN

------
努力會更接近成功

===================引 用 l730626 文 章===================
如題
我用delphi去讀excel~
然後判定如果該excel裡有某關鍵字時就列出該檔名與表格名
可以執行程式時~都會出現
could not convert variant of type (dispatch) into type (string)
然後就會中斷程式~程式停在以下這一行~
IF (STRING((MsExcel.Cells[I,j]))=edit2.Text) THEN


請問各位先進~我有哪邊語法是錯誤的?~還是我應該怎麼修改??

var
vStr : OleVariant;
begin
vStr :=edit2.text;
IF MsExcel.Cells[I,j]=edit2.Text THEN
:
:

------
努力會更接近成功

回pceyes大大
是不是應該寫成:
vStr :=edit2.text;
IF MsExcel.Cells[I,j]=vStr THEN