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

ＣＳＶファイルをエクセルで開き、Ａ列にオートフィルタをかけます。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"の代わりに、Ａ列にある項目を入れると、正常にオートフィルタが実行されます。

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

投稿日時 - 2005-11-24 20:59:56