VBからエクセルファイルを読込み、エクセル内の文字を検索したい (ID:123792)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 2週間かかり下記ソースができました。 マイドキュメント内のエクセルファイルが開くようになりました。 しかし、あるサーバー内のあるフォルダの中のファイルを検索したいのですが、パスを指定する箇所がわかりません。 また、利用したいフォルダ内にはいくつかフォルダがあり階層にもなっているのでそれも検索できるようにしたいのです。 エクセル内をFindメソッドとRangeを利用して、A列(A1：A10)を検索できるようになり、MsgBoxに検索結果を表示できるようになったのですが、検索結果としてB列やC列もMsgBoxに表示できるようにしたいのですが、どなたかアドバイスをよろしくお願いします。 Private Sub Command1_Click() On Error Resume Next Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim xlInput As String ' Inputでファイルを任意のファイル名を検索し '見つかったらファイルを開く xlInput = InputBox("機種") Set xlApp = CreateObject("Excel.Application") 'エクセル起動 Set xlBook = xlApp.Workbooks.Open(xlInput) '試し：正常に指定したファイルが開いているか確認するため xlApp.Visible = True Dim myRange As Range Dim xlFind As String xlFind = InputBox("部番") Set myRange = Worksheets("Sheet1").Range("A1:A10") answer = Application.WorksheetFunction.Find(Sheet1, "A1:A10", xlFind) MsgBox answer If vbOKOnly = 0 Then xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing End Sub