# Excelを操作する為の宣言
$excel = New-Object -ComObject Excel.Application
# 可視化する
$excel.Visible = $true
# 既存のExcelファイルを開く
$book = $excel.Workbooks.Open("D:\aaa.xls")
# Table 初期化
$btbl = $null
$bidx = 0
# CELLを読む
# シート名は「a1」
# 4行目から、40行目までの、偶数列のCELL値をテーブルに登録する。
$sheet = $book.Worksheets.Item("a1")
for($i = 4; $i -lt 40; $i++)
{
$sys = $sheet.Cells.Item($i, 2).value()
$pac = $sheet.Cells.Item($i, 6).value()
$cat1 = $sheet.Cells.Item($i, 8).value()
$cat2 = $sheet.Cells.Item($i, 10).value()
$mode = $sheet.Cells.Item($i, 11).value()
$cmd = $sheet.Cells.Item($i, 12).value()
# 内容をテーブル登録する
$btbl +=,@($sys,$pac,$cat1,$cat2,$mode,$cmd)
}
# テーブル内容の表示
$btbl
# Excelを閉じる
$excel.Quit()
# プロセスを解放する
$excel = $null
久しぶりに多摩川本場に行った。戦績はそこそこだった。
桜は、まだ残っていた。
牛筋カレーが、値上がりしていた。
穏やかな春という感じに見えるが、５～６ｍの風がすっと吹いていた。
本日の河上選手：児島５日目
３R ６号艇 ６コース進入
なんと、トップスタート ０８で、捲り差してピン！
３万舟～～～～
９R ４号艇 ５コース進入でブービー
