Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4334 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【57228】フォルダが無い場合は新規フォルダ作成 １２３ 08/8/1(金) 22:30 質問[未読]
【57229】Re:フォルダが無い場合は新規フォルダ作成 かみちゃん 08/8/1(金) 23:09 発言[未読]
【57275】Re:フォルダが無い場合は新規フォルダ作成 １２３ 08/8/4(月) 18:21 お礼[未読]
【57239】Re:フォルダが無い場合は新規フォルダ作成 takao 08/8/2(土) 17:09 回答[未読]
【57274】Re:フォルダが無い場合は新規フォルダ作成 １２３ 08/8/4(月) 18:10 お礼[未読]
【57228】フォルダが無い場合は新規フォルダ作成
質問  １２３  - 08/8/1(金) 22:30 -
引用なし
パスワード
   ３年ぶり？？に投稿します。
お助け下さい。

VBAで新規にファイルを作成して保存する際に、
指定したパスのフォルダ内に目的のフォルダが無い場合は
そのフォルダを作成して、その中にファイルを保存し、
もし、目的のフォルダがある場合は、そのフォルダ内に
保存したいのですが・・・すみません。ヘルプを見ても
どうもよく分かりません。お助け下さい。

H:\AAA\BBB\CCC にある「CCC」というフォルダの中にある
フォルダ名をチェックして、「フォルダA」という
名前のフォルダがあった場合は、その「フォルダA」内にファイルを
保存する。
もし「フォルダA」というフォルダがなかったら
「フォルダA」という名前のフォルダを作成し、その中に
ファイルを保存する
ということを実現したいのです。
宜しくご教示願います。
【57229】Re:フォルダが無い場合は新規フォルダ作成
発言  かみちゃん  - 08/8/1(金) 23:09 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>H:\AAA\BBB\CCC にある「CCC」というフォルダの中にある
>フォルダ名をチェックして、「フォルダA」という
>名前のフォルダがあった場合は、その「フォルダA」内にファイルを
>保存する。
>もし「フォルダA」というフォルダがなかったら
>「フォルダA」という名前のフォルダを作成し、その中に
>ファイルを保存する

Dir関数、MkDir関数をヘルプ等で調べてみてください。
ｈｔｔｐ://www.k1simplify.com/vba/tipsleaf/dir.html
【57239】Re:フォルダが無い場合は新規フォルダ作成
回答  takao  - 08/8/2(土) 17:09 -
引用なし
パスワード
   私は、こんな風にしています。
FileA = "H:\AAA\BBB\CCC\フォルダA"
If Not CreateObject("Scripting.FileSystemObject").FolderExists(FileA) Then MkDir FileA
【57274】Re:フォルダが無い場合は新規フォルダ作成
お礼  １２３  - 08/8/4(月) 18:10 -
引用なし
パスワード
   ▼takao さん：

助かりました。
本当にありがとうございました。
【57275】Re:フォルダが無い場合は新規フォルダ作成
お礼  １２３  - 08/8/4(月) 18:21 -
引用なし
パスワード
   ▼かみちゃん さん：

ありがとうございました。
実は、ヘルプを見てやってみましたが、
FolderExists等に書かれている「object」の意味が
分からず、構文が作れませんでした。
そこまでちゃんと書かなければいけなかったです。
すみませんでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4334 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free