FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/06«│ 2019/07| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/08
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
07:24:15
Option Explicit
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Sub Download_File()

Dim lngRes As Long
Dim strURL As String
Dim strPath As String
Dim kijuPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
kijuPath = .SelectedItems(1)
End If
End With
Dim zzz As Variant
Dim i As Long
Dim j As Long
j = 1
Dim kazu As Long
kazu = WorksheetFunction.CountA(Range("a:a"))
zzz = Range("a1", Cells(kazu, 1))
For i = 1 To UBound(zzz)
If InStr(zzz(i, 1), "background-image:url(") <> 0 Then
strURL = zzz(i, 1)
strPath = kijuPath & "\" & j & ".png"
j = j + 1
lngRes = URLDownloadToFile(0, strURL, strPath, 0, 0)
End If
Next
End Sub

これでエクセルVBAを使用して画像がダウンロード出来るようになりました。






リボーン見終わって今は「ツバサ・クロニクル」を見ています。
リボーンすごくおもしろかった!!! 3回目だけどめっちゃ好き~~~。
ツバサは黒鋼が一番好き。やっぱり刀を使うキャラが一番好きなのかしら。リボーンも山本が一番好きだし。


これが欲しいよ><

コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/480-e81c1440
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

Author:はなかな
FC2ブログへようこそ!

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト