さまざまな種類のテストを実行するプログラムがあります。各テストには、設定可能なさまざまな設定があります。各テストで使用された設定をExcelファイルにエクスポートしようとしています。設定の値はさまざまなタイプ(Double、Integer、String、Boolean)である可能性があるため、今すぐ書き込みます。すべての設定がDictionary(Of String、Object)に格納されています。そのように辞書から値を再キャストしようとしていますが、DirectCastはtが好きではなく、タイプtが定義されていないと表示されます。CTypeも試しましたが、うまくいかないようです。設定のタイプはDictionary(Of String、Object)です。
Private Sub writeTestSettings(ByRef book As HSSFWorkbook, ByVal settings As Dictionary(Of String, Object))
Dim settingsSheet As HSSFSheet = book.CreateSheet("Test Configuration")
Dim i As Integer = 0
For Each key In settings.Keys
Dim row = settingsSheet.CreateRow(i)
Dim cell1 As HSSFCell = row.CreateCell(0)
cell1.SetCellValue(key)
Dim cell2 As HSSFCell = row.CreateCell(1)
Dim value As Object = settings(key)
Dim t As Type = value.GetType()
cell2.SetCellValue(DirectCast(value, t))
Next
End Sub