以前教えていただいたことがあります。その時は大変お世話様でした。

今回も教えていただきたいのです。（そのときのハンドルネームは忘れました）

Excelファイルから文字列のバイト数を取得したいのですが、すべてのセルに文字が入っているのではなく、空白セルもあり、それが絡んで『ArgumentNullException』のエラーが出てしまいます。

以下の書き方をどのように直したら良いのか教えていただけないでしょうか。

Do Until Suu = 0

    Dim bu1 As String = xSheet.Cells(Gyo, 4).Value  

    If bu1 = " " Then

        xSheet.Cells(Gyo, 5) = 0
        
        Exit Do

     Else

        xSheet.Cells(Gyo, 5) = System.Text.Encoding.GetEncoding　("shiftjis").GetByteCount(bu1).ToString()
     End If

     Gyo = Gyo + 1
     Suu = Suu - 1

   Loop

空白セルのバイト数は "0" にして後の処理に繋げていきたいので空白セルは削除出来ません。


『半角１バイト・全角２バイト換算での文字列のバイト数を取得する。』を拝見させていただきましたが、
『VB.NET には LenB 関数はありません。』となっています。

以前の掲示板でcamputerさんが『レイトバインドするとExcelのFindNextオブジェクトが開放できなくなります』
とあり、私の質問に近いような気がしますが未熟者で理解出来ませんでした。

環境：VB2008＋Vista＋Excel2007です。

よろしくご指導のほどお願いします。

他人のメールアドレスを意味もなく投稿しないでください。
前回も投稿されていて注意したはずですが。
http://hanatyan.sakura.ne.jp/vbnetbbs/wforum.cgi?mode=allread&no=9383&page=210

掲示板等へ直接投稿されますと、収集されスパムメールの元になりメールアドレスを
変更する等せざるを得なくなります。

至急、下部の修正から、メールアドレスを削除しておいてください。


まず、
>『半角１バイト・全角２バイト換算での文字列のバイト数を取得する。』を拝見させていただきましたが、
見ても間違った(思い込みによる間違ったコード)コードを書いていては何にもなりません。
(投稿されたコードは実際に使っていたものですか？　投稿用に書き直したコード？)

そもそも If bu1 = " " Then　の行は何をしようとしているのですか？
>ArgumentNullException』のエラーが出てしまいます
ArgumentNullException のエラーが出ているのなら、事前に　 bu1 が  vbNullString　か
どうかを調べ、 vbNullString なら "0" か "" に置き換えればいいのでは。
If bu1 = vbNullString Then
    xSheet.Cells(Gyo, 5) = 0
じゃないのですか？

> 他人のメールアドレスを意味もなく投稿しないでください。
大変失礼をしました。
メールアドレスに置き換えないと投稿出来ないものと思っていました。
申し訳ありませんでした。

教えてもいただき本当に有り難うございました。

> > 他人のメールアドレスを意味もなく投稿しないでください。
> 大変失礼をしました。
> メールアドレスに置き換えないと投稿出来ないものと思っていました。
> 申し訳ありませんでした。

だったら、すぐに削除しておいてください。
(Google のキャッシュに収集されるので、. を入力して予防はしておりますが、
私が消すべき事でもないので)

大変お手数おかけしました。

以後気をつけます。

お世話様でした。

今、先ほど教えていただいたこともうまくいきました。

本当に有り難うございました。