タイトル : 値を Null にすることはできません 投稿日 : 2013/02/26(Tue) 10:22 投稿者 : kuni
はじめまして。 実は、vb.netのエラーで質問があります。 エクセルのデータをリストボックスに書き出すプログラムを作っていまして、 エクセルのデータがスペースになったら処理をやめる様にしているのですが、 エクセルがスペースになったところで、 「値を Null にすることはできません。」というエラーメッセージが出てしまいます。 それが以下のコードです。 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load xlsApp = New Excel.Application xlsBooks = xlsApp.workbooks xlsBook = xlsBooks.Open(GetAppPath() & "\サンプルファイル\得意先マスター") xlssheet = xlsBook.Worksheets(1) i_Row = 2 i_Clm = 1 Do Number = NullOrNothing(Str(xlssheet.Cells(i_Row, i_Clm).value)) If Number Is Nothing OrElse Number = "" Then Exit Do Else ListBox1.Items.Add(xlssheet.Cells(i_Row, i_Clm).value) End If i_Row = i_Row + 1 Loop xlsBook.Close() xlsApp = Nothing xlsBooks = Nothing xlsBook = Nothing End Sub Public Shared Function GetAppPath() As String Return System.IO.Path.GetDirectoryName( _ System.Reflection.Assembly.GetExecutingAssembly().Location) End Function Public Shared Function NullOrNothing(ByVal Txt As String) As String If Txt Is "Null" Then NullOrNothing = Nothing Else NullOrNothing = Txt End If End Function End Class 何かいい解決策があれば、教えてください。 お願いします。 |