vbでClosedXMLライブラリを使用してExcelファイルを読み込む時に式が入ったセルでエラーになる

Question

実現したいこと

vbでClosedXMLライブラリを使用してExcelファイルを読み込み
datatableにセットしたい

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

式が入ったセルでエラーになる（ループ状態？）

エクセルの式
="ORDER NO." & CHAR(10) & COUNTA(B2:B285) & "件"

エクセルのセルの内容
"ORDER NO.
284件"

式が入っている。改行が入っている。
datatableには、式ではなく結果をセット。

エラーメッセージ

Process is terminated due to StackOverflowException.
型 'System.StackOverflowException' のハンドルされていない例外が mscorlib.dll で発生しました

該当のソースコード

    Public Function GF_ExcelToDataTable2(ByRef RefDataTable As DataTable, ByVal filePath As String, Optional ByVal sheetNameParam As String = "Sheet1") As Boolean
        Debug.WriteLine("開始｜" & System.Reflection.MethodBase.GetCurrentMethod().Name)
        Try
            Debug.WriteLine($"ファイルパス: {filePath}, シート名: {sheetNameParam}")
            RefDataTable = New DataTable

            ' ClosedXMLライブラリを使用してExcelファイルを開く
            Using workbook As New XLWorkbook(filePath)
                Dim worksheet As IXLWorksheet = workbook.Worksheet(sheetNameParam)
                If worksheet Is Nothing Then
                    Throw New Exception($"指定されたシート名 '{sheetNameParam}' が見つかりません。")
                End If

                ' ヘッダー行をDataTableに追加
                Dim lastColumn As Integer = worksheet.LastColumnUsed().ColumnNumber()
                Debug.WriteLine($"最終列番号: {lastColumn}")
                For col As Integer = 1 To lastColumn
                    Dim cell As IXLCell = worksheet.Cell(1, col)
                    Dim headerValue As String = If(cell.IsEmpty(), String.Empty, cell.GetValue(Of String)())
                    Debug.WriteLine($"列 {col} のヘッダー: {headerValue}")
                    RefDataTable.Columns.Add(headerValue)
                Next

                Debug.WriteLine($"取得したデータ行数: {RefDataTable.Rows.Count}")
            End Using

            Return True

        Catch ex As Exception
            GS_ShowErrorMessage(ex)
            Return False
        Finally
            Debug.WriteLine("終了｜" & System.Reflection.MethodBase.GetCurrentMethod().Name)
        End Try
    End Function

試したこと・調べたこと

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

上記の詳細・結果

場所は、worksheet.Cell(1, col)から取得する場所
copilotに質問すると、GetValue(Of String)とValue.Tostring()の繰り返しになる。

Dim test1 as string = worksheet.Cell(1, col).GetValue(Of String)
Dim test2 as string = worksheet.Cell(1, col).Value.Tostring()

ウオッチリストにworksheet.Cell(1, 2).Value.Tostring()と書くとエラーにならずに中身が見れる事がある。
単純な値"例１"のようなストリングは問題なく取れる。

補足

特になし

Comments

[utm.]

可能性ですが、ジェネリクスで型が間違ってると無限に型変換し続けるのでそれかもですね

[utm.]

ここでは、GetTextっていうのがあるって紹介されてますね
https://docs.closedxml.io/en/latest/api/cell.html

[t20240712]

GetTextも同じでした。
ウオッチリストにworksheet.Cell(1, 2).GetTextと書くとエラーにならずに中身が見れる事がある。

ちなみに式があるからダメなのではなく、 CHAR(10) が入ってるとダメっぽいです。

[utm.]

その際にも同じエラーなのでしょうか？エラー情報だけが手がかりなので、質問を編集して補足してみてはいかがでしょう

[t20240712]

エラーというよりフリーズです。待っても永遠に返ってきません。
キレイなエラーメッセージではなく、強制終了した時のメッセージやタイムアウトの類です。
なので、エラー情報を手掛かりにするのは困難です。

[utm.]

はい。そういった情報を質問を編集し補足することをお勧めします

Answer 1

.NET Framework 4.8 + 最新の ClosedXML(0.104.2) で試してみましたが、正常に値が取れました。
最新バージョンにしてみてください。

Imports ClosedXML.Excel

Module Module1

    Sub Main()
        Using workbook As New XLWorkbook("d:\work\Book1.xlsx")
            Dim worksheet = workbook.Worksheet(1)
            Dim cell = worksheet.Cell("B1")
            Console.WriteLine($"{cell.Value}")
        End Using
        Console.ReadKey()
    End Sub

End Module

結果
ORDER NO.
3件

追記(4/17)

たしかに ClosedXML で計算式に影響のあるセルを書き換えた場合、計算式に反映されないですね。
SaveAs して開きなおすと反映されるようです。

Imports ClosedXML.Excel

Module Module1

    Sub Main()
        Const template As String = "d:\work\Book1.xlsx"
        Const newFile As String = "d:\work\Book2.xlsx"

        Using workbook As New XLWorkbook(template)
            Dim worksheet = workbook.Worksheet(1)
            worksheet.Cell("B5").Value = "B5"
            worksheet.Cell("B6").Value = "B6"
            worksheet.Cell("B7").Value = "B7"
            Dim cell = worksheet.Cell("B1")
            Console.WriteLine($"{cell.Value}")
            workbook.SaveAs(newFile)
        End Using

        Using workbook As New XLWorkbook(newFile)
            Dim worksheet = workbook.Worksheet(1)
            Dim cell = worksheet.Cell("B1")
            Console.WriteLine($"{cell.Value}")
        End Using

        Console.ReadKey()
    End Sub

End Module

結果
ORDER NO.
3件
ORDER NO.
6件

Comments

[t20240712]

バージョンを確認しました。最新の安定板 0.104.2 になっています。

ただ、
パッケージソースのマッピングがオフです。
になっています。

何か処置が必要でしょうか？

[t20240712]

新規にWindowsApp1.slnを作成しました。
最新のClosedXMLを拡張しました。
Form1_Shownに組み込みました。
debugモードで再生しました。
症状変わらずです。

===== Form1.vb =====
Imports ClosedXML.Excel

Public Class Form1
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Using workbook As New XLWorkbook("d:\work\Book1.xlsx")
Dim worksheet = workbook.Worksheet(1)
Dim cell = worksheet.Cell("B1")
Console.WriteLine($"{cell.Value}")
End Using
Console.ReadKey()
End Sub
End Class
===== Form1.vb =====

'WindowsApp1.exe' (CLR v4.0.30319: DefaultDomain): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_32\mscorlib\v4.0_4.0.0.0__b77a5c561934e089\mscorlib.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: DefaultDomain): 'D:\WindowsApp1\bin\Debug\WindowsApp1.exe' が読み込まれました。シンボルが読み込まれました。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\Microsoft.VisualBasic\v4.0_10.0.0.0__b03f5f7f11d50a3a\Microsoft.VisualBasic.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Windows.Forms\v4.0_4.0.0.0__b77a5c561934e089\System.Windows.Forms.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System\v4.0_4.0.0.0__b77a5c561934e089\System.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Drawing\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Drawing.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Configuration\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Configuration.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Core\v4.0_4.0.0.0__b77a5c561934e089\System.Core.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Xml\v4.0_4.0.0.0__b77a5c561934e089\System.Xml.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\Accessibility\v4.0_4.0.0.0__b03f5f7f11d50a3a\Accessibility.dll' が読み込まれました。含める/除外するの設定でシンボルの読み込みが無効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Runtime.Remoting\v4.0_4.0.0.0__b77a5c561934e089\System.Runtime.Remoting.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\ClosedXML.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\netstandard\v4.0_2.0.0.0__cc7b13ffcd2ddd51\netstandard.dll' が読み込まれました。モジュールがシンボルなしでビルドされました。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\DocumentFormat.OpenXml.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\System.Memory.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\Microsoft.Bcl.HashCode.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\SixLabors.Fonts.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\System.Numerics.Vectors.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Numerics\v4.0_4.0.0.0__b77a5c561934e089\System.Numerics.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\System.Runtime.CompilerServices.Unsafe.dll' が読み込まれました。モジュールがシンボルなしでビルドされました。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Runtime\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Runtime.dll' が読み込まれました。モジュールがシンボルなしでビルドされました。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\System.Buffers.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.ValueTuple\v4.0_4.0.0.0__cc7b13ffcd2ddd51\System.ValueTuple.dll' が読み込まれました。モジュールがシンボルなしでビルドされました。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\DocumentFormat.OpenXml.Framework.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\WindowsBase\v4.0_4.0.0.0__31bf3856ad364e35\WindowsBase.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.resources\v4.0_4.0.0.0_ja_b77a5c561934e089\System.resources.dll' が読み込まれました。モジュールがシンボルなしでビルドされました。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Xml.Linq\v4.0_4.0.0.0__b77a5c561934e089\System.Xml.Linq.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Runtime.InteropServices.RuntimeInformation\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Runtime.InteropServices.RuntimeInformation.dll' が読み込まれました。モジュールがシンボルなしでビルドされました。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\ClosedXML.Parser.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。
'WindowsApp1.exe' (CLR v4.0.30319: WindowsApp1.exe): 'D:\WindowsApp1\bin\Debug\RBush.dll' が読み込まれました。シンボルの読み込みをスキップしました。モジュールは最適化されていて、デバッグ オプションの [マイ コードのみ] 設定が有効になっています。

Process is terminated due to StackOverflowException.
型 'System.StackOverflowException' のハンドルされていない例外が mscorlib.dll で発生しました

埋め込みドキュメント 'System.Globalization\CompareInfo.cs' を 'C:\Users\user1\AppData\Local\Temp\.vsdbgsrc\82f5c4d99137273f37e4fbe578de1a03843e6011bebc9ed0966c7a983ed26386\CompareInfo.cs' に抽出しました

[t20240712]

ソースコードが原因ではなく、Excelの呪いでした。

当該のExcelファイルでは毎回エラーですが、テスト的に手打ちしたエクセルは問題なく動きます。
当該のExcelファイルを開き編集して保存すると、エラーが出なくなります。
当該のExcelファイルは156KBですが、内容が変わらない軽微な変更をして上書き保存すると、103KBに容量が減ります。
その状態だとエラーになりません。
Excelファイルの制御部分のバイナリー部分が悪さをしています。

ただ、めでたしめでたしではありません。
そのExcelファイルを抽出しているのが、他ならぬClosedXMLなのです。

vb内にExcelファイルがひな型として保存されています。
そこにデータを挿入して書き出しているのがClosedXMLです。
ひな型Excelファイルを今回の処理に直接食わせても今回のエラーにはなりません。
ひな型ExcelファイルをVB内でClosedXMLを使って出力したExcelファイルが今回の問題を引き起こします。
ClosedXMLがExcelファイルに呪いをかけています。
Excelでファイルを開き、Excelで保存すると呪いが解けます。

その呪いはExcelには効かず、自分自身にだけ効きます。大マヌケなマッチポンプです。

ClosedXMLの自作自演不具合ですが、何とかならないでしょうか。