使用FireDAC读取Excel文件

    //Read Excel
    FDConn->ConnectionString = "ODBCDriver=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb);"
                            "DataSource=Excel Files;DriverID=ODBC;"
                            "Database=D:\\我的文档\\DeskTop\\出生地.xls;"
                            "FIL=excel 12.0;User_Name=admin";
    FDConn->LoginPrompt = false;
    FDConn->Connected =true;

    FDQ->Connection = FDConn;
    FDQ->Active = false;
    FDQ->SQL->Text = "select * from [Sheet1$]";
    FDQ->Active = true;
    for(int i=0; i<FDQ->FieldCount;i++)
    {
        Memo1->Lines->Add(FDQ->Fields->Fields[i]->FieldName);
    }
    FDQ->Last();    //跳转到最后一条
    ShowMessage("共有记录 " + IntToStr(FDQ->RecordCount));
    Memo1->Lines->Add("====表名====");
    TStringList *list = new TStringList();
    FDConn->GetTableNames("","","",list, TFDPhysObjectScopes()<<osSystem);

    for(int i=0; i<list->Count; i++)
    {
        String s = list->Strings[i];
        Memo1->Lines->Add(list->Strings[i].SubString0(s.LastDelimiter0(".")+1, s.Length()));
    }
//    Memo1->Lines->AddStrings(list);