Excel VBA質問箱 IV

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

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


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

【35955】ファイル検索について naka 06/3/16(木) 18:54 質問[未読]
【35968】Re:ファイル検索について かみちゃん 06/3/16(木) 22:20 回答[未読]
【36136】Re:ファイル検索について naka 06/3/22(水) 9:45 お礼[未読]

【35955】ファイル検索について
質問  naka  - 06/3/16(木) 18:54 -

引用なし
パスワード
   いつも皆さんにお助けいただき
大変感謝しています。

今日はファイル検索の方法について
教えていただきたいのですが。

現在、セル(A1)にファイル名をc:\保存先フォルダ名\test.xls
と入力してファイルを開くように作成しましたが、"test"と
入力して検索できるようにするにはどのように修正すればよろしいでしょうか。

よろしくお願いいたします。


Public Sub openExcelFile()
  Dim szMsg  As String
  
  On Error GoTo ERROR_OPENEXCELFILE
  With Workbooks("SearchExcel.xls").Worksheets("sheet1")
    If .Range("A1") = "" Then
      szMsg = "調査ファイルが指定されておりません。"
      MsgBox szMsg, vbOKOnly, "警告"
      Exit Sub
    End If
    Workbooks.Open FileName:=.Range("FILENAME")
  
    .Range("BOOKNAME") = ActiveWorkbook.Name
    .Range("SHEETNAME") = ActiveWorkbook.ActiveSheet.Name
  End With
  Exit Sub
ERROR_OPENEXCELFILE:
  Debug.Print Err.Number
  If Err.Number = 53 Or Err.Number = 1004 Then
    MsgBox "ファイルが存在しません。ファイル名称を確認してください。"
    Exit Sub
  End If
  MsgBox Format(Err.Number) & " " & Err.Description
  On Error GoTo 0
End Sub

【35968】Re:ファイル検索について
回答  かみちゃん  - 06/3/16(木) 22:20 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>現在、セル(A1)にファイル名をc:\保存先フォルダ名\test.xls
>と入力してファイルを開くように作成しましたが、"test"と
>入力して検索できるようにするにはどのように修正すればよろしいでしょうか。

.Range("FILENAME") が A1のことであるならば、以下のような感じでできると思います。

Public Sub openExcelFile()
 Dim szMsg  As String
 
 On Error GoTo ERROR_OPENEXCELFILE
 With Workbooks("SearchExcel.xls").Worksheets("sheet1")
  If .Range("A1").Value = "" Then
   szMsg = "調査ファイルが指定されておりません。"
   MsgBox szMsg, vbOKOnly, "警告"
   Exit Sub
  End If
  strFileName = "c:\保存先フォルダ名\" & .Range("FILENAME").Value & ".xls"
  If Dir(strFileName) <> "" Then
   Workbooks.Open Filename:=strFileName
   .Range("BOOKNAME").Value = ActiveWorkbook.Name
   .Range("SHEETNAME").Value = ActiveWorkbook.ActiveSheet.Name
  Else
   MsgBox "ファイルが存在しません。ファイル名称を確認してください。"
  End If
 End With
End Sub

【36136】Re:ファイル検索について
お礼  naka  - 06/3/22(水) 9:45 -

引用なし
パスワード
   かみちゃんさん
ご返答ありがとうございます。

教えていただいたとおりに作成して
上手くいきました。

お礼が送れて大変申し訳ありませんでした。

また何かありましたときには
よろしくお願いいたします。

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