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

Question

VB初心者のプログラマ歴2年目です。
OpenXMLのライブラリClosedXMLを使用してExcelファイルを読み込み、
VB上で特定のセルの値を取得しようと試みていますが上手くいきません。
読み込んでいるExcelへの書き込みはできるのですが、取得ができない状態です。

以下、取得時に実行しているソースです。

Using workbook As New ClosedXML.Excel.XLWorkboook("ここにはパスとファイル名を記載しています")
 Dim sheet = workbook.Worksheet(1)
 MessageBox.Show(sheet.Cell("A1").GetString())
End Using

実行した際、「オブジェクトはIConvertibleを実装しなければなりません」というエラーメッセージが表示されます。
GetStringがClosedXMLの関数のため上記のエラーが発生しているのかと思われますが、
エラーの意味もよく理解できておりません。

お力を貸して頂ければと思います。

参考にしているClosedXMLのプロパティのリファレンスはこちらです

Answer 1

sheet.Cell("A1").Value ではダメなんでしょうか？

MessageBox.Show(sheet.Cell("A1").Value)

Comments

[ohnebow]

ご回答いただきありがとうございます。
ご教示いただいたコードを試したところ同様のエラーが返ってきました。
.Valueでは取得ができないようです。

Answer 2

GetStringはCellのDataTypeがTextの場合に使える関数だったと記憶しています。
そのセルが数字(Number)とか日付(DateTime)の場合はエラーになったように思います。

MessageBox.Show(sheet.Cell("A1").DataType)

を試してみて下さい。

Comments

[ohnebow]

ご回答いただきありがとうございます。
ご教示いただいた通りに実装したところ解決しました！
取得したいセルには数字が入っていました。
セルのデータ型によって使える関数が変わるとは思いませんでした。
大変勉強になりました。

[ohnebow]

申し訳ございません。
よく確認したところ、取得したいセルには数式が入っており、
計算式の結果が表示されるようになっているのですが、
DataTypeでは計算結果の値を取得することができませんでした。

[i50]

計算結果のキャッシュを取得する、という方法で取得が出来たと思います。

一度、Excelで開いたシートであれば、
sheet.Cell("A1").HasFormula
でチェックしてから、
sheet.Cell("A1").ValueCached
で取得できたと思います。

ちょっとお試しください。

[ohnebow]

sheet.Cell("A1").HasFormulaの結果でTrueが戻ってきているため、
数式があることはVB側で認識できているようです。

If sheet.Cell("A1").HasFormula Then
MessageBox.Show(sheet.Cell("A1").ValueCached)
Else
と記述して返ってきた値を確認したところメッセージボックスには何も表示されませんでした。

[i50]

おや・・・手元のClosedXMLで計算式をのセルを試してみましたが、うまくいきました。

もしかすると、Excelのアプリ自体で一度も開かれていないシート、という可能性はありますか？
ClosedXML自体はExcelのアプリのように、全セルの計算式を実行する、
という機能はなかったように思うので、
一度、Excelのアプリでシートを開き、計算させる必要があったと思います。

こういう手

sheet.Evaluate(sheet.Cell("A1").FormulaA1)

も、無いことはないですが、Excelの関数が全て網羅されているわけじゃなかったと思うので、
あまりオススメできなかった記憶があります。

[ohnebow]

すみません、
対象のファイルがExcelのアプリ自体で展開されているか確認できておりませんが、
恐らく展開されていないと思います。。。

対象のセルは単純な加算でしたので、
sheet.Evaluate(sheet.Cell("A1").FormulaA1)を試してみましたが、
計算結果の値ではなく計算式が取得されました。

考えていた方式では実装が難しそうですので、別の方法で処理を考えたいと思います。

大変お手数をお掛けしました。
一緒に考えてくださりありがとうございました。
一旦回答を締め切らせていただきます。