ＶＢ2005からエクセルの操作

質問

お世話になっております。
ＶＢ2005にて勉強中の者です。

ＶＢ2005より、エクセルファイルを操作したいと考えております。
具体的な操作として、フルパスで指定したエクセルファイルのひとつのセルから抜き出した文字列を別のエクセルファイル内で検索し、一致したセルの右隣のセルの文字列を抽出し、テキストボックスに出力したいのです。

自分で調べたところ、下記サンプルに行き当たりましたが、ＶＢ2005では「LookAt:=xlWhole」が認識されないようです。
フルパスより文字列の抽出はできております。

Dim oExcel As Object 'Excel
Dim fndRows As Long '探すセル範囲の最終行
Dim fndArea As Object '探すセル範囲

Dim findText As String '探す文字列(Text1に入力)
Dim rg As Object '探し出したセル

findText = Text1.Text

'シートを検索する
rg = fndArea.Find(What:=findText, LookAt:=xlWhole)
If Not rg Is Nothing Then
Text2.Text = rg.Offset(0, 1).Value
Else
MsgBox("ありません")
End If

「LookAt:=xlWhole」の箇所さえ通れば望む結果が出そうなのですが、
他にＶＢ2005で対応したものはないでしょうか。

そして最初に取得したセルを一行目と仮定し、最後の行まで繰り返し処理をするならばDo～Loopなどを使えばいいでしょうか。

最後に、セルに情報を書き込む際に、セルへの色付けなどもＶＢから操作できますでしょうか。

複数の質問がまたがってしまいすみません。
どうぞご教示の程、宜しくお願い致します。

回答No.1

n-jun · ベストアンサー

>「LookAt:=xlWhole」の箇所さえ通れば望む結果が出そうなのですが、
>他にＶＢ2005で対応したものはないでしょうか。
ここについては下記が参考になるかもです。
【方法 : ワークシートの範囲内のテキストを検索する】
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/dv_wrcore/html/wrtskhowtosearchfortextinworksheetranges.asp

>そして最初に取得したセルを一行目と仮定し
参考URLを実行すると、１行目に対象値があっても検索されず、
２回目に出てきたものをヒットします。
（AFTERの代わりの使い方がよく分かりませんでした。）

VB2005は始めたばかりですので、このくらいの回答しかできません。
（殆どExcelVBAばっかりなもので。。。）

お礼

ありがとうございます！！
当方も日々勉強していますので、参考にできるもののご提示だけでも嬉しく思います。

追記でもコードをご提示いただいたようで、本当にありがとうございます・・・。
時間が取れず、上記URLも拝見させていただいただけで試すことができませんでした。
ご提示いただいたコードを試させていただき、再度お礼のほうを書き込ませていただきたいと思います。

今後とも宜しくお願い致します。

回答No.2

n-jun

私がテストしたコードをそのまま提示します。

　Dim xlApp As New Excel.Application
　Dim xlwb As Excel.Workbook = xlApp.Workbooks.Open("R:\aaa.xls")
　Dim xlsheet As Excel.Worksheet
　Dim fndArea As Excel.Range '探すセル範囲
　Dim findText As String '探す文字列(Text1に入力)
　Dim rg As Object '探し出したセル

　xlsheet = xlwb.Worksheets("a")
　fndArea = xlsheet.Range("A:A")
　findText = "りんご"
　'シートを検索する
　rg = fndArea.Find(findText, xlsheet.Range("A65536"), 　　Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlWhole, _
　　　　　　Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)
　If Not rg Is Nothing Then
　　　　Me.TextBox1.Text = rg.Offset(0, 1).Value
　　　　rg.resize(, 2).Interior.ColorIndex = 38 '見つけたところとその右側に色をつける
　　　　xlwb.Close(True)
　Else
　　　　MsgBox("ありません")
　　　　xlwb.Close(False) 'ない時は上書き保存しない
　End If
　xlApp = Nothing
　xlwb = Nothing
　xlsheet = Nothing
　fndArea = Nothing
　rg = Nothing
ご参考になれば。

お礼

お返事が遅れてしまい、誠に申し訳ございません。

ご提示いただきました内容を応用させていただきまして、
ようやく望む結果が出ました！！

まだまだ勉強することだらけであると痛感しました。
本当にありがとうございます。

今後とも宜しくお願いいたします。