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

解決


SUGI  2004-08-06 20:05:40  No: 115441

タイトルにありますように、アクティブにしてある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 22:44:04  No: 115442

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加