Excel VBA質問箱 IV

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

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


45763 / 76732 ←次へ | 前へ→

【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

1 hits

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

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