エクセルマクロ文で教えてください。

質問

お世話になります。
エクセルマクロ文で　セルD６　に保存するドライブ名（Ｃ　とか　Ｄ）　セルＤ７に保存するフォルダ－名（資料2016　とか　閲覧2016　など）　セルＤ8にファイル名　を置いて、　ドライブ名やフォルダ－名を任意に選択できる形で、作成したエクセルシ－トを保存するマクロ文を、お教えください。

ＴhisWorkbook.SaveAs "D:\資料2016"&fileName というような形で、fileＮame＝Ｒange（”Ｄ８”）と置いてあるのですが、ドライブ名とフォルダ－名とをＤ６とＤ７に任意の値を置いて当該文字によるドライブとフォルダ－にＤ８に記入したファイル名で保存したいというマクロ文を、お教えください。

回答No.2

SI299792

おっしゃっていることがわかりません。
　ドライブとフォルダ－名を担当者が入力するとしても、上記でできると思います。
　新規作成とありますが、新規作成したワークブックには、マクロは入っていないので、不可能かと思います。
　保存するドライブ名・フォルダ－名・ファイル名がD6,D7,D8とは限らないということでしょうか？
　その都度任意のドライブに任意のフォルダ－名を作成してということは、フォルダをプログラムで作るということでしょうか？であれば
　　On Error Resume Next
　　MkDir [D6] & ":\" & [D7]
　　On Error GoTo 0
でフォルダはできます。

お礼

御教授ありがとうございました。
パソコンの使用状況によりＣドライブのみの使用者やＤドライブだけでなくＦドライブまで作成している使用者もおりますので、各個人毎のパソコンで作成した資料をＵＳＢに落として取り纏め用のパソコンに移動保存させる目的でのマクロ文を作成したかったという事情でございます。
解りづらい質問文に勿体ない回答を頂戴致しまして本当に感謝しております。
今一度デ－タ－管理状況手順自体をチェックいたしまして、いただきましたマクロ文を活用させていただきます。
御多用中にもかかわらず本当にありがとうございました。
拝

回答No.1

SI299792

フォルダ－名が絶対パスで入っているなら
ThisWorkbook.SaveAs [D6] & ":\" & [D7] & "\" & [D8]
フォルダ－名が相対パスで入っているなら
ThisWorkbook.SaveAs [D6] & ":" & [D7] & "\" & [D8]
（その前にChdir でフォルダのある場所の指定が必要になります）
[D6]はRange("D6") の略式の書き方です。
ところで、エクセルのバージョンは？私のは2013なのでマクロ付きは後ろに
, FileFormat:=xlOpenXMLWorkbookMacroEnabled
を付けないと、できませんでした。古いエクセルなら、つける必要はありません。

お礼

重ね言葉で申し訳ございません。
頂戴致しましたマクロ文で簡単にドライブ選択からフォルダ－名＆ファイル名を作成保存が出来ました。
また「Ｄ６」が（”Ｄ６”）に代替出来るという初心者にとっては目からウロコという状態でございました。
本当にありがとうございました。
拝

補足

お世話になります。

事前にドライブとフォルダ－名とを作成しておいて、当該個所にファイルを保存する形は完了しているのですが、保存の都度ドライブが　Ｃ　OR　Ｄ　の担当部署別の選択となり　フォルダ－名も同様に複数となる形でございます。

事前に作成してあるのではなく、その都度任意のドライブに任意のフォルダ－名を作成してVS但しドライブ名及びフォルダ－名はセルＤ６及びＤ７に記入させて（新規作成後は登録済となる為に既存記入分の選択になります-デ－タ－入力規則で選択）Ｄ８に記入したファイル名で保存という形を念頭に置いております。

御手数を掛けて申し訳ございませんが、新規作成時のドライブの選択及びフォルダ－名の作成につきましてもお教えください。

フォルダ－名及びファイル名はデ－タ－入力規則を設定し重複作成が生じないように設定しております。