导入的实至就是让CXCRID所关联的DATASET能打得开EXCEL报表，并在CXCRID中显示出来吗？如果是主样的话，可这样试试的
var
  xlsName           : string;
begin
  OpenDialog1.Filter := '*.XLS|*.XLS';
  OpenDialog1.DefaultExt := 'XLS';
  if OpenDialog1.Execute then
  begin
    xlsName := OpenDialog1.FileName;
    ADOConnection1.Connected := false;
    ADOConnection1.ConnectionString :=
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + xlsname +
      ';Extended Properties="Excel 8.0;HDR=YES;IMEX=1";Persist Security Info=False';  
    ADOQuery1.Connection := ADOConnection1;
    ADOConnection1.Connected := true;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text := 'select * from [Sheet1$]';
    adoquery1.Parameters.Clear;
    adoquery1.ParamCheck := false;

    ADOQuery1.Open;

 

您好,你的写法是没有问题的.
可以查下以下几个问题:
1:cxgridDBTableView的Datacontroller.datasource有没有指到datasource,datasource有没有连到ADOQuery1
2:cxgridDBTableView的columns有没有加对,每个columns对应的列名有没有指正确.
希望能解决您的问题.

追问

我这个是动态加载的，columns在运行前没有一一对应，是不是columns要在运行时指定，代码如何实现，恳请指教，不胜感激!

回答

哦,那就是没有建columns了.
那你得写生成columns的代码了哦.
ADOQuery.open后.
var
  AItem: TCxGridDBBandedColumn;
.....
CxgridDBTableView.BeginUpdate;
for i := 0 to ADOQuery.Fields.count -1 do
begin
    AItem := CxgridDBTableView.CreateColumn;
    AItem.Caption := ADOQuery.Fields[i].FieldName;
    AItem.DataBinding.FieldName := ADOQuery.Fields[i].FieldName;
    AItem.Width := 80;
end;
CxgridDBTableView.EndUpdate;
 
大概是这样写的吧.可能有错,你整理下就是了.

哦,那就是没有建columns了.
那你得写生成columns的代码了哦.
ADOQuery.open后.
var
  AItem: TCxGridDBBandedColumn;
.....
CxgridDBTableView.BeginUpdate;
for i := 0 to ADOQuery.Fields.count -1 do
begin
    AItem := CxgridDBTableView.CreateColumn;
    AItem.Caption := ADOQuery.Fields[i].FieldName;
    AItem.DataBinding.FieldName := ADOQuery.Fields[i].FieldName;
    AItem.Width := 80;
end;
CxgridDBTableView.EndUpdate;
 
大概是这样写的吧.可能有错,你整理下就是了.