ttlの結果をエクセルに貼り付ける

; ログイン用パスワード
passwd = "mypassword"

; エクセルからコマンドファイル名を取得
cmd_file = TTX.Arguments(0)

; Teratermの設定
set $telnet_port = 22
set $user = "myuser"
set $host = "myhost"
set $timeout = 1000
set $result_log = "C:\teraterm\result.log"

; ログイン
connect $telnet_port
wait "password:"
sendln passwd
wait "#"

; ログ取得開始
logopen $result_log

; コマンドファイルを実行
do $cmd_file

; ログ取得終了
logclose

; Teratermを終了
sendln "exit"

; エクセルにログを貼り付け
set Excel = CreateObject("Excel.Application")
set Workbook = Excel.Workbooks.Open("C:\teraterm\result.xlsx")
set Sheet = Workbook.Sheets(1)

row = 1
Open $result_log For Input As #1
Do While Not EOF(1)
    Line Input #1, line_content
    Sheet.Cells(row, 1).Value = line_content
    row = row + 1
Loop
Close #1

Workbook.Save
Excel.Quit