ＶＢでエクセルを操作（オートフィルタ）

質問

ＣＳＶファイルをエクセルで開き、Ａ列にオートフィルタをかけます。TextBox1に入力した項目と一致させるために、下のようなものをつくってみました。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim app As Object
Dim book As Object
Dim sheet As Object

app = CreateObject("Excel.Application")
app.application.visible = True

book = app.Workbooks.Open("C:\XXXX.csv")
sheet = book.Worksheets(1)

With sheet.Range("A1")
If .AutoFilter Then .AutoFilter(field:=1, Criteria1:="TextBox1.text")
End With

End Sub

Textbox1に入力して実行してもヒットしません。
"TextBox1.Text"の代わりに、Ａ列にある項目を入れると、正常にオートフィルタが実行されます。

皆様教えて下さい。よろしくお願い致します。

回答No.1

papayuka · ベストアンサー

VBを扱った事はありませんが、
If .AutoFilter Then .AutoFilter(field:=1, Criteria1:="TextBox1.text")
だと、"" で括ってあるので TextBox1.text という文字列を探しているのでは？

If .AutoFilter Then .AutoFilter(field:=1, Criteria1:=TextBox1.text)

お礼

papayuka 様

早速にありがとうございました。
解決しました。
またよろしくお願い致します。