エクセルでファイル保存のマクロを教えて下さい。


A列にはファイル名が入力してあります。
ファイル名はエクセルやワード、PDFなど多数の種類があります。
そのセルをクリックするとユーザーフォームがでて、その中の【保存】を押した後の処理についてお伺いしたいと思います。

保存を押すと、クリック先(アクティブセル)に書かれたファイルが保存できるようにしたいです。

名前をつけるダイアログが表示されますが、名前の欄にクリックしたファイル名も入力されていてほしいです。
そして保存できればいいと思っています。

まだマクロ初心者ですので、コードを教えて下さると勉強になります。

下記のコードはファイルを開くコードを書きました。
こんな風に簡単に書けるのでしょうか?

Private Sub 開く_Click()
Cancel = True
リンク先 = ActiveCell.Offset(0, 20).Value
  フォルダー名 = "\\ファイル保管場所\"
CreateObject("Shell.Application").ShellExecute フォルダー名 & "\" & リンク先
 Unload Me
End Sub

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2015/03/05 08:10:44
  • 終了:2015/03/06 16:16:21

ベストアンサー

id:TransFreeBSD No.1

TransFreeBSD回答回数667ベストアンサー獲得回数2682015/03/05 10:18:59

ダイアログ表示は以下でできます。
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

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

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません