常連

### (vb.net)closedXMLでExcel 関数の入ったセルのValue値を取得したい

vb.netで１つ目のxlsmファイルで数値を入力し、セルに入力した関数で計算した結果を
２つ目のxlsmファイルへコピーするプログラムを作成しています。

closedXMLを用いて作業しているのですが、
文字列や数値の入力されたセルのValueは取得できたのですが、
関数が入っているセルのValueを取得しようとしても
Bad expression のエラーとなります。

取得したいセルの関数式を記しますので、
問題箇所の改善方法をご教授願います。

### 発生している問題・エラーメッセージ

Bad expression

### 該当のソースコード

```
vb.net
workseet1:取得元Excelｼｰﾄ
workseet2:コピー先Excelｼｰﾄ

worksheet2.cell("A1").value = worksheet1.Cell("A2").Value
```

```
worksheet1のA2セルの関数

=IF(OR(E3="",S3="" S3<0),"",IF(OR(AE3="",AF3="",AG3="",AH3=""),"",(AE3+AF3+AG3+AH3)))

※各セルに入っている値
E3：文字列
S3,AE3,AF3,AG3,AH3:数値
```


### 補足情報（FW/ツールのバージョンなど）

動作環境
.Net Framwork4
closedXML(ver0.95.3.0)

(vb.net)closedXMLでExcel 関数の入ったセルのValue値を取得したい

### 前提

言語：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でファイルの読み込み及び保存の速度改善

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を使い、指定した列の最終行を取得するには

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のセルから値を取得する方法について

### 前提・実現したいこと

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

C# ClosedXMLを使用した「画像貼り付けエクセルファイル生成」プログラムで例外発生

### 前提・実現したいこと

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のパスが通らない

###発生している問題・エラーメッセージ
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 で『同一のキーを含む項目が既に追加されています。』のエラー

###前提・実現したいこと
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＃での知識でもご教授頂ければ幸いです。