TExcelApplication: Workbook-Struktur auslesen

[Igotcha]

Hallo zusammen,

ich benötige für meine Anwendung eine Importfunktion von Excel-Tabellen. Da in einer Excel-Datei mehrere Sheets vorkommen können, muss ich rausbekommen, wie diese heissen, damit der User das(die) entsprechenden Sheets vor dem Import auswählen kann.

Ich benutze TExcelApplication und bekomme momentan nur raus, wie viele Sheets die Datei hat,

Delphi-Quellcode:

ExcelApp.Sheets.Count

aber leider nicht die Namen.

Gruß Igotcha

[Mario]

Prüfe mal, ob Sheets nicht eine property Items(Index: Integer) besitzt. Damit solltest Du an die Infos ran kommen.

[Luckie]

Schon mal nach dem Punkt nach Sheets mal die Codevervollständigung durch gesehen, was dir noch für Methiden angeboten werden? Gibt es da kein [i]Sheet.Name oder so ws?

[Igotcha]

Nee, gibt es nicht. Nach "Sheets" wird es sehr kryptisch:

Delphi-Quellcode:

Item :[Index: OleVariant]: IDispatch

nach "Item[ix]." wird es noch schlimmer. Da sind Parameter vom Typ "TGUID", "Obj" mit dem Ergebnistyp "HRESULT" aufgeführt, aber auch nichts mit "name" o.ä.

[Mario]

Schaue mal hier nach, wie Du an das Sheet ran kommst:
http://www.delphipraxis.net/internal...heets+workbook

[Igotcha]

Zitat:

Zitat von Mario

Schaue mal hier nach, wie Du an das Sheet ran kommst:
http://www.delphipraxis.net/internal...heets+workbook

Leider wird dort direkt mit "Sheets[1]" auf ein Sheet zugegriffen. Wie ich zugreife, weiss ich - ich möchte davor aber wissen, wie viele Sheets es gibt (ok, habe ich) und wie diese heissen, da ich diese in einer CheckListbox zur Auswahl anzeigen lassen möchte.

[Mario]

Zitat:

Delphi-Quellcode:

uses
Excel97; // falls Excel 97 benutzt wird

var
  excel: TExcelApplication;
  wb: _WorkBook;
  ws: _WorkSheet;
  lcid: Integer;
...
    // Excel öffnen
    lcid := GetUserDefaultLCID;

    excel := TExcelApplication.Create(FormMain);
    excel.Connect;

    // Exceldatei laden (test.xls)
    wb := excel.Workbooks.Open('test.xls', emptyParam, emptyParam, emptyParam, emptyParam,
                        emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
                        emptyParam, emptyParam, lcid);

    // erstes Worksheet auswählen
    ws := wb.Sheets[1] as _WorkSheet;
...

Am Ende steht ein Worksheet, wo die Codevervollständigung wieder greift und Du nachschauen kannst, ob es so eine Eigenschaft wie Name oder Caption gibt.

[Igotcha]

Super, funktioniert - danke!

[Tim Henford]

Eine Frage zum letzten alternativen source noch:
Ist es gewollt, dass sich in Excel ein "Datenquelle auswählen" Fenster öffnet?

So ganz ist mir die Intention von DSN noch nicht klar, muss diese erst erstellt werden oder ist das der Servername, der auch im Enterprise Manager steht?

Danke Tim

[Mario]

Versuche es mal mit einer frischen einfachen Excel-Datei. Ich kann mir fast nur vorstellen, dass die Excel-Datei selbst das Problem hervorruft.