| |
こんにちは。かみちゃん です。
>現在、セル（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
|
|
かみちゃん
- 06/3/16(木) 22:20 -
