ExcelToTable控件导入数据问题？**

dupit

ExcelToTable导入数据，选择的Excel文件页名必须是sheet1, 命名其它的导入就出错。

dupit

如何能动态获得 当前选择Excel的页名

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=24815
看看这个

dupit

if oExcel=nil then
      oExcel := ComObj.CreateOleObject('Excel.Application');
    if appExcel=nil then
      appExcel := System.DispatchHelper.Create(oExcel);
    if oWorkbooks=nil then
      oWorkbooks := appExcel.PropertyGet('WorkBooks',[]);
    try
      workbooks := System.DispatchHelper.Create(oWorkbooks);
      sourceworkbook := System.DispatchHelper.Create(workbooks.InvokeMethod('Open',[sFileName]));
      sourceworksheets := System.DispatchHelper.Create(sourceworkbook.PropertyGet('Sheets',[]));
      sourceworksheet := System.DispatchHelper.Create(sourceworksheets.PropertyGet('Item',[1]));
      sSheetName := ObjectHelper.ToString(sourceworksheet.PropertyGet('Name',[]));
    finally
      workbooks.InvokeMethod('Close', []);
    end;

这段代码 只取Excel的 第一页SHEET 名称 ，如何能取得当前选择的页。

如下图，能取得‘基本建设’的名称

zfang

那请楼主找找vba相关的代码看看吧。

dupit

没找到，帮忙找找

zfang

呵呵，我也是没找到，所以才让你去找找的。

dupit

这是我在Delphi 里面实现的， 在平台上如何转换？
var
  ExcelApp, Sheet: Variant;
begin
  if OpenDialog1.Execute then
  begin
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.Workbooks.Open(OpenDialog1.FileName);
    Sheet    := ExcelApp.ActiveSheet;
    Caption  := Sheet.Name;
    Showmessage(Caption);
  end;

zfang

类似于这样的方式。
      sourceworksheets := DispatchHelper.Create(sourceworkbook.PropertyGet('ActiveSheet',[]));
      strSheetName := ObjectHelper.ToString(sourceworksheets.PropertyGet('Name',[]));

dupit

代码如下： 改成ActiveSheet  运行出错 。。。。 帮忙看看
  if oExcel=nil then
    oExcel := ComObj.CreateOleObject('Excel.Application');
  if appExcel=nil then
    appExcel := System.DispatchHelper.Create(oExcel);
  if oWorkbooks=nil then
    oWorkbooks := appExcel.PropertyGet('WorkBooks',[]);
  try
    workbooks := System.DispatchHelper.Create(oWorkbooks);
    sourceworkbook := System.DispatchHelper.Create(workbooks.InvokeMethod('Open',[sFileName]));
    sourceworksheets := System.DispatchHelper.Create(sourceworkbook.PropertyGet('ActiveSheet',[]));
    sourceworksheet := System.DispatchHelper.Create(sourceworksheets.PropertyGet('Item',[1]));
    sSheetName := ObjectHelper.ToString(sourceworksheet.PropertyGet('Name',[]));
    jsDialogs.ShowMsg(sSheetName,'');
  finally
    workbooks.InvokeMethod('Close', []);
  end;