Migrate XLL to 64 Bit

Hi,
I have to migrate a code from 32 bit to 64 bit.
VBA is calling a XLL. Both XLA and XLL are compiling without errors
as well in 32 Bit as in 64 bit.

In 32 bit of MSExcel I never face probs.
But my 64 bit MSExcel gets killed when XLA is calling XLL's 'GetProcAdress'.

I post an excerpt of the 64 bit.

  // C++ Declaration 
WINOLEAUTAPI VariantClear(__inout VARIANTARG * pvarg); 
  
//C++ Function 
  
__declspec(dllexport) DWORD WINAPI XLLRequest(DWORD src, DWORD dst, DWORD, DWORD) { 
    
    BSTR *request((BSTR*)src); 
    VARIANT *result((VARIANT*)dst); 
  
    ::VariantClear(result); 
} 
  
// VBA Declaration 
Public Declare PtrSafe Function GetProcAddress Lib "Kernel32.dll" (ByVal module As LongPtr, ByVal procName As String) As LongPtr 
Public Declare PtrSafe Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal func As LongPtr, ByVal par1 As LongPtr, ByVal par2 As LongPtr, ByVal par3 As LongPtr, ByVal par4 As LongPtr) As LongPtr 
  
  
// VBA 
Function Check() 
Static Func_Address As LongPtr 
Dim My_DLL_Address As LongPtr 
  
My_DLL_Address = LoadLibrary(C:\temp\" & "My.xll") ' not hardcoded in real life.
' returns: 140717666926592
  
Func_Address = GetProcAddress(My_DLL_Address, "XXLRequest")
' returns: 140717667776880 
  
' Both variants are killing Excel. 
Get_XLLReqst = CallWindowProc(Func_Address, VarPtr("NAMES"), VarPtr(result), 0, 0) 
'or 
Get_XLLReqst = CallWindowProc(Func_Address, 0, 0, 0, 0) 
  
End function

Any hints much appreciated.
Thx in advance
surplus

Topic archived. No new replies allowed.

C++

Forum

Migrate XLL to 64 Bit