| 投稿日 | ： 2003/09/09(Tue) 18:01 |
| 投稿者 | ： 聖 |
| ＵＲＬ | ： |
| タイトル | ： WebBrowser上で開いたExcelの保存 |
はじめまして。聖と申します。
よろしくお願いします。
環境はWindows2000, VisualBasic6.0です。
WebBrowser上にエクセルのファイルを開き、エクセルにWebBrowser上で変更を加えます。
それをプログラム上から別名保存する、ということをしたいと思っています。
こちらのHPの方も参考にさせていただきつつ、以下のようにしてみました。
Private Sub Form_Load()
WebBrowser.Navigate "file:///C:\temp\aaa.xls"
End Sub
Private Sub Command1_Click()
Dim oRet As Object
Set oRet = GetObject(, "Excel.Application")
With oRet
.DisplayAlerts = False
With .ActiveWorkbook
.SaveAs FileName:="C:\temp\bbb.xls"
.Close
End With
.Application.Quit
End With
Set oRet = Nothing
End Sub
試しにエクセルを単独で起動させておいて実行してみるとうまく保存できるのですが、
WebBrowser上で起動しているエクセルの場合はどうもうまくいきません。
GetObject(, "Excel.Application")まではいいみたいなのですが、
SaveAsのところで、「オブジェクト変数または、Withブロック変数が設定されていません」
というエラーが出てしまいうまくいきません。
WebBrowser上で開いたエクセルを上記の方法で保存することは可能なのでしょうか？
どなたかご存知の方、ご教授お願いします。