esp@cenetが公開しているPDF公報をダウンロードするVBAマクロ
掲載されているマクロを、新しいモジュールに丸ごと貼付ければいいですね。
Sampleという名前のマクロを実行します。
なお、このSampleマクロの特許番号や保存先のフォルダをご自身で指定する必要があります。
掲載されているマクロの以下の部分です。
Public Sub Sample()
GetPatentPDF "JP10000002", "C:\Test"
End Sub
青文字部分が公開公報や特許の番号、赤文字部分が保存先のフォルダですね。
ここのところだけ、以下のように変更してもいいかもしれません。
Public Sub Sample()
Dim myNumber As String
Dim myFolderPath As String
Dim fld As FileDialog
'保存先フォルダの選択
Set fld = Application.FileDialog(msoFileDialogFolderPicker)
If fld.Show = 0 Then Exit Sub
myFolderPath = fld.SelectedItems(1)
'公開公報番号の入力
myNumber = StrConv(InputBox("番号を入力してください。", "番号の入力"), vbNarrow)
If myNumber = "" Then Exit Sub
GetPatentPDF myNumber, myFolderPath
End Sub
▼このマクロでできること
保存先のフォルダと番号を入力すると、対応する公報がある場合に自動でダウンロードして指定したフォルダに保存します。
![1](https://emoji.ameba.jp/img/user/re/red-emperor/40192.gif)
以下の例では、デスクトップのtestというフォルダを指定しました。
![みんなのワードマクロ](https://stat.ameba.jp/user_images/20120727/18/gidgeerock/39/31/p/t02200176_0640051212101600227.png?caw=800)
![2](https://emoji.ameba.jp/img/user/re/red-emperor/40193.gif)
全角でも半角でもかまいません。
大文字でも小文字でもかまいません。
![みんなのワードマクロ](https://stat.ameba.jp/user_images/20120727/18/gidgeerock/f5/c2/p/t02200076_0429014912101600226.png?caw=800)
![3](https://emoji.ameba.jp/img/user/re/red-emperor/40194.gif)
なんどパスワードの入力不要!
![みんなのワードマクロ](https://stat.ameba.jp/user_images/20120727/18/gidgeerock/f6/d0/p/t02200190_0700060512101600228.png?caw=800)
どうぞご活用ください。
いつもきぬあささんのマクロには驚かされます。
▼関連記事
エスパスネットのリンク自動作成マクロ
▼お知らせ
インストラクターのネタ帳 の管理人の伊藤潔人さん(Microsoft Excel MVP)とコラボセミナーをします。
ExcelマクロユーザーのためのWordマクロ入門セミナー
今週末の7月29日(日)です。
その後の懇親会も、多数ご参加を予定いただいております!!
きぬあささんも来ていただけるとのことですし、楽しみですね。
お手柔らかにお願いいたします(笑)。