投稿日 | : 2003/05/11(Sun) 19:54 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re^8: フレームで区切られたブラウザー |
HTMLDocumentオブジェクトにはIPersistFileインターフェイスがインプリメントされていますので、
TypeName(Document)が "HTMLDocument" という文字列を返しているのであれば、
Dim PF As IPersistFile
Set PF = Document
あるいは、
With New PersistFile
.SetObject Document
End With
の部分では、通常、エラーにはならないと思います。………多分(;_;)
> PF.Save FileName, 0&
> のところで『オブジェクトはこのプロパティーまたはメソッドをサポートしていません。』とエラーが出ます。
う〜む。。。何故でしょうか。。。
……もしかしたら、HTMLDocumentのバージョンにもよるのかも知れません。
タイプライブラリを参照設定した上で、
Dim P As IPersist
Dim X As CLSID
Set P = Document
P.GetClassID X
Debug.Print "{"; Right(String(8, "0") & Hex(X.Data1), 8);
Debug.Print "-"; Right(String(4, "0") & Hex(X.Data2), 4);
Debug.Print "-"; Right(String(4, "0") & Hex(X.Data3), 4);
Debug.Print "-";
For L = 0 To 1
Debug.Print Right(String(2, "0") & Hex(X.Data4(L)), 2);
Next
Debug.Print "-";
For L = 2 To 7
Debug.Print Right(String(2, "0") & Hex(X.Data4(L)), 2);
Next
Debug.Print "}"
を実行するとどうなりますでしょうか。
私の環境では、
{25336920-03F9-11CF-8FD0-00AA00686F13}
という文字列が得られ、それに対応するレジストリ項目
HKEY_CLASSES_ROOT\CLSID\{25336920-03F9-11CF-8FD0-00AA00686F13}\Version
には、"6.0"という文字列がありました。
> 読み込みに時間をかけるのはまだやっていません。
この場合は、
Private Sub Command1_Click()
MsgBox "保存開始"
SaveDocument "C:\TEST\", WebBorser1.Document
MsgBox "保存完了"
End Sub
のようなコードになります。