Excel VBA で既存のブックの保存されている場所を、文字として取得できるらしいです。 ActiveWorkbook.Path の命令でワークブックの保存されているフォルダ名を取得できるようです。