Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2612 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【66912】IF文について教えてください。 copas 10/10/16(土) 17:15 質問[未読]
【66914】Re:IF文について教えてください。 かみちゃん 10/10/16(土) 17:20 発言[未読]
【66915】Re:IF文について教えてください。 kanabun 10/10/16(土) 17:21 発言[未読]
【66912】IF文について教えてください。
質問  copas  - 10/10/16(土) 17:15 -
引用なし
パスワード
   A3セルにフォルダのパス名を記入します。

例）　C:\TEST

A3セルに記入されたパス名が存在しない場合は
メッセージボックスに「パス名が存在しません」
と出したいのです。

「A3セルに記入されたパス名が存在しない場合」という
条件文がどう書けばよいか分かりません。
教えてくださいませ。
【66914】Re:IF文について教えてください。
発言  かみちゃん E-MAIL  - 10/10/16(土) 17:20 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>「A3セルに記入されたパス名が存在しない場合」という
>条件文がどう書けばよいか分かりません。

Dir関数を使って、以下のような感じにします。

　If Dir(ActiveSheet.Range("A3").Value) = "" Then
　　MsgBox "パス名が存在しません" & vbCrLf & ActiveSheet.Range("A3").Value
　End If
【66915】Re:IF文について教えてください。
発言  kanabun  - 10/10/16(土) 17:21 -
引用なし
パスワード
   ▼copas さん：

>例）　C:\TEST
>
>A3セルに記入されたパス名が存在しない場合は
>メッセージボックスに「パス名が存在しません」
>と出したいのです。

Dir関数を使って調べたらどうでしょうか
Dir関数はパスが存在しないばあいは 長さ0の文字列を返します。

　Dim myPath As String
　
　myPath = Range("A3").Value
　If Len(Dir$(myPath)) = 0 Then
　　　MsgBox "パスが存在しません", vbCritical
　End If
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2612 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free