請教各位前輩, 如何用OLE 的方式, 判斷Excel 內cell的值是空的或是有直存在? 例如: 欲判斷cell[3,3]是否有值,若無則在此cell填入值, 若有值便 在cell[3,4]填入值.... 部之各位大大可否幫個忙?? 謝謝!!!

要判斷有沒有值沒辦法直接判斷，因為他是OleVariant Type,您必須要先將他等於到某個字串變數中再進行判斷才可以。

LLP：補supman版大的話：
if (OpenDialog1->Execute())  {
          AnsiString FileName= OpenDialog1->FileName;
    AnsiString buffer;
    int Column_=0,Row_=0;
    Variant FExcel;
          Variant FWorkBooks;
          Variant FWorkBook;
          Variant FWorkSheet;
          Variant FCells;
          Variant FCell;
    Variant FColumns;
    Variant Data_;
    try    {
      FExcel = CreateOleObject("Excel.Application");
      FExcel.OlePropertySet("Visible", false);
      FWorkBooks = FExcel.OlePropertyGet("Workbooks");
      FWorkBooks.OleFunction("Open",WideString(FileName));
      FWorkBook = FWorkBooks.OlePropertyGet("Item",1);
      FWorkSheet = FWorkBook.OlePropertyGet("Sheets",1);
      FCells = FWorkSheet.OlePropertyGet("Cells");
      FCell = FCells.OlePropertyGet("SpecialCells",11);
      FCell.OlePropertyGet("Activate");
      FColumns = FExcel.OlePropertyGet("ActiveCell");
      Column_ = FColumns.OlePropertyGet("Column");
      Row_ = FColumns.OlePropertyGet("Row");
      for (int k = 1 ; k <= Row_ ; k  )      {
        for (int i = 1 ; i <= Column_ ; i  )        {
          FCell = FCells.OlePropertyGet("Cells",k,i);   // Row,Column
          Data_ = FCell.OlePropertyGet("Value");
          // Data_.Type(); 
          buffer= (AnsiString) Data_;
          if (buffer.IsEmpty())
                  // 空值
          else
                  // 有值
          Application->ProcessMessages();
        }
      }
    }
    __finally    {
      FExcel.OlePropertySet("DisplayAlerts",false);
      FExcel.OleFunction("Quit");
    }
    FExcel = Unassigned;
    FWorkBooks = Unassigned;
          FWorkBook = Unassigned;
          FWorkSheet = Unassigned;
          FCells = Unassigned;
          FCell = Unassigned;
    FColumns = Unassigned;
    Data_ = Unassigned;
  }
}    注意紅字部分就是supman版大所言
要判斷有沒有值沒辦法直接判斷，因為他是OleVariant Type,您必須要先將他等於到某個字串變數中再進行判斷才可以。
請參考！

Andy Chang

------
Andy Chang

Thanks for Supman & andychang1690大大. 請問 andychang1690大大 FCell = FCells.OlePropertyGet("SpecialCells",11); 此行為何意義?? 再請問以ROW為主若要將指標指向next Cell要如何表示??? 謝謝!!!

您好: 1. FCell = FCells.OlePropertyGet("SpecialCells",11); 這一個我沒用過不曉得他的功能,現在沒BCB沒辦法實測 2. FCell = FCells.OlePropertyGet("Cells",Row,Col); // Row,Column Data_ = FCell.OlePropertyGet("Value"); 如果Row為1,改為2就是下一個Row了.

謝謝supman & andychang1690大大的指導, 小妹我已能成功的判定CELL內是否有值了. 謝謝!!!