Excel_TLB Probleme mit Excel2010

[delphigeorge]

hallo zusammen,

bisher habe ich die Excel2000_TLB genutzt, so habe ich bisher Excel-Dateien geöffnet:

Delphi-Quellcode:

  
  try
    ActWbk.Disconnect;
    MSExcel.connect;
  except
    ActWbk.Disconnect;
    MSExcel.Disconnect;
    MSExcel.Quit;
    Application.ProcessMessages;
    Application.Restore;
    showMessage('Excel konnte nicht gestartet werden');
    exit;
  end;
  if not Neu then
  begin
    try
      ActWbk.ConnectTo(MSExcel.Workbooks.Open(Docu, EmptyParam, EmptyParam,
                    EmptyParam, EmptyParam, EmptyParam,
                    Ignore, EmptyParam, EmptyParam,
                    TRUE, EmptyParam, EmptyParam,
                    EmptyParam, LCID));
    except
       MSExcel.Quit;

Mit Excel2010 gibt es nun folgendes Problem:
Hat man in einer Excel-Datei Autofilter eingesetzt und die Datei mit aktivem Filter gespeichert,
dann erscheint mit dem nächsten Aufruf über obige Routine die Meldung:

Namenskonflikt

Name darf integriertem Namen nicht gleichen.
Alter Name: _FilterDatase
Neuer Name:

Es muss ein Name eingegeben werden, sonst kommt man aus der Nummer nicht mehr raus.

Hat jemand eine Ahnung wie man die Meldung umgehen kann?

[Bernhard Geyer]

Hallo,

hab den gleichen Fehler aber soweit ich sehe in der Datei keinen Autofilter (bzw. weiß nicht woran ich das erkennen kann).
Kannst du hier eine Datei mit und ohne Autofilter anhängen.

Bisher habe ich viele Meldungen mit Fehlermeldung gefunden aber keine die auf mein (und vermutlich dein) Problem mit _FilterDatase funktioniert (Hab auch die vermutung das hier MS eine Bock geschossen hat).

Nochwas: Ich gehe mit Später Bindung (also ohne TLB) auf Excel "los".

[p80286]

vielleicht hilft das hier weiter.
wenn ich es richtig verstanden habe, ist "_FilterDatabase" der Name für Autofilter.
Wenn Du also ein Exel-File öffnest, daß mit einem Autofilter (mit Standardnamen) gespeichert wurde, dann macht es Peng, weil zweimal der gleiche Name, daß geht überhaupt nicht.

ggf kann man über application.worksheets den filter ausschalten ohne ein activeworksheet zu bemühen?

Gruß
K-H

[delphigeorge]

hallo Bernd,

anbei ein Beispiel:
Im Excel-Menü auf 'Daten|Filtern' klicken um zu filtern.
Nochmals klicken um den Filter zu entfernen.
Datei mit aktivem Filter speichern und neu aufrufen.

[delphigeorge]

hallo K-H,

das habe ich alles schon versucht, aber ohne Erfolg.

[delphigeorge]

hallo Bernd,

ich lösche nun in der beforeclose alle Filter die '_FilterDatabase' beinhalten,
jetzt habe ich Ruhe!
Ob Excel diese internen Filter irgendwie verwendet konnte ich nicht in Erfahrung bringen.

Delphi-Quellcode:

procedure TKMHaupt.ActWbkBeforeClose(ASender: TObject;  var Cancel: WordBool);
var
  sheet: TExcelWorkSheet;
  TN : Names;
  TIN: Excel2000.Name;
  LegID, nam: string;
  i, j, x : integer;
begin
  ActWbk := TExcelWorkbook(ASender);
  sheet := TExcelWorkSheet.Create(nil);
  for i := 1 to ActWbk.Sheets.Count do
  begin
    sheet.connectTo(ActWbk.Sheets[i] as _Worksheet);
    sheet.AutoFilterMode[LCID] := False;
    TN := sheet.Names;
    for x := 0 to TN.Count -1 do
    try
      TIN := TN.Item(x, EmptyParam, Emptyparam);
      nam := TIN.Name_;
      if POS('_FilterDatabase', Nam) > 0 then
      try
        TIN.Delete;
      except
      end;

    except
    end;

  end;