タイトル | : 値を Null にすることはできません |
記事No | : 11062 |
投稿日 | : 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
何かいい解決策があれば、教えてください。 お願いします。
|