請教用OLE方式讀取 EXCEL檔案時,
要如何知道要讀取的資料多少筆?及多少欄位呢?

你好:
以下程式碼供你參考

[code cpp]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant ExcelApp, ExcelBooks, ExcelBook, ExcelSheets, ExcelSheet, Cell, Var;
int MaxCols, MaxRow, TotalCell=0;

ExcelApp=Variant::CreateObject("Excel.Application");
ExcelApp.OlePropertySet("Visible", true);

ExcelBooks=ExcelApp.OlePropertyGet("Workbooks");

AnsiString szXlsFile1=ExtractFilePath(Application->ExeName) "test.xls";
ExcelBook=ExcelBooks.OleFunction("Open", StringToOleStr(szXlsFile1));

ExcelSheets=ExcelBook.OlePropertyGet("Worksheets");
ExcelSheet=ExcelSheets.OlePropertyGet("Item", 1);

//取得最大行數
MaxCols =ExcelSheet.OlePropertyGet("UsedRange").OlePropertyGet("Columns").OlePropertyGet("Count");
//取得最大列數
MaxRow = ExcelSheet.OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");
//取得欄位數
for(int i=1;i<=MaxRow;i )
{
for(int j=1;j<=MaxCols;j )
{
Cell=ExcelSheet.OlePropertyGet("Cells",i,j);
Var=Cell.OlePropertyGet("Value"); // 讀取該 cell 的值到變數 Var 中
if (String(Var)!="") // 轉換取得的資料.
{
TotalCell = 1;
}
}
}


Edit1->Text=String(MaxCols);
Edit2->Text=String(MaxRow);
Edit3->Text=String(TotalCell);

}
[/code]

------
我是機器人,我不接受簡訊.

編輯記錄