ｴｸｾﾙでﾌｧｲﾙ保存のﾏｸﾛを教えて下さい｡ A列にはﾌｧｲﾙ名が入力してあります｡ﾌｧｲﾙ名はｴｸｾﾙやﾜｰﾄﾞ､PDFなど多数の種類があります｡そのｾﾙをｸﾘ…

ｴｸｾﾙでﾌｧｲﾙ保存のﾏｸﾛを教えて下さい｡

A列にはﾌｧｲﾙ名が入力してあります｡
ﾌｧｲﾙ名はｴｸｾﾙやﾜｰﾄﾞ､PDFなど多数の種類があります｡
そのｾﾙをｸﾘｯｸするとﾕｰｻﾞｰﾌｫｰﾑがでて､その中の【保存】を押した後の処理についてお伺いしたいと思います｡

保存を押すと､ｸﾘｯｸ先(ｱｸﾃｨﾌﾞｾﾙ)に書かれたﾌｧｲﾙが保存できるようにしたいです｡

名前をつけるﾀﾞｲｱﾛｸﾞが表示されますが､名前の欄にｸﾘｯｸしたﾌｧｲﾙ名も入力されていてほしいです｡
そして保存できればいいと思っています｡

まだﾏｸﾛ初心者ですので､ｺｰﾄﾞを教えて下さると勉強になります｡

下記のｺｰﾄﾞはﾌｧｲﾙを開くｺｰﾄﾞを書きました｡
こんな風に簡単に書けるのでしょうか？

Private Sub 開く_Click()
Cancel = True
ﾘﾝｸ先 = ActiveCell.Offset(0, 20).Value
ﾌｫﾙﾀﾞｰ名 = "\\ﾌｧｲﾙ保管場所\"
CreateObject("Shell.Application").ShellExecute ﾌｫﾙﾀﾞｰ名 & "\" & ﾘﾝｸ先
Unload Me
End Sub

ﾀﾞｲｱﾛｸﾞ表示は以下でできます｡
https://msdn.microsoft.com/ja-jp/library/office/ff195734.aspx
ｴｸｾﾙの保存の場合は以下です｡
例が上記ﾀﾞｲｱﾛｸﾞ表示と組み合わせてます｡
https://msdn.microsoft.com/ja-jp/library/office/ff841185.aspx

ﾌｧｲﾙ名はｴｸｾﾙやﾜｰﾄﾞ､PDFなど多数の種類があります｡

これがﾌｧｲﾙ名ではなくﾌｧｲﾙの種類という意味なら､簡単とはいかず､種類ごとに保存方法が異なります｡

PDFの場合､以下を使います｡
https://msdn.microsoft.com/ja-jp/library/office/ff198122.aspx

ﾜｰﾄﾞの場合､貼り付けることになると思います｡
http://www.shoeisha.com/book/hp/pc/office/Word/files/text6.html
https://msdn.microsoft.com/JA-JP/library/office/ff836084.aspx

その他もそれぞれに方法が違うと思います｡