Delphi DLL in Excel VBA einbinden

[Christian Seehase]

Moin Sly,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Bei mir funktioniert das problemlos.
Bist Du sicher, dass Du als Trennzeichen für die Zellangaben auch ein Semikolon angegeben hast?
Wenn nicht kommt die FM: #Wert!

BTW:
Für das Zuweisen des Rückgabewertes einer Funktion solltest Du Result verwenden und nicht den Namen der Funktion, da man Result auch auf der rechten Seite einer Zuweisung verwenden kann. Ich finde das auch lesbarer, und man hat keine Probleme eine Funktion umzubenennen.

[Sly1]

Hallo Chemiker,

herzlichen Dank

das war des Rätsels Lösung.
Nun läuft auf meine Edit Distance mit Levensthein und Stringübergabe.

Grüße aus Südbayern von Sly1

[Sly1]

Nochmals Hallo zusammen,

um hoffentlich noch mehr Geschwindigkeit aus der selbstgeschrieben VBA-Excelfunktion rauszuholen würde ich nun gerne statt nur auf eine Excelzelle, in der Delphi7 DDL, auf einen Bereich (Range) von Excel (2003) zugreifen. (Aber als Funktion die man einbinden kann. Ich finde einen ganzen Haufen im Netz zu OLE Automation, aber ich will ja keine weitere Instanz von Excel öffnen.)

Derzeit versuche ich es mit folgendem Testcode:
Delphi7:

Code:

function explore_range(const bereich : variant)  : variant; stdcall;
begin
explore_range := 12.753;
end;

exports explore_range;

VBA:

Code:

Option Explicit
 Private Declare Function explore_range Lib "D:\Markt\LevenDLL" (ByRef bereich As Variant) As Variant

Function exp_range(aZelle1 As Range) As Variant
  exp_range = explore_range(aZelle1)
End Function

Nur wie greife ich auf den Inhalt des Bereiches von Excel zu der hoffentlich in der Variablen
bereich steht? bereich.????

Zweite Frage:
Ich kann zwar explore_range := 12.753 zurückgeben und es kommt auch in Excel an, aber wenn ich es mit einem String versuche kommt in Excel nur #Wert!

Bei explore_range := Pchar('hallo') meckert Delpi dass eine PAnsiStr nicht mit Variant kompatibel ist.

Mit freundliche Grüßen

Sly1

[Sly1]

Hallo,

nun bin ich ein Stückchen weiter gekommen und habe festgestellt dass ich wohl doch über ComObj gehen muss.

Code:

function explore_range(const bereich : variant)  : variant; stdcall;
begin
ExcelAPP := GetActiveOleObject('Excel.Application');
cell := ExcelAPP.Range['I1'];
Cellintf := IDispatch(cell); // cell as IDispatch;
explore_range := cell;
end;

Nun bleibt nur noch die Frage wie ich in Delphi an die Info des markierten Bereich von Excel komme z.B: L6:M10? vermutlich über eine Variant Variable, aber was finde ich dort denn dann vor?

Mit freundlichen Grüßen

Sylvester

[toms]

Hallo, das sollte so funktionieren wie hier gezeigt wird:*http://www.delphipages.com/forum/sho...31&postcount=6

[Christian Seehase]

Moin Zusammen,

da sich die Strukturen im Delphi-Treff-Forum etwas geändert haben, lautet der Link jetzt

http://forum.delphi-treff.de/index.php/Thread/29606


Allgemein:
http://forum.delphi-treff.de/showthread.php?<THREADID>
durch
http://forum.delphi-treff.de/index.php/Thread/<THREADID>
austauschen, wobei <THREADID> nur durch die Ziffern des
Links zu ersetzen sind.

[Assarbad]

Zitat von Christian Seehase:

http://forum.delphi-treff.de/index.php/Thread/29606

@Christian: Falls du einen Draht zum Delphi-Treff hast, kannste die ja mal wissen lassen, daß deren HTTP-Weiterleitung von http:// auf https:// fehlerhaft konfiguriert ist. Die von dir angegebene Adresse führt nämlich zu einem Servernamen forum.delphi-treff.deindex.php, bei der Umleitung auf das URL-Schema https://, was wohl ohne Frage falsch ist.