RGB値をExcelにエクスポートできませんか？

質問

画像のRGB値をExcelにエクスポートしたいのですが…、どなたか教えていただけませんか？

回答No.5

quenista

＞Static buf(383　*　3) As Byte
では無く、元の数値の383が、128*3の値です。
つまり、Ｘサイズが128固定なので、この数値になって居ますが、今回は可変にしたいと言う事ですので、使用するＸサイズの最大値＊3の値を入れると言う事に成ります。
例えば、ＭＡＸを640とするなら、
Static buf(1919) As Byte
と記述すれば良いと思います。

先ず、このプログラム中のBmp.biWidthがＸサイズ，Bmp.biHeightがＹのサイズですね。

＞＞Getの時に、Bmp.biWidth＊3の長さで読み出す様にする。のところは
＞For i = 0 To Bmp.biWidth　*　3 - 1
＞でいいのでしょうか？
先程のBufの設定で、Bufの確保は出来てますので、
今度は、読み込む所を直してやる必要があります。
つまり、
Get #1, , buf 'One Line Reading...
の行で、データサイズ指定で読み込めば良いのです。
（引数の場所等は、ちと手元に資料が無いので、調べて見て下さいね。）

その時のデータサイズが、(Bmp.biWidth*3-1) の値を指定すれば良いのです。

For文のところは、元々Bmp.biWidthでデータを取得してますので、可変長の対応が出来てると思って良いです。

＞＞このプログラムでは、パレットデータには対応してないので、24BitフルカラーのＢＭＰに変換して置いてから、使う必要が有りますね。
＞＞（確かに、パレット対応すると手間ですからね。）
＞のところを少し詳しく教えてください。
一言で、BMP形式と言っても、幾つかの種類が有ります。
例えば、モノクロ２階調やモノクロ２５６階調，カラー２５６色，フルカラー等です。
その中で、このプログラムはフルカラーにのみ対応している様です。

フルカラー以外は、
＞If Bmp.biBitCount <> 24 Then 'Full Color Image?
ではじかれる様になってます。

＞それから、Global Data(128, 128)の宣言はこのプログラム(テキストから抜粋)に続きがあるのでそこで使われるのだと思います…。
サイズ制限を可変長にする為には、ここの値を使ってるのであれば、修正してやる必要が有りそうな感じ（以後のプログラッムが解らないので、何とも言えませんが。）です。
全く、使用してないなら、削除しても問題無いと思いますよ。

＞ばかばかしい質問でしょうがどうか宜しくお願いします。
いえいえ。
ちゃんとやり取りをして頂けるので、こちらもアドバイスしてて楽しいです。（^_^）

かなり余談ですが．．．。
次に回答出来るは、１１時以降になると思います。（もし、待っておられると悪いので．．．。）

補足

quenistaさん、いままでねばったのですが、どうしてもうまくいきません…。
申し訳ありませんが、もう少し教えてください。
quenistaさんの前回の回答に習って、Bufの確保まではわかったのですが、
その次のデータサイズ指定で読み込む方法がわかりません。
For文のところは可変長の対応が出来てるということは
Bmp.biWidth-1
と
Bmp.biHeight-1
はいじらなくてもいいということでしょうか？