Excel VBA質問箱 IV

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

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


2613 / 13646 ツリー ←次へ | 前へ→

【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

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