こんにちは。
どなたか教えてください。

過去ログを参考にしながら、ＰＢからExcelの既存ファイルのあるシートのセルに
データを編集するプログラムを作成しようとしました。
すると、作成できるのですが、そのxlsファイルを開くと、シートが非表示に
なってしまい、わざわざ再表示しないと中身を見ることができません。
シートが非表示にならないようにするにはどうしたらよいのでしょうか。
myoleobject.application.visible = true
を記入しても変わりません。
Excelはとりあえず2000を使用しています。
テスト用に書いてるスクリプトが下記です（ぱくりです^_^;）
よろしくお願いします。

****
OLEObject myoleobject,lo_excel
myoleobject = CREATE OLEObject

result = myoleobject. ConnectToObject( \"C:\\Book1.xls\")
//出力する
FOR i = 1 TO 10 //行数分のループ
  myoleobject.application.workbooks(1).worksheets(1).cells(i, 1).value = \"TEST\"
NEXT
//ＥＸＣＥＬを保存してＯＬＥオブジェクトを切り離す
result2 = myoleobject.application.workbooks(1).save( )

IF result2 <> True THEN
MessageBox(\"保存失敗\",\"EXCELファイルの保存に失敗しました。\")
ELSE
MessageBox(\"完了\",\"EXCELファイルの保存が終了しました。\")
END IF
myoleobject.DisconnectObject ( )
DESTROY myoleobject