Imports Microsoft.Office.Interop.Excel

using Microsoft.Office.Interop.Excel;

' Declare variables that hold references to Excel objects.
Dim excelApplication As ApplicationClass = Nothing
Dim excelWorkBook As Workbook = Nothing
Dim targetSheet As Worksheet = Nothing
Dim salesTable As Range = Nothing

' Declare helper variables.
Dim workBookName As String = _
    "C:\Temp\AutoFilterSample.xlsx"
Dim worksheetName As String = "Quarterly Sales"
Dim rangeName As String = "'Quarterly Sales'!SalesData"

Try
    ' Create an instance of Excel 2007.
    excelApplication = New ApplicationClass()

    ' Open the source workbook.
    excelWorkBook = _
        excelApplication.Workbooks.Open(workBookName)

    ' Get the worksheet that contains the data to filter.
    targetSheet = excelWorkBook.Worksheets(worksheetName)

    ' Get a range holding the data to filter.
    salesTable = targetSheet.Names.Item(rangeName).RefersToRange

    ' Set a filter on the third column to display values
    ' greater than 500.
    salesTable.AutoFilter(3, ">500", _
        XlAutoFilterOperator.xlFilterValues, , True)

    ' Save the workbook.
    excelWorkBook.Save()
Catch ex As Exception
    Console.WriteLine(ex.Message)
Finally
    ' Release the references to the Excel objects.
    salesTable = Nothing
    targetSheet = Nothing

    ' Close the Workbook object.
    If Not excelWorkBook Is Nothing Then
        excelWorkBook = Nothing
    End If

    ' Close the ApplicationClass object.
    If Not excelApplication Is Nothing Then
        excelApplication.Quit()
        excelApplication = Nothing
    End If

    ' Garbage collection.
    GC.Collect()
    GC.WaitForPendingFinalizers()
    GC.Collect()
    GC.WaitForPendingFinalizers()
End Try

// Declare variables that hold references to Excel objects.
ApplicationClass excelApplication = null;
Workbook excelWorkBook = null;
Worksheet targetSheet = null;
Range salesTable = null;

// Declare helper variables.
string workBookName = @"C:\Temp\AutoFilterSample.xlsx";
string worksheetName = "Quarterly Sales";
string rangeName = "'Quarterly Sales'!SalesData";

object useDefault = Type.Missing;

try
{
    // Create an instance of Excel.
    excelApplication = new ApplicationClass();

    // Open the source workbook.
    excelWorkBook =
        excelApplication.Workbooks.Open(workBookName,
            useDefault, useDefault, useDefault, useDefault,
            useDefault, useDefault, useDefault, useDefault,
            useDefault, useDefault, useDefault, useDefault,
            useDefault, useDefault);

    // Get the worksheet that contains the data to filter.
    targetSheet =
        (Worksheet)(excelWorkBook.Worksheets[worksheetName]);

    // Get a range holding the data to filter.
    salesTable = targetSheet.Names.Item(rangeName, useDefault,
        useDefault).RefersToRange;

    // Set a filter on the third column to display values.
    // greater than 500
    salesTable.AutoFilter(3, ">500",
        XlAutoFilterOperator.xlFilterValues, useDefault, true);

    // Save the workbook.
    excelWorkBook.Save();
}
catch (Exception ex)
{
    Console.WriteLine(ex.Message);
}
finally
{
    // Release the references to the Excel objects.
    salesTable = null;
    targetSheet = null;

    // Close the Workbook object.
    if (excelWorkBook != null)
        excelWorkBook = null;

    // Close the ApplicationClass object.
    if (excelApplication != null)
    {
        excelApplication.Quit();
        excelApplication = null;
    }

    //Garbage collection.
    GC.Collect();
    GC.WaitForPendingFinalizers();
    GC.Collect();
    GC.WaitForPendingFinalizers();
}