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
その他もそれぞれに方法が違うと思います。