Haskellで作成したDLLをExcel VBAから安定して利用できない（依存DLL不足ではない）

Question

実現したいこと

Haskellで作成したDLL（MyLib.dll）をExcel VBAから呼び出し、ワークシート関数として安定して利用したい。

環境】
Windows 10/11（バージョン明記）

Visual Studio 2022

GHC（Haskellコンパイラ）バージョン

Excel（32/64ビット、バージョン明記）

VBA

発生している問題・分からないこと

DLLのビルドは正常に完了し、VBAからDeclare文で呼び出しを試みている

依存DLL不足を疑い、Dependency Walkerで調査したが、「API-MS-」「EXT-MS-」系のみがnot foundで、libHS*やVCランタイム等の不足はなかった

DLLロード時の初期化（DllMain等）は推奨されないため、VBAから明示的に初期化関数を呼び出す方式も試したが、初期化直後にワークシートで関数を使うとExcelが再計算・ブック再オープンを経て正常動作するなど、安定しない。だから、DLLロード時の初期化を進めることにした。
しかし、
「ファイルが見つからない」エラー（エラー48等）が頻発し、依存DLL不足でないことが明らかになった今、解決策が見つからず手詰まり

【確認・試行済み事項】
依存DLL不足なし（Dependency Walkerで確認）

パス、権限、32/64ビット不一致、Excelのキャッシュ等も再確認

DLLの再ビルド・再配置も実施

VBAからの初期化呼び出し方式も試行

エラーメッセージ

vbaでTestDllLoadWithErrorCheckを実行すると、エラーコード0が出る。
TestTestFuncを実行すると、ファイルが見つかりません。（エラー 48）というエラーが出る。

該当のソースコード

{-# LANGUAGE ForeignFunctionInterface #-}
module MyLib where

import Foreign
import Foreign.C.Types
import Foreign.C.String (CWString, peekCWString)
import qualified Data.Map.Strict as Map
import Data.Char (isSpace, ord)
import System.IO (hPutStrLn, stderr)

-- Mapの値をEither String Int型にする
myDict :: Map.Map Int (Either String Int)
myDict = Map.fromList [
 (32, Right 0),
 (33, Right 1),
 (38, Right 25),
以下続く
(12291, Right 1),
 (65293, Right 1)
  ]

-- C言語から呼び出せるようにエクスポート
{-# LANGUAGE ForeignFunctionInterface #-}

-- 文字列のn番目（1始まり）のUnicode値を返す（空白は除去）
foreign export ccall real_len :: CWString -> CInt -> CInt -> IO CInt

real_len :: CWString -> CInt -> CInt -> IO CInt
real_len cws elem1 elem2 = do
  hPutStrLn stderr "real_len: 関数が呼ばれました"
  str <- peekCWString cws  -- ここでUTF-16（BSTR）を正しくHaskellのStringに変換
  hPutStrLn stderr $ "real_len: 入力文字列=" ++ str
  let strNoSpaces = filter (not . isSpace) str
      idx = fromIntegral elem2 - 1  -- elem2は1始まり
  if null strNoSpaces || idx < 0 || idx >= length strNoSpaces
    then do
      hPutStrLn stderr "real_len: 範囲外または空文字列"
      return (-1)
    else do
      let ch = strNoSpaces !! idx
      hPutStrLn stderr $ "real_len: 抽出文字=" ++ [ch]
      return (fromIntegral . ord $ ch)

#include <windows.h>
#include <oleauto.h>  // BSTR用
#include <HsFFI.h>
#include <wchar.h>
#include <stdio.h>    // printf用

#ifdef __cplusplus
extern "C" {
#endif

    // Haskell関数の宣言
    extern HsInt32 real_len(const wchar_t* s, HsInt32 elem1, HsInt32 elem2);

    // DLLロード時にHaskellランタイムを初期化
    BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved) {
        static int initialized = 0;
        if (fdwReason == DLL_PROCESS_ATTACH && initialized == 0) {
            int argc = 0;
            char** argv = NULL;
            hs_init(&argc, &argv);
            initialized = 1;
        }
        return TRUE;
    }

    // VBAから呼び出すラッパー
    __declspec(dllexport) HsInt32 __stdcall real_len_wrapper(BSTR s, HsInt32 elem1, HsInt32 elem2) {
        MessageBoxW(NULL, L"real_len_wrapper called", L"Debug", MB_OK);  // ←ここで呼ぶ
        OutputDebugStringA("real_len_wrapper: 関数が呼ばれました\n");
        if (s == NULL) {
            OutputDebugStringA("real_len_wrapper: BSTRがNULLです\n");
            return -1;
        }
        // BSTRはwchar_t*として使える。Haskell側もCWStringでOK
        return real_len((const wchar_t*)s, elem1, elem2);
    }

    // ★テスト用の引数なし関数
    __declspec(dllexport) int __stdcall test_func() {
        MessageBoxW(NULL, L"test_func called", L"Debug", MB_OK);
        OutputDebugStringA("test_func: called\n");
        return 42;
    }

#ifdef __cplusplus
}
#endif

#include <HsFFI.h>
#include <stddef.h>  // ← これを追加

// DllMainは絶対に定義しないでください

// Haskellランタイムの手動初期化関数
void HsStart() {
    int argc = 1;
    char* argv[] = { "ghcDll", NULL };
    char** args = argv;
    hs_init(&argc, &args);
}

// Haskellランタイムの手動終了関数
void HsEnd() {
    hs_exit();
}

' 64ビットExcel専用のDLL/API宣言
Declare PtrSafe Function real_Len_wrapper Lib "D:\visual_studio_2022\Git_repos_folderpath\MyLib.dll" Alias "real_len_wrapper" (ByVal s As String, ByVal elem1 As Long, ByVal elem2 As Long) As Long
Declare PtrSafe Function test_func Lib "D:\visual_studio_2022\Git_repos_folderpath\MyLib.dll" () As Long
Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtr
Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hLibModule As LongPtr) As Long
Declare PtrSafe Function GetLastError Lib "kernel32" () As Long

' DLLロードとエラー取得のテスト
Sub TestDllLoadWithErrorCheck()
    Dim hLib As LongPtr
    Dim errCode As Long
    Dim dllPath As String
    dllPath = "D:\visual_studio_2022\Git_repos_folderpath\MyLib.dll"

    If Dir(dllPath) = "" Then
        MsgBox "DLLが見つかりません: " & dllPath, vbCritical
        Exit Sub
    End If

    hLib = LoadLibrary(dllPath)
    If hLib = 0 Then
        errCode = GetLastError()
        MsgBox "DLLのロード失敗 - エラーコード: " & errCode, vbCritical
    Else
        Debug.Print "DLLロード成功: " & hLib
        FreeLibrary hLib
    End If
End Sub

' セルの値をDLL関数に渡して長さを取得する関数
Function Real_Len1(rng As Range, elem1 As Long, elem2 As Long) As Long
    Dim s As String
    Dim errCode As Long

    On Error Resume Next
    s = rng.Value

    If Len(s) = 0 Then
        Real_Len1 = -1
        Exit Function
    End If

    ' DLL関数を直接呼び出す
    Real_Len1 = real_Len_wrapper(s, elem1, elem2)
    errCode = GetLastError()
    If errCode <> 0 Then
        Debug.Print "real_len_wrapper呼び出しエラー: " & errCode
    End If
End Function

' DLLのtest_funcを呼び出して動作確認
Sub TestTestFunc()
    Dim ret As Long
    ret = test_func()
    MsgBox "test_funcの戻り値: " & ret
End Sub

LIBRARY MyLib
EXPORTS
real_len_wrapper

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

AIに聞いてコードを書いた。

補足

特になし

Answer 1

自己解決できました。読んでくれた方には申し訳ないです。

Comments

[SaitoAtsushi]

自己解決した場合はどのように解決したのかも書くのが望ましいです。