代码

Connections.Add("test", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ProjectPath & "科目余额表.xls;Extended Properties=Excel 8.0;")
Dim cmd As New SQLCommand
cmd.ConnectionName = "test"
cmd.CommandText = "select * from [科目余额表$]"
Dim dt As DataTable = cmd.ExecuteReader
DataTables("科目余额表").StopRedraw
For Each dr As DataRow In dt.DataRows
    Dim ndr As DataRow = DataTables("科目余额表").AddNew
    ndr("第一列") = dr("科目名称")
    ndr("第二列") = dr("方向")
    ndr("第三列") = dr("账面期初余额")
Next
DataTables("科目余额表").ResumeRedraw
Connections.Delete("test")

参考改一下即可。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "科目余额表.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Dim ary = rg.value
DataTables("科目余额表").StopRedraw
For i As Integer = 1 To rg.Rows.count
    \'For j As Integer = 1 To rg.Columns.count
   Dim ndr As DataRow = DataTables("科目余额表").AddNew
        ndr("第一列") = ary(i,1)
        ndr("第二列") = ary(i,2)
        ndr("第三列") = ary(i,3)
    \'Next
Next
DataTables("科目余额表").ResumeRedraw