|
初めて投稿させていただきます。
エクセルの挿入ーオブジェクトーファイルーアイコン表示にチェックして、PDFファイルが挿入された申請書をデータでもらい、挿入されたPDFファイルを所定のフォルダに別名保存したいのですが、可能でしょうか?
リンクされているファイルを開くと、acrobat readerのファイルメニューには、『コピーを保存』と、
通常メニューと異なるようです。
Sub Test()
Dim WrkObj As Object
Dim BookName As String
BookName=ThisWorkbook.Name
For Each WrkObj in ActiveSheet.OLEObjects
ActiveSheet.OLEObjects(WrkObj.Name).select
Selection.Verb Verb:=xlPrimary
→ここで保存させたい(保存ファイル名=Workbooks(BookName).Path & Application.PathSeparator & Shinsei_temp & CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveWindow.Caption)
ActiveWindow.close
Next
End Sub
ActiveWindow.close にFileName:=を付けてみたりいろいろ試したのですが...
よろしくお願い致します。
|
|