Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


76210 / 76738 ←次へ | 前へ→

【4952】ちょっと発見したかも?!
質問  まつじゅん  - 03/4/15(火) 11:20 -

引用なし
パスワード
   ▼こう さん:
今日は雨が降っていて肌寒いですね。
今回はちょっと質問が長いです。すみません。
わかる範囲及びお時間のある時で結構ですのでご説明頂ければ幸いです。

>http://www.vector.co.jp/vpack/filearea/win95/prog/dll/index.html
>を参照すると。FTPとかHTTPとかの操作を行ってくれるDLLなんかが
>あり,おそらくサンプルソースや使用方法なんかも親切に記述している
>製品があるのではないかと...
>あっ,フリーソフトもありますね。(あとは使用条件の問題か...)

DLしてみたのですが・・・いまいち使い方がわからず
撃沈です。
(以前教わった方の物だと思いますが・・・)

>あってますよ。^_^
>「奴」っていうよりは,プロトコル(手順)ですね。
>コマンドファイルを作って,「ftp -s:コマンドファイル」とか...
>#今日テスト用サーバが落ちてるので検証できません。
>#必要であれば後日確認します。

わっ。あってましたかぁ・・・(ちょっと嬉しい)
しかし・・・すみません!!言葉使いが悪すぎですね。(反省)
お時間ある時で結構ですので宜しくお願い致します。


あれから色々参考書とか雑誌とかを買いました。
ちょっとヒントになりそうなものを見付けたのですが
この「画像取得」の方法を改造すれば
ひょっとして丸ごとファイルフォルダを取得出来るかなぁ?っと思ったのですが
自分でやるには やはりまだまだ知識が足らない事を実感中です。

Sub pitc()
  '参照設定 Microsoft Internet Controls
  '参照設定 Microsoft HTML Object Library
  Dim myIE   As InternetExplorer
  Dim myDoc   As MSHTML.HTMLDocument
  Dim myImg   As MSHTML.HTMLImg
  Dim mySiteUrl As String
  Dim i     As Long
  mySiteUrl="http://mugen1020.cool.ne.jp/"  '検索先のURL 例自分のhp
  Set myIE = New InternetExplorer
  With myIE
    .Navigate mySiteUrl
    Do While .Busy
    Loop
    Do Until .ReadyState = READYSTATE_COMPLETE
    Loop
    Set myDoc = .Document
  End With
  i = 0
  Cells(1, 1).Select  'セルを設定
  With myDoc
    If .frames.Length > 0 Then
      For i = 0 To .frames.Length - 1
        For Each myImg In .frames(i).Document.images
          With ActiveSheet.Pictures.Insert(myImg.src).BottomRightCell
            Cells(.Row + 1, 1).Select
          End With
        Next
      Next
    Else
      For Each myImg In .images
        With ActiveSheet.Pictures.Insert(myImg.src).BottomRightCell
          Cells(.Row + 1, 1).Select
        End With
      Next
    End If
  End With
  myIE.Quit
  Set myIE = Nothing          'オブジェクト終了
  Set myDoc = Nothing
End Sub

この方法だと 現在使用中のsheetに画像が直接張り付けられます。
(ActiveSheetって書いてあるから当然ですよね?)
なので・・・
”画像ファイルを見付けたら 任意のファイルフォルダに画像を保存する”
って出来ないものでしょうか?

それと urlの設定でためしたのですが・・・
Topページのアドレスを入力する分には そこにある画像はSheet上に
表示されるのですが、
画像を保存しているファイルフォルダまでのアドレスを入力すると

With ActiveSheet.Pictures.Insert(myImg.src).BottomRightCell

↑この部分でエラー
実行時エラー'1004'
PicturesクラスのInsertプロパティを取得できません。
となってしまいます。
6 hits

【4849】特定のホームページから画像をダウロードさせる方法 まつじゅん 03/4/10(木) 14:47 質問
【4855】Re:特定のホームページから画像をダウロード... こう 03/4/10(木) 16:33 回答
【4869】Re:特定のホームページから画像をダウロード... まつじゅん 03/4/11(金) 11:58 質問
【4900】ダウンロードなら「wininet.dll」で・・・ こう 03/4/13(日) 16:24 回答
【4924】かなり高度な物っぽいのですが・・・ まつじゅん 03/4/14(月) 9:07 質問
【4927】コピーして張り付けるダケ。簡単♪ こう 03/4/14(月) 12:58 回答
【4929】大量の画像を一括でDL出来るのでしょうか? まつじゅん 03/4/14(月) 14:40 質問
【4934】追伸です まつじゅん 03/4/14(月) 16:27 発言
【4935】FTP こう 03/4/14(月) 17:10 回答
【4952】ちょっと発見したかも?! まつじゅん 03/4/15(火) 11:20 質問
【5002】Re:ちょっと発見したかも?! こう 03/4/16(水) 22:34 回答

76210 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free