| |
▼こう さん：
今日は雨が降っていて肌寒いですね。
今回はちょっと質問が長いです。すみません。
わかる範囲及びお時間のある時で結構ですのでご説明頂ければ幸いです。
>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プロパティを取得できません。
となってしまいます。
|
|
まつじゅん
- 03/4/15(火) 11:20 -
