tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルDAOで空白セルのあるエクセルを読込む方法
記事No12765
投稿日: 2008/07/12(Sat) 22:12
投稿者あさ
DAOでエクセルファイルの内容を読込む処理を参考にさせて頂きました。

掲載頂いているエクセルのサンプルは、全行、全列に対して、
値がすべて埋まっているものですが、値がすべて埋まっていない
下記の様なエクセル内容の場合、どのようにプログラミングすれば
良いか教えて下さい。

単純に、サンプル通り作成し、実行すると
.Fields(i)を扱う文章で、
「実行時エラー94 Nullの使い方が不正です」というエラーになってしまいます。

たとえば、X=.Fields(i)という文章に対して、該当セルの値が空白の場合、
X="" という値で扱いたいです。 

タイトル1 タイトル2 タイトル3 タイトル4
A     B     1.1     1
A     B
A           2.1

すみません、VBでエクセルを扱う事が初めての初心者です。
よろしくお願いいたします。

[ツリー表示へ]
タイトルRe: DAOで空白セルのあるエクセルを読込む方法
記事No12766
投稿日: 2008/07/12(Sat) 22:43
投稿者花ちゃん
> 「実行時エラー94 Nullの使い方が不正です」というエラーになってしまいます。

エラーメッセージをキーにして検索をかけて見て下さい。

[ツリー表示へ]
タイトルRe^2: DAOで空白セルのあるエクセルを読込む方法
記事No12767
投稿日: 2008/07/12(Sat) 23:12
投稿者あさ
すみません、ワード検索で「実行時エラー 94」「実行時エラー 94」
「Nullの使い方」で検索したのですが、見つかりません
(No1およびNo2も検索しました)

[ツリー表示へ]
タイトルRe^3: DAOで空白セルのあるエクセルを読込む方法
記事No12768
投稿日: 2008/07/12(Sat) 23:21
投稿者あさ
Yahoo全体で検索したら見つかりました。

If IsNull(.Fields(i)) Then
    in_x(i + 1) = ""
Else
    in_x(i + 1) = .Fields(i)
End If

これで解決しました。

ありがとうございました。

[ツリー表示へ]