Hallo,
ich nutze Excel 2002.
Dies ist die
DLL
Delphi-Quellcode:
library exdll;
uses
SysUtils,
Classes,
functions
in '
functions.pas';
{$R *.RES}
exports
GetValue;
begin
end.
unit functions;
interface
function GetValue : Integer;
stdcall;
implementation
function GetValue : Integer;
stdcall;
begin
Result:=Random(10)+1;
end;
end.
Die
DLL liegt im Verzeichnis der Exceldatei.
Jetzt habe ich mal probiert eine
API Funktion zu importieren
Code:
Public Declare Function GETVALUE Lib "exdll" () As Long
Public Declare Function GetCurrentThreadID Lib "kernel32" () As Long
Function TestValue() As Long
TestValue = 5
End Function
Bei =GetValue() und = GetCurrentThreadID () wird jetzt #WERT in dei Zelle geschrieben.
Wenn in der Zelle =TestValue() steht erscheint wie gewünscht die 5.