こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

ExcelVBAでファイルの名前をつけて保存

こんばんは!

Workbooks.Add
ChDir "C:\Documents and Settings\test\My Documents\住所録"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\test\My Documents\住所録\友達.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWindow.Close

として現在開いているファイルから、新規ファイルを作成してデータを写しこみたいと考えているのですが、この書き方だと自分のパソコンでしか出来ないので困っています。

ThisWorkbook.Pathを使うんだろうと思うのですが、どの様に使えばよいのか判らず困っています。
現在開いているファイルと同じフォルダの中に住所録というフォルダを更に作成し、その住所録フォルダの中に新しいファイルを作りたいのですが。。

ご伝授願います。

投稿日時 - 2004-12-15 03:58:09

QNo.1127660

困ってます

質問者が選んだベストアンサー

>現在開いているファイルと同じフォルダの中に住所録というフォルダを更に作成

フォルダを作成するのは、こんな感じになります。
MkDir ThisWorkbook.Path & "\住所録"

>その住所録フォルダの中に新しいファイルを作りたいのですが。。

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\住所録\友達.xls"

このようなマクロの場合、住所録フォルダが既に存在すると異常になりますので、その点の考慮が必要です。Dir関数を使用して、存在チェックをするのが普通です。"友達.xls"の存在チェックもすべきだと思います。

投稿日時 - 2004-12-15 04:35:12

お礼

ディレクトリの存在チェック。。。エラーが出たときの事も考えないといけないんですよね~。
とりあえずは、おかげで先に進むことが出来たので、とても感謝しています。
細かい質問をこれからもしますのでヨロシクお願いします。

投稿日時 - 2004-12-15 19:56:29

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問