VBでアクティブにしてあるEXCELを保存するには？ (ID:115441)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 タイトルにありますように、アクティブにしてある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