Excel VBA(エクセル マクロ) WebデータベースそのB ホームページデータを日付ごとに追加

ホームページのデータを日付毎に追加し、
データベースを構築する(手動)。

前回、Excelでホームページのデータを使用できる値(数値)にすることに成功した。

次はデータベースとして使用するために、日付毎にデータを追加するプログラムを作成する。

VBAを使用することとなり、現在のところボタンによる手動である。

将来は完全自動化を目指す!!


Sub コピー()
Dim Line As Integer, flag As Integer

Line = 3
flag = 0
Do Until Cells(Line, 1).Value = ""
If Cells(Line, 1).Value = Date Then
flag = 1
End If
Line = Line + 1
Loop
If flag = 0 Then
Cells(Line, 1).Value = Date
Cells(Line, 2).Value = Sheets("株価").Cells(224, 2).Value



End If
End Sub


今日の日付(Dateで取得)で各値が取得されていれば何もしない、取得されていなければ追記していく。

3行目から値を追記していく(1,2行目は題目として使用したため)。

Do Until〜Loopで1列目について値がなくなるまで今日の日付があるかどうかチェックする。

あればflagの値を1にし、無ければ0のままである。

Lineの値を1増やすことにより3行目から下の行へ順次調べていく。

If flag = 0 Then 〜 End Ifで、flagが0(今日の日付が無い)場合追記する。

Cells(Line, 1).Valueでは、Do Until〜Loop分でLineを1ずつ足していて、値が無い行の位置になっているので、この行に代入する。

Cells(Line, 1).Value = Date
Cells(Line, 2).Value = Sheets("株価").Cells(224, 2).Value

ここでは1列目に日付をいれ、2列目以降、そのAで作成した値を入れていく。

【ツール】→【マクロ】→【Visual Basic Editor】で実行するのは面倒なので、

【表示】→【ツールバー】→【フォーム】でボタンのマークを選んでボタンを作成し、マクロ登録すれば、ボタンを押すと自動的に値が入るようになる。


ここまでは作成できた。

パソコンを立ち上げ、エクセルシートを開き、ボタンを押し、セーブするという行動が手動である。

これが自動になれば。。


次は完全自動化を目指す!!


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

実践!ExcelデータベースTOP