Excel VBA(エクセル マクロ) WebデータベースそのA ホームページデータ文字列解析

ホームページのデータを取り込んだが使用できる値ではない。
使用可能な値を取り出そう。

前回、Excelでホームページを取り込むことに成功した。

だが、取り込んだ値は利用できる値となっていない。

文字列解析を行って、必要な値のみ取り出し、使用可能な値とする。


ホームページで取り込むと、大体同じ位置に値が入る。

それを利用する。


たとえばC37に「12,666.04 ▼ −86.17」が入っているとする。

ここから12,664.04を取り出すことを考える。

まず、「12,666.04 ▼ −86.17」で12,666.04の終わりの文字が何番目にあるか取り出す。

終わりは半角スペースのため、以下の関数を使用する。

=SEACH(" ",C37)

そうすると10と言う値が出てくる。

VBAではInStr関数を使用しているが、あえてExcelの標準関数を使用した。

次に、1〜9番目の文字が12,664.04となるので、C37から以下の関数を用いて値を取得する。

=MID(C37,1,9)

これで12,664.04が取り出せる。


しかし、油断は禁物。

=Type(C37)とやると2がでてきて文字列となっている。


数値へ変換する。

=VALUE(C37)


これで数値化され、活用できる値となった。


C44に入っている「110.01-110.06」と言う値の中から110.01を取り出す場合、今までの関数をまとめて1行で書いてみる。

=VALUE(MID(C44,1,SEARCH("-",C44)-1))

これで数値化されて110.01が取り出せる。


以上で必要な値を取り出すことに成功した。


次はこの値をエクセルのシートに追記していくことを考える。

VBAを使用しない方向で考えているが、果たしてシートへの値追記は可能であろうか??

忍者Admaxのテキスト広告で収入UP!

実践!ExcelデータベースTOP