Delphi 2010 Professional & Excel 2007 TypeLibrary Probleme

[Cyberaxx]

Ich bin Froh das es nur ein Verständnisproblem meiner Seite war.

Habe da aber noch eine kleine Frage und zwar nur nach der Möglichkeit ein Arbeitsblatt auszulesen.
Also Abfragen wie, wie viele Blätter vorhanden sind. Wie viele Spalten und Zeilen vorhanden sind.
Möchte also nur erstmal gerne wissen ob dies möglich ist, denn darüber habe ich bisher nichts gelesen ausser das man eben den Inhalt einer bestimmten zelle abfragen könnte.

Gruß

Daniel

[Jumpy]

Mal zu deinen Fragen die Antwort in VBA. Delphi Übersetzung überlass ich dir:

Sagen wir Excel ist die variable deiner Excel-Application, dann liefert:

Code:

Excel.Workbooks.Count

die Anzahl der offenen Workbooks (=Dateien).

Für ein Workbook (z.B. das Aktive) liefert:

Code:

Excel.ActiveWorkbook.Worksheets.Count

oder war es

Code:

Excel.ActiveWorkbook.Sheets.Count

die Anzahl der Arbeitsblätter.

Für ein Arbeitsblatt, z.B. das letzte, liefert:

Code:

Dim r as Range
Set r = Excel.ActiveWorkbook.Worksheets[Excel.ActiveWorkbook.Worksheets.Count].UsedRange

den gefüllten Bereich und

Code:

r.Columns.Count
r.Rows.Count

die Spalten und Zeilen dieses Bereichs.

[Cyberaxx]

Ahh Danke

Das bringt mich doch schon ein wenig weiter

Danke für die Antwort.

[Cyberaxx]

Ich bin doch tatsächlich noch einmal da.
Es ist natürlich auch das selbe Thema...

Mittels:

Delphi-Quellcode:

procedure Excel_AddNameReferer(Value: string; Range: string);
var
  CurrSheetName: string;
begin
  CurrSheetName := Excel.ActiveSheet.Name;
  Excel.ActiveWorkbook.Names.Add(Value, '=' + CurrSheetName + '!' + Range);
end;

Setze ist Einen Namen für ein Feld bzw einen Bereich.
Jetzt möchte ich das ganze gerne auch umgekehrt nutzen, also die Referenz wieder entfernen.

In VBA Script schaut das dann so aus.

Code:

ActiveWorkbook.Names("Testsheet").Delete

In Delphi dann bei mir so
Excel.ActiveWorkBook.Names[Value].Delete(); mit (Value) hab ich es auch schon probiert, die Fehlermeldung lautet immer:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EOleSysError mit der Meldung 'Mitglied nicht gefunden' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Wo liegt da der Fehler? Im netz bin ich da bisher nicht fündig geworden ausser das man Referenzen Anlegen kann oder sich das VBA zu nutze zu machen. Aber genau diese Methode funktioniert nicht...