VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/09/11(Thu) 10:11 |
| 投稿者 | ： 聖 |
| ＵＲＬ | ： |
| タイトル | ： 解決しました |
K.J.K.さん、ありがとうございました。
解決しました。
望み通りの動きができました。
一応、ソースを載せておきます。
WebBrowser上に開かれているファイルがExcelかWordか判定して、
名前を付けて保存するというものです。
Private Sub Form_Load()
WebBrowser.Navigate "file:///C:\temp\aaa.xls"
' WebBrowser.Navigate "file:///C:\temp\bbb.doc"
End Sub
Private Sub Command1_Click()
Select Case TypeName(WebBrowser.Document)
Case "Workbook"
WebBrowser.Document.SaveAs FileName:="C:\temp\SaveFile.xls"
Case "Document"
WebBrowser.Document.SaveAs FileName:="C:\temp\SaveFile.doc"
End Select
End Sub
改めて、K.J.K.さん、本当にありがとうございました。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）