|
いつも皆さんにお助けいただき
大変感謝しています。
今日はファイル検索の方法について
教えていただきたいのですが。
現在、セル(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
|
|