tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 値を 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

何かいい解決策があれば、教えてください。
お願いします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。