Excel VBA質問箱 IV

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

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


45753 / 76735 ←次へ | 前へ→

【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

0 hits

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

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