Excel VBA質問箱 IV

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

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


6597 / 13644 ツリー ←次へ | 前へ→

【44315】フォルダの自動生成 どんぐりぼうず 06/11/13(月) 11:18 質問[未読]
【44317】Re:フォルダの自動生成 Blue 06/11/13(月) 11:48 回答[未読]
【44329】Re:フォルダの自動生成 どんぐりぼうず 06/11/13(月) 13:49 回答[未読]
【44333】Re:フォルダの自動生成 Blue 06/11/13(月) 14:11 発言[未読]
【44335】Re:フォルダの自動生成 どんぐりぼうず 06/11/13(月) 15:57 お礼[未読]

【44315】フォルダの自動生成
質問  どんぐりぼうず  - 06/11/13(月) 11:18 -

引用なし
パスワード
   はじめましてどんぐりぼうずと申します。
VBA初心者です。

セルに入力された文字列でフォルダを自動生成したいと考えています。

例えば...こんなイメージです。

R4C2のセルに1234と入力します。
フォルダ作成ボタンをつくり、ボタンをクリックすると
R4C2で入力された文字列を読取り、
C:\TESTのディレクトリ以下に1234というフォルダが生成される。

結果
C:\TEST\1234

どなたかご教授のほど宜しくお願いします。

【44317】Re:フォルダの自動生成
回答  Blue  - 06/11/13(月) 11:48 -

引用なし
パスワード
   セルの値を読み込むところまでは出来ていますか?
それならば、MkDirを使えばフォルダの作成は出来ます。
(使い方はHelpを使って調べてみてください。)

【44329】Re:フォルダの自動生成
回答  どんぐりぼうず  - 06/11/13(月) 13:49 -

引用なし
パスワード
   ▼Blue さん:

以下のようにつくり、フォルダが作成できるようにしました。
この場合、フォルダ作成するときにフォルダが存在すると
パス名が無効ですというメッセージが表示されます。(当り前なんですが)
エラー発生時にメッセージが表示されるようにするにはどうしたらいいでしょうか?

Sub フォルダ作成()
   
  fol = "C\TEST\" & Range("A1")
  MkDir fol

End Sub

【44333】Re:フォルダの自動生成
発言  Blue  - 06/11/13(月) 14:11 -

引用なし
パスワード
   ▼どんぐりぼうず さん:
>この場合、フォルダ作成するときにフォルダが存在すると
>パス名が無効ですというメッセージが表示されます。(当り前なんですが)
>  fol = "C\TEST\" & Range("A1")
とりあえず、

C:\TEST\

のまちがいですかね?

すでにフォルダが存在するケースがあるのであれば、MkDirをする前に確認する必要があります。
Dir関数でvbDirectoryを指定すると確認できます。

fol = "C:\TEST\" & Range("A1")
' フォルダが存在するか(ない場合は空文字列)
If Dir(fol, vbDirectory) = "" Then
  ' フォルダの作成
  MkDir fol
End If

【44335】Re:フォルダの自動生成
お礼  どんぐりぼうず  - 06/11/13(月) 15:57 -

引用なし
パスワード
   ▼Blue さん:
>C:\TEST\
>
>のまちがいですかね?

すいません間違いです。

ご回答有難うございます。
思うように動くようになりました。

また、何かありましたら宜しくお願いします。

6597 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free