タイトル : Re^6: ホームページの保存をしたい 投稿日 : 2008/02/10(Sun) 18:37 投稿者 : Do_Shirouto
> > Learning Editionです。 > > No.169 の方を使って見て下さい。 > > 又は、VB のProfessional Edition 以上を使うとか。 花ちゃんさん色々有難う御座いました。 MSINET.Ocxなどダウンロードしても上手くいかず。 (Inet1.がフォームに張り付かない) そのかわりサンプルソフトが見つかり、 コードの内容は私には理解できませんが、 下記でやってみます。 '----------------------------------- Private Sub Command1_Click() Dim FilePath As String FilePath = "E:\Sample6.mht" With CreateObject("InternetExplorer.Application") .Visible = False .Navigate "URL" End With Dim O As Object Set O = CreateObject("CDO.Message") O.CreateMHTMLBody "URL" O.GetStream().SaveToFile FilePath End End Sub '------------------------------------------------ ただ上書き保存が出来ないようです。 本当に有難う御座いました。 |