VBでアクティブにしてあるEXCELを保存するには？

解決

SUGI 2004-08-06 11:05:40 No: 115441 IP: [192.*.*.*]

タイトルにありますように、アクティブにしてあるEXCELを
VBのコマンドで、保存用ダイアログを表示し、保存させたいのですが
うまくできません。
以下のようにしてみたところ、エラーは発生しませんでしたが、
指定したディレクトリにファイルが作成されていませんでした。

よろしくお願いします。

Private Sub Command1_Click()
Dim MyBookName As String
Dim myFlName As String
Dim xlApp as Eexcel.Application
'************エクセルブックを保存*************
'Book1をアクティブにする
    AppActivate "Microsoft Excel - Book1"
'ファイル名
    MyBookName = "Test"
'ファイル保存ダイアログを表示
    myFlName = xlApp.GetSaveAsFilename( _
    initialfilename:=MyBookName, _
    filefilter:="Excelブック(*.xls),*.xls")
End Sub

編集削除

SUGI 2004-08-06 13:44:04 No: 115442 IP: [192.*.*.*]

すいません解決しました。
お騒がせして申し訳ありませんでした。

編集削除