常連

### 実現したいこと
別途説明するエクセルファイルをClosedXMLを使用して読み込めるようにしたい
エクセルがインストールされていない端末でもそれが可能な事

### 発生している問題・分からないこと
以下のスレッドの続きです。（見なくても、ここに必要要項は書きますが。）
https://teratail.com/questions/lmfwqvnb5lx442#reply-85ukqmng7vq6ft

ClosedXMLを使用してExcelファイルを読み込む時に、式が入ったセルでエラーになるので、上記のスレッドを立てました。
しかし、ClosedXMLやVBのソースではなく、Excelファイルが壊れていました。

なぜ、Excelファイルが壊れていると言えるのか
ClosedXMLからは読めないが、本物のエクセルでは読み込む事ができるので、本物のエクセルで再保存したところ正しく処理が行えた。

ClosedXMLの読込能力の低さを残念がる事もできますが、エクセルで再保存したものは正しく処理できたので、ファイル作成者が悪いという見方もできます。

そのファイル作成者は外ならぬClosedXMLライブラリでした。
ですので、今回は書き込み側中心の話になります。

### エラーメッセージ
```error
型 'System.StackOverflowException' のハンドルされていない例外が mscorlib.dll で発生しました

埋め込みドキュメント 'System.Globalization\CompareInfo.cs' を 'C:\Users\sys_developer\AppData\Local\Temp\.vsdbgsrc\82f5c4d99137273f37e4fbe578de1a03843e6011bebc9ed0966c7a983ed26386\CompareInfo.cs' に抽出しました
プログラム '[18536] WindowsApp1.exe' はコード 4294967295 (0xffffffff) で終了しました。
```

### 該当のソースコード

```Form1.vb
Imports System.IO
Imports System.Reflection
Imports ClosedXML.Excel
Imports DocumentFormat.OpenXml.Spreadsheet

Public Class Form1
 Const Temp1 As String = "d:\work\TEMP1.xlsx"
 Const Temp2 As String = "d:\work\TEMP2.xlsx"
 Dim DataTableDGView1 As New DataTable
 Dim ExcelResourceName As String = "WindowsApp1.TEST1.xlsx"

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  TabControl1.Dock = DockStyle.Fill
  DataGridView1.Dock = DockStyle.Fill
  DataGridView2.Dock = DockStyle.Fill
  Call DataTable1Set()
 End Sub

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  Dim Eod As Integer
  Using ResourceStream As Stream = Assembly.GetExecutingAssembly().GetManifestResourceStream(Me.ExcelResourceName)
   If ResourceStream Is Nothing Then
    MessageBox.Show("リソースが見つかりませんでした。")
    Exit Sub
   End If
   Using fileStream As FileStream = File.Create(Temp1)
    ResourceStream.CopyTo(fileStream)
   End Using
  End Using

  Using XLWorkbook1 = New XLWorkbook(Temp1)
   Dim WorksheetX = XLWorkbook1.Worksheet(1)
   Dim CntRow As Integer = 1
   For Each DataRow1 As DataRow In Me.DataTableDGView1.Rows
    CntRow += 1
    Dim CntCol As Integer = 1
    WorksheetX.Cell(CntRow, CntCol).Value = DataRow1("A-Item").ToString
    WorksheetX.Cell(CntRow, CntCol + 1).Value = DataRow1("B-Key").ToString
    WorksheetX.Cell(CntRow, CntCol + 2).Value = ExcelCellDate(DataRow1("C-Date").ToString)
    For For1 As Integer = 1 To 28
     WorksheetX.Cell(CntRow, CntCol + 2 + For1).Value = "Dummy" & For1.ToString(0)
    Next
    WorksheetX.Cell(CntRow, CntCol + 31).Value = DataRow1("AG-String").ToString
    WorksheetX.Cell(CntRow, CntCol + 32).Value = ExcelCellDate(DataRow1("AH-Date").ToString)
    WorksheetX.Cell(CntRow, CntCol + 33).Value = ExcelCellDate(DataRow1("AI-Date").ToString)
    WorksheetX.Cell(CntRow, CntCol + 35).Value = ExcelCellDate(DataRow1("AK-Date").ToString)
    WorksheetX.Cell(CntRow, CntCol + 36).Value = DataRow1("AL-String").ToString
    WorksheetX.Cell(CntRow, CntCol + 37).Value = DataRow1("AM-String").ToString
    WorksheetX.Cell(CntRow, CntCol + 38).Value = ExcelCellNumeric(DataRow1("AN-フラグ").ToString)
    WorksheetX.Cell(CntRow, CntCol + 41).Value = ExcelCellNumeric(DataRow1("AQ-フラグ").ToString)
    WorksheetX.Cell(CntRow, CntCol + 43).Value = ExcelCellNumeric(DataRow1("AS-フラグ").ToString)
    WorksheetX.Cell(CntRow, CntCol + 44).Value = ExcelCellDate(DataRow1("AT-Date").ToString)
   Next
   Eod = CntRow
   XLWorkbook1.Save()
  End Using

  Call ExcelRemoveRows(Temp1, Eod + 1, 1000)
  Call ExcelSaveAs(Temp1, Temp2)
  MsgBox("Excelファイルへの書き込みが正常に完了しました。")
 End Sub

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  Call Put_DataGrid(Temp1)
 End Sub

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  Call Put_DataGrid(Temp2)
 End Sub

 Private Sub DataTable1Set()
  Me.DataTableDGView1 = New DataTable()
  With Me.DataTableDGView1.Columns
   .Add("A-Item", GetType(String))
   .Add("B-Key", GetType(String))
   .Add("C-Date", GetType(String))
   .Add("AG-String", GetType(String))
   .Add("AH-Date", GetType(String))
   .Add("AI-Date", GetType(String))
   .Add("AK-Date", GetType(String))
   .Add("AL-String", GetType(String))
   .Add("AM-String", GetType(String))
   .Add("AN-フラグ", GetType(String))
   .Add("AQ-フラグ", GetType(String))
   .Add("AS-フラグ", GetType(String))
   .Add("AT-Date", GetType(String))
  End With

  Dim Random1 As New Random()
  For Count1 As Integer = 1 To 255
   Dim RandomNumb As Integer = Random1.Next(0, 2)
   Dim NewRow1 As DataRow = Me.DataTableDGView1.NewRow()
   NewRow1("A-Item") = "あああ"
   NewRow1("B-Key") = "KEY" & Count1.ToString("0000000000")
   NewRow1("C-Date") = DateTime.Now.AddDays(Random1.Next(-50, 61)).ToString("yyyy/MM/dd")
   NewRow1("AG-String") = If(RandomNumb = 0, String.Empty, "AG" & RandomNumb.ToString)
   NewRow1("AH-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   NewRow1("AI-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   NewRow1("AK-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   NewRow1("AL-String") = "AL" & (Random1.Next(-10, 10)).ToString
   NewRow1("AM-String") = "AM" & (Random1.Next(-10, 10)).ToString
   NewRow1("AN-フラグ") = Random1.Next(0, 2).ToString
   NewRow1("AQ-フラグ") = Random1.Next(0, 2).ToString
   NewRow1("AS-フラグ") = Random1.Next(0, 2).ToString
   NewRow1("AT-Date") = DateTime.Now.AddDays(Random1.Next(-10, 10)).ToString("yyyy/MM/dd")
   Me.DataTableDGView1.Rows.Add(NewRow1)
  Next
  DataGridView1.DataSource = Me.DataTableDGView1
 End Sub

 Private Function ExcelCellDate(inputDateTime As String) As String
  Try
   Return DateTime.Parse(inputDateTime).ToString("yyyy-MM-dd")
  Catch ex As Exception
   Debug.WriteLine($"エラー: {ex.Message}")
   Return String.Empty
  End Try
 End Function

 Private Function ExcelCellNumeric(numericValue As String) As Double
  Try
   If String.IsNullOrWhiteSpace(numericValue) Then Return 0.0
   Dim result As Double
   If Double.TryParse(numericValue, result) Then Return result
   Debug.WriteLine($"数値変換失敗: 入力値 '{numericValue}' は数値ではありません。")
   Return 0.0
  Catch ex As Exception
   Debug.WriteLine($"エラー発生: {ex.Message}")
   Return 0.0
  End Try
 End Function

 Private Sub ExcelRemoveRows(filePath As String, startRow As Integer, endRow As Integer)
  Debug.WriteLine($"ファイルパス: {filePath}, 削除範囲: {startRow} から {endRow}")
  Using XLWorkbook1 As New XLWorkbook(filePath)
   Dim IXLWorksheet1 As IXLWorksheet = XLWorkbook1.Worksheet("Sheet1")
   Dim delcnt = 0
   For rowIndex As Integer = endRow To startRow Step -1
    delcnt += 1
    IXLWorksheet1.Row(rowIndex).Delete()
    If delcnt >= 50 Then
     XLWorkbook1.Save()
     Application.DoEvents()
     Debug.WriteLine($"50件削除")
     delcnt = 0
    End If
   Next
   XLWorkbook1.Save()
   Debug.WriteLine($"削除完了")
  End Using
 End Sub

 Private Sub ExcelSaveAs(filePath1 As String, filePath2 As String)
  Using XLWorkbook1 As New XLWorkbook(filePath1)
   XLWorkbook1.SaveAs(filePath2)
   Debug.WriteLine($"保存しなおし完了")
  End Using
 End Sub

 Private Sub Put_DataGrid(TempFile As String)
  Dim DataTable1 = New DataTable

  'Headerのセット
  Using XLWorkbook1 As New XLWorkbook(TempFile)
   Dim Worksheet1 = XLWorkbook1.Worksheet(1)
   Dim lastColumn As Integer = Worksheet1.LastColumnUsed().ColumnNumber()
   For col As Integer = 1 To lastColumn
    Dim IXLCell1 As IXLCell = Worksheet1.Cell(1, col)
    Dim headerValue As String = If(IXLCell1.IsEmpty(), String.Empty, IXLCell1.GetValue(Of String)())
    DataTable1.Columns.Add(headerValue)
   Next
  End Using
  DataGridView2.DataSource = DataTable1

  'Bodyのデータは割愛
  MsgBox("Excelファイルへの読み込みが正常に完了しました。")
 End Sub
End Class
```

```TEST1.xlsx
ある程度負荷をかけないと落ちてくれないので、列はあまり減らしていない。
任意の場所で作成し、直下にアドしてビルドアクションを埋め込みリソースに変更する。

＜ヘッダ＞
A-Item
【式】="B-Key" & CHAR(10) & COUNTA(B2:B999) & "件"
C-Date
dummy1
dummy2
dummy3
dummy4
dummy5
dummy6
dummy7
dummy8
dummy9
dummy10
dummy11
dummy12
dummy13
dummy14
dummy15
dummy16
dummy17
dummy18
dummy19
dummy20
dummy21
dummy22
dummy23
dummy24
dummy25
dummy26
dummy27
dummy28
【式】="アラート３⇒" & CHAR(10) & COUNTIF(AF2:AF1000,"！") & "件"
AG-String
AH-Date
AI-Date
【式】="アラート１⇒" & CHAR(10) & COUNTIF(AJ2:AJ1000,"！") & "件"
AK-Date
AL-String
AM-String
AN-フラグ
AO-式
AP-式
AQ-フラグ
【式】="アラート２⇒" & CHAR(10) & COUNTIF(AR2:AR1000,"！") & "件"
AS-フラグ
AT-Date


＜ボディ＞
ボディに式があるのは下記の5項目、行2～1000まで埋まっているものとする。

アラート３⇒
=IF(C2+30<TODAY(), IF(LEN(TRIM(AG2)) < 1, TRIM("！"), TRIM("")), TRIM(""))

アラート１⇒
=IF(AK2+0<TODAY(), TRIM("！"), TRIM(""))

AO-式
=IF(TEXT(AS2, "0") <> TRIM("1"), IF(C2 + 7 * 2 < TODAY(), TRIM(1), TRIM(0)), TRIM(0))

AP-式
=IF(TRIM(AT2) = TRIM(""), IF(TRIM(AH2) = TRIM(""), 1, IF(AH2 > TODAY(), 1, 0)), IF(AT2 - 7 * 2 >= TODAY(), 1, 0))

アラート２⇒
=IF((TRIM(AP2) & TRIM(AQ2)) = TRIM("11"), TRIM(""), IF(TRIM(AO2) = "1", TRIM("！"), TRIM("")))

```

### 試したこと・調べたこと
- [ ] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
起動⇒ページ2にテストデータ
ボタン1⇒TEMP1、TEMP2が作成される
ボタン2⇒TEMP1から読み込めない
ボタン3⇒SaveAsで保存したTEMP2から読み込めない
その後
TEMP1を開きExcelで再保存するとボタン2でページ3にデータが読み込めるのを確認できる
TEMP2を開きExcelで再保存するとボタン2でページ3にデータが読み込めるのを確認できる


### 補足
■バージョン
vb 2022
.NET Framework 4.8
ClosedXML(0.104.2)


vbのClosedXMLを使用して出力したエクセルがClosedXMLでは読めない

VBAで下記のような最終行を取得する命令を
C#ClosedXMLで書きたいです。どのようにすればよいでしょうか。
ワークシートの３列目で書き込まれている一番下の行を取得したいです。
よろしくお願いします。

```VBA
Worksheet(1).Cells(Rows.Count, 3).End(xlUp)
```
|＼|A|B|C|
|:--|:--:|:--:|:--:|
|1|月|日|チェック|
|2|5|1|〇|
|3|||2||
|4|||3|〇|
|5|||4||
|6|||5||

シート全体で使用範囲の一番下の行
```C#
workSheet.LastRowUsed().RowNumber();
workSheet.UsedRange.Rows.Count;
```


C#でClosedXMLを使い、指定した列の最終行を取得するには

### 前提

言語：c#
closedxmlでテンプレートファイルを読み込み、DBのデータを書き込みファイルを保存する。
テンプレートファイルのサイズが5MBほどでマクロが入っているため、拡張子がxlsm。

### 実現したいこと

ファイルの読み込み、保存の速度をそれぞれ２秒くらいで終了させたい。

### 発生している問題・エラーメッセージ

現状ファイルの読み込み、ファイルの保存にそれぞれ１５秒ほどかかっている。

### 該当のソースコード

```c#
// 開くだけで15秒
var wb = new XLWorkbook(テンプレートファイルのパス);

//wbへの書き込み処理（1秒もかからず完了。）

// 保存にも15秒
wb.SaveAs(ファイル保存先のパス);

```

### 試したこと

ファイルを開く際の引数にLoadOptionsを追加し、
EventTrackingをDisabled、RecalculateAllFormulasをfalseにしたが、変化なし。

ファイルを保存する際の引数にSaveOptionsを追加し、
SaveOptionsのプロパティを全てをfalseにしたが、変化なし。

テンプレートファイルの中身を一部削除し、ファイルサイズを500KBまで削減した場合
読み込み、保存にそれぞれ１秒かからず終了しました。
そのため、ファイルサイズが原因だとは分かったのですが、テンプレートファイルの中身を削除して
ファイルサイズを少なくすることができません。

何か解決案などがあれば、ご教示ください。


closedxmlでファイルの読み込み及び保存の速度改善

VB初心者のプログラマ歴2年目です。
OpenXMLのライブラリClosedXMLを使用してExcelファイルを読み込み、
VB上で特定のセルの値を取得しようと試みていますが上手くいきません。
読み込んでいるExcelへの書き込みはできるのですが、取得ができない状態です。

以下、取得時に実行しているソースです。
```VB.net
Using workbook As New ClosedXML.Excel.XLWorkboook("ここにはパスとファイル名を記載しています")
 Dim sheet = workbook.Worksheet(1)
 MessageBox.Show(sheet.Cell("A1").GetString())
End Using
```
実行した際、「オブジェクトはIConvertibleを実装しなければなりません」というエラーメッセージが表示されます。
GetStringがClosedXMLの関数のため上記のエラーが発生しているのかと思われますが、
エラーの意味もよく理解できておりません。

お力を貸して頂ければと思います。

[参考にしているClosedXMLのプロパティのリファレンスはこちらです](https://github.com/ClosedXML/ClosedXML/blob/master/ClosedXML/Excel/Cells/IXLCell.cs)

【VB】ClosedXMLを使用してExcelのセルから値を取得する方法について

### 前提・実現したいこと

CLosedXMLを使ってExcelを開きたいのですが、パスが通らず開くことができません。何が足りないのかご教示願います。

### 発生している問題・エラーメッセージ

```
System.FormatException: '入力文字列の形式が正しくありません。'
```

### 該当のソースコード

```C#
var path = @"\Users******\source\repos\testapp\testapp\bin\Debug****.xlsx";
// Excelファイルを読み込み
using (var book = new XLWorkbook(path, XLEventTracking.Disabled))←ここでエラーが起こります。
{
var sheet = book.Worksheet("しーと");
sheet.Cell("A1").Value = "Value";
book.Save();
}
```

### 試したこと
var path = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "****.xlsx");

var path = Path.GetFullPath("..\****.xlsx");

Uri u1 = new Uri("C:\Users\*******\Desktop\");
Uri u2 = new Uri(u1, "..\****.xlsx");
var path = u2.LocalPath;

調べて出てきたこれらのコードは試しました。
しかしいずれもエラーを出しました。


追記
@"\Users******\source\repos\testapp\testapp\bin\Debug****.xlsx";　　
ここの部分を
@"C:\Users******\source\repos\testapp\testapp\bin\Debug****.xlsx";
と変えると
System.IO.DirectoryNotFoundException: 'パス 'c:\users******\source\repos\testapp\testapp\bin\Debug\Users******\source\repos\testapp\testapp\bin\Debug****.xlsx' の一部が見つかりませんでした。'
とエラーが出ます。


追記
            var path = @"＊＊＊＊＊.xlsx";
            String filename = path;
            if (File.Exists(filename))
            {
                MessageBox.Show("存在する");
            }
            else
            {
                MessageBox.Show("存在しない");
            }
このコードを実行したところ”存在する”が表示されました。
なのでやはりコード以外の場所で問題があるかもしれません。

追記
OpenXMLでも試した結果
var filename = @"C:\Users\＊＊＊＊\source\repos\testapp\testapp\bin\Debug\＊＊＊＊.xlsx";
            using (SpreadsheetDocument document = SpreadsheetDocument.Open(filename, false))
            {
                MessageBox.Show("開いた");
            }
これで実行したところ実行結果は”開いた”が表示されました。

追記
Excelを新規作成し、空のまま保存したものをClosedXMLで開こうとしたら開くことができた。

### 補足情報（FW/ツールのバージョンなど）
VisualStudio 2017
ClosedXML 0.93.1
Excel for Ofiice 365 MSO (16.0.10730.20053) 32ビット

ClosedXML Excelのパスが通らない

###前提・実現したいこと
ClosedXMLでエクセルファイルの生成を行い、CSVでデータを読み込んでいます。


###発生している問題・エラーメッセージ
セルの型を通貨型に設定したのですが、「1234」と入力された場合、
「1,234」ではなく「1234」のまま、表示されてしまします。
ダブルクリックの後、エンターを押下すると通貨型「1,234」に変換されます。

エクセルホームからセルの書式設定を確認すると、通貨型になっています。
###該当のソースコード
```ここに言語を入力
sheet.Range("A1:AA11").Style.NumberFormat.SetFormat("#,##0")
```

```ここに言語を入力
            Dim CSV As New System.Collections.ArrayList()
            Dim CSVData As New FileIO.TextFieldParser("C: \CSV.csv", System.Text.Encoding.GetEncoding(932))
            CSVData.TextFieldType = FileIO.FieldType.Delimited
            CSVData.Delimiters = New String() {","}
            CSVData.HasFieldsEnclosedInQuotes = True
            CSVData.TrimWhiteSpace = True
            While Not CSVData.EndOfData
                Dim fields As String() = CSVData.ReadFields()
                CSV.Add(fields)
            End While
            sheet.Range("A1").Value = CSV
            CSVData.Close()
```
A1からA11の範囲を通貨型で表しています。
###補足情報(言語/FW/ツール等のバージョンなど)
・ClosedXML 0.76.0
  https://closedxml.codeplex.com/releases/view/197852
・VS 2015
・VBで開発を行っております。C＃での知識でもご教授頂ければ幸いです。

ClosedXMLでExcel生成をする際の「セルの書式設定」について。

###発生している問題・エラーメッセージ
No 会社名 担当者名
といった感じに並んでいるタブ区切りの何百行とあるテキストデータを読み込んで、会社名別に担当者を振り分けたExcelファイルを作ろうと考え、ClosedXMLを利用してみました。ところが、13行目を読み込んだあたりでwb.SaveAs(tFiName);の箇所に、

> 同一のキーを含む項目が既に追加されています。

というエラーが表示され、書き込みができなくなります。当初テキストデータ自体が悪いのかと思い、エラーの出る行を冒頭に持っていくなど並べ替えてもみましたが、やはり13行目あたりで同じようなエラーがでています。結局別のファイルで試してみても似たような感じでエラーが出ました。

また、try catchでエラーを無視すると、3行ほどは同じようなエラーが出て、16行目あたりからは再び書き込みに成功し始めるようです。

ソースコードは下記のような感じです。1行読み込んで会社名からファイル名を生成、該当のファイルがなければマスターとなるExcelをコピー(tFiName)、そのファイルを開いて最終行に担当者名を追加、といった処理を加えています。

###該当のソースコード
```C#
tLine = sr.ReadLine();//StreamReaderでテキストデータを1行読み込み
tList = tLine.Split('\t');

//tFiNameに生成したファイル名が入っています
using (XLWorkbook wb = new XLWorkbook(tFiName))
using (IXLWorksheet ws = wb.Worksheet(2))
{
    row = ws.LastRowUsed().RowNumber() + 1;
    for (int col = 1; col < tList.Length + 1; col++)
    {
        IXLCell cell = ws.Cell(row, col);
        cell.Value = "'" + tList[col - 1];
    }
    wb.SaveAs(tFiName); //ここに該当のエラーが表示されます
    //wb.Save(); としても結果は一緒でした
    //wb.Dispose(); を加えても結果は一緒でした
}
//ここまでをテキストデータ最終行が来るまで繰り返す
```

###補足情報(言語/FW/ツール等のバージョンなど)
Windows10
Visual Studio 2012
Windows Formsで作成しています。

ClosedXML で『同一のキーを含む項目が既に追加されています。』のエラー

### 前提・実現したいこと

VisualStudio2022(2019)でClosedXMLを使用し「画像を貼り付けたエクセルファイル」を生成する際、例外が発生します。
理由・回避方法についてご存じの方、教えてください。
よろしくお願いします。


### 発生している問題・エラーメッセージ
生成したビットマップ ( new Bitmap( width, height ) )で生成した画像を AddPicture()に指定すると
　System.ArgumentNullException: '値を Null にすることはできません。
　パラメーター名:encoder'
が発生します。


### 該当のソースコード

```C#
/// <summary>
/// ボタン1をクリックしたときの処理です</summary>
/// <param name="sender">送信元情報</param>
/// <param name="e">イベント情報</param>
private void button1_Click(object sender, EventArgs e)
{
    //　画像ファイルから生成した imgは AddPicureできるが、new Bitmap(幅,高さ)で生成した画像は例外が発生する 
    var imagePath = @"....\メジロ＠神出神社 - 20210220B_2138_cr.jpg"; // 実行ファイルの2段上位フォルダ内
    using (var www = new Bitmap(imagePath) )
    using (var img = new Bitmap(www.Width / 5, www.Height / 5, PixelFormat.Format24bppRgb))
    using (var gra = Graphics.FromImage(img))
    using (XLWorkbook wb = new XLWorkbook())
    {
        // 縮小画像の描画
        gra.DrawImage(www, 0, 0, img.Width, img.Height);

        //ワークシートの設定
        var ws = wb.AddWorksheet("Sheet1");

        // AddPictureメソッドで画像を挿入  【OK 1】
        //var image = ws.AddPicture(imagePath);

        // AddPictureメソッドで画像を挿入  【OK 2】
        //var image = ws.AddPicture(www);

        // AddPictureメソッドで画像を挿入  【Error　System.ArgumentNullException発生】
        var image = ws.AddPicture(img);


        // (2,2)に移動
        image.MoveTo(ws.Cell(2, 2));

        // ワークブックを保存（実行ファイルと同じフォルダ）
        wb.SaveAs("file.xlsx");
    }
}

```

### 試したこと

ファイルから生成した場合（上記ソースコメント【OK 1】【OK 2】では、問題ないが（例外発生しない）
new Bitmap( 幅、高さ）の形で生成した画像だと例外が発生する？


### 補足情報（FW/ツールのバージョンなど）
Visual Studio 2022 (2019でも同様)
.NetFramework 4.8
ClosedXML  (nugetで取得）　0.95.4