Excel VBA質問箱 IV

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

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


27519 / 76732 ←次へ | 前へ→

【54532】Re:マクロの実行を禁止したい
回答  VBWASURETA  - 08/3/17(月) 11:55 -

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

特定のフォルダといいますか、同じフォルダに
必要なファイルがあるかどうかの存在チェックということです。
サンプルは特定のフォルダにしてますが、同じフォルダなら
存在してますしそこから該当のファイルがあるかだけなので
簡単な方法だと思いますよ。
因みに以下の感じです。

'サンプルはMaster.dataファイルがあるか存在チェック
Function MasterCheck() as Boolean
  Dim bPath as Boolean
  Dim strPath as String

  bPath = False

  'ActiveWorkbook.Pathが保存されているフォルダです
  If (Right(ActiveWorkbook.Path,1) = "\") Then 'ドライブ直下対策
   strPath = ActiveWorkbook.Path & "Master.data"
  Else
   strPath = ActiveWorkbook.Path & "\Master.data"
  End If

  'ファイルがあれば条件に入りTrueを返す。
  If (Dir( strPath ) <> "") Then
   bPath = True
  End If
  MasterCheck = bPath
End Function

'↓ここから実行
Sub Main()

  '指定のファイルがなければマクロ終了
  If MasterCheck() Then
   Exit Sub
  End If

  'ここでマクロの実行
End Sub

0 hits

【54508】マクロの実行を禁止したい DIO 08/3/16(日) 12:23 質問
【54509】Re:マクロの実行を禁止したい とおりすがり 08/3/16(日) 12:37 発言
【54512】Re:マクロの実行を禁止したい DIO 08/3/16(日) 13:42 お礼
【54519】Re:マクロの実行を禁止したい VBWASURETA 08/3/16(日) 21:42 発言
【54531】Re:マクロの実行を禁止したい DIO 08/3/17(月) 11:11 お礼
【54532】Re:マクロの実行を禁止したい VBWASURETA 08/3/17(月) 11:55 回答
【54538】Re:マクロの実行を禁止したい とおりすがり 08/3/17(月) 14:27 発言

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