くぴんのブログ

プロフィール

くぴん７４

フォローする

フリーページ

家電

(1)

バックナンバー

2024年11月
2024年10月
2024年09月

2024年08月
2024年07月

お気に入りブログ

2024～25主力株概況3… New! みきまるファンドさん

DOW 44860.31 +123.7… New! どらりん0206さん

楽天ラッキーくじ更…

じゃっかすさん

自分を愛することは… まりあのじいじさん
パワーアシストロボ… jhiranoさん

ニューストピックス

キーワードサーチ

▼キーワード検索

< 新しい記事

新着記事一覧(全4785件)

過去の記事 >

2013年06月26日

以下の74の論文をダウンロードする必要に迫られ、"エクセルVBA pdfダウンロード"でググると参考になるサイトが見つかった。

http://www.dynalook.com/9th-european-ls-dyna-conference

それを編集して、以下のコードを書き、無事、自動ですばやくすべての論文をダウンロードできた。

-----ここから
Option Explicit

Declare 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 'API宣言
Sub sample()
Dim i As Integer
Dim folder As String
Dim url As String

folder = "C:\test\" '保存フォルダ(最後は\に)
For i = 1 To 74
url = Cells(2 * i + 2, 1)
file = Mid(url, InStrRev(url, "/") + 1) & ".pdf" 'ファイル名(urlの最後の"/"の後ろ(???.pdf))
URLDownloadToFile 0, url, folder & file, 0, 0 'ファイルダウンロード
Next
End Sub
-----ここまで

Cドライブ直下にtestフォルダを用意する必要がある。
ここにpdfが保存される。
Sheet1には、上のサイトのpdfのurlを1行おきにコピペしている。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13101543148