Convert XLS to tab delimited.

最新推荐文章于 2023-09-27 09:56:06 发布

weixin_34006965

最新推荐文章于 2023-09-27 09:56:06 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/yangbin990/archive/2006/09/25/514477.html

本文介绍了一种使用ADO和Jet OLEDB提供程序读取Excel文件内容的方法，无需实际打开Excel。通过VB.NET代码示例，展示了如何连接到Excel文件，执行SQL查询，将数据导出到文本文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Use ADO and the Jet OLEDB provider, which can read the contents of excel files without actually opening Excel.

Example:

'*******************************

Public Sub ConvertXLSToTab(ByVal xlsFileName As String, ByVal tabTextOutputFile As String)
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & xlsFileName & "';Extended Properties='Excel 12.0;HDR=YES';"
        Dim strSQL As String = "SELECT * FROM [Sheet1$]"
        Dim excelConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection(connectionString)
        excelConnection.Open()
        Dim dbCommand As OleDbCommand = New OleDbCommand(strSQL, excelConnection)
        Dim dataAdapter As OleDbDataAdapter = New OleDbDataAdapter(dbCommand)
        Dim ds As New DataSet
        dataAdapter.Fill(ds, "dTable")
        'DataGridView1.DataSource = ds.Tables("dTable").DefaultView
        Dim strLine As String
        Dim objStreamWriter As StreamWriter
        objStreamWriter = File.CreateText(tabTextOutputFile)
        For Each row As DataRow In ds.Tables("dTable").Rows
            Dim column As DataColumn
            strLine = ""
            For Each column In ds.Tables("dTable").Columns
                If (strLine <> "") Then strLine = strLine & vbTab
                strLine = strLine & row(column).ToString()
            Next column
            objStreamWriter.WriteLine(strLine)
        Next row
        excelConnection.Close()
        objStreamWriter.Close()
    End Sub

转载于:https://www.cnblogs.com/yangbin990/archive/2006/09/25/514477.html