从 .NET 应用程序访问 Microsoft Office 数据

"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:/Spreadsheets/calculations.xls;" & _
"Extended Properties=Excel 8.0"

SELECT SalesMonth, TotalSales, PercentageChange1Year 
FROM SalesHighlights

 

Imports System
Imports System.Data
Imports System.Data.OleDb
...
Public Function GetExcelData()

        Dim conn As New OleDbConnection
        Dim salesReader As OleDbDataReader
        Dim connString As String
        Dim cmd As New OleDbCommand

        Try
            ' 设置连接字符串。
             connString = "Data Source=" & _
                "C:/Spreadsheets/calculations.xls;" & _
                "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Extended Properties=Excel 8.0;"

            ' 打开连接。
            conn.ConnectionString = connString
            conn.Open()

            '设置命令属性。
            cmd.Connection = conn
            cmd.CommandText = "SELECT SalesMonth, " & _
                "TotalSales, PercentageChange1Year, " & _
                "VolumeDiscounts, Profit from [Sheet1$]"

            ' 获取 OleDbDataReader
            ' 并对其进行一些处理。
            salesReader = _
                cmd.ExecuteReader(CommandBehavior.CloseConnection)
            Try
                While (salesReader.Read)
                    '处理数据。
                End While
            Finally
                salesReader.Close()
            End Try

        Catch ex As Exception
            '错误处理
        End Try

    End Function 'GetExcelData

 

原贴地址：https://www.microsoft.com/china/msdn/library/office/office/odatanet2.mspx?mfr=true