Excel VBA質問箱 IV

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

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


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

【5267】Fileの検索とOPENについて教えて下さい LIFE 03/4/30(水) 22:14 質問
【5268】Re:Fileの検索とOPENについて教えて下さい りん 03/5/1(木) 6:01 回答
【5271】Re:Fileの検索とOPENについて教えて下さい LIFE 03/5/1(木) 11:10 お礼

【5267】Fileの検索とOPENについて教えて下さい
質問  LIFE  - 03/4/30(水) 22:14 -

引用なし
パスワード
   ディレクトリとファイル名を入力したセルがあり、そのディレクトリの中からそのFileを検索して存在すればFileを開き、なければそのセルの1つ左のセルに
Not Foundと表示させたいのですが、

解らないので困っています。
どなたか教えてもらえないでしょうか?
宜しくお願いします。

【5268】Re:Fileの検索とOPENについて教えて下さい
回答  りん E-MAIL  - 03/5/1(木) 6:01 -

引用なし
パスワード
   LIFE さん、おはようございます。

>ディレクトリとファイル名を入力したセルがあり、そのディレクトリの中からそのFileを検索して存在すればFileを開き、なければそのセルの1つ左のセルに
>Not Foundと表示させたいのですが、

C1にフルパスファイル名(例:C:\Test\Book1.xls)が入っているとして。

Sub test()
  Dim Ifile As String
  With Worksheets("Sheet1")
   Ifile = .Cells(1, 3).Value
   .Cells(1, 2).ClearContents '初期化
   '分岐
   If Trim(Ifile) = "" Then
     MsgBox "Empty", vbExclamation
   Else
     If Dir(Ifile) = "" Then
      .Cells(1, 2).Value = "File Not Found"
      MsgBox "Failure", vbExclamation
     Else
      Workbooks.Open FileName:=Ifile
      MsgBox "Done", vbInformation
     End If
   End If
  End With
End Sub

こんな感じです。

Dir関数は、はじめの1回は引数が必要なので、""という文字列を送らないように2段の分岐になっています。

ファイル名を・・
 ├指定してない → エラー
 └指定してある → ファイルをチェック(Dir) 
            ├そういう名前のファイルがない → 失敗
            └そういう名前のファイルがある → ブックを開く

関数やプロパティなどの詳細についてはヘルプを見てください。

【5271】Re:Fileの検索とOPENについて教えて下さい
お礼  LIFE  - 03/5/1(木) 11:10 -

引用なし
パスワード
   どうもありがとうございました。
早速やってみます。

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