如何获得与VB.net的Excel文件的确切数量的行？
我刚开始使用VB.net，在我的应用程序中，我将需要有一个Excel文件中使用的行的确切数量我看了这篇文章阅读行数使用VB.NET我试过所有的答案，但我'我从来没有得到确切的行数，我也试过其他代码在一些网站，但也没有什么！ 任何人都可以帮助我吗？
你好在实际上我使用SQL SERVER 2008我试过这个代码
Imports System.Diagnostics.Process Imports System.IO Imports System.Data.DataTable Imports Microsoft.Office.Tools Imports Excel Imports Microsoft.Office.Interop Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim selectedFile As String = String.Empty OpenFileDialog1.ShowDialog() selectedFile = OpenFileDialog1.FileName If (selectedFile IsNot Nothing) Then ListBox1.Items.Add(selectedFile) End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim fullPath As String Dim fileResult As String Dim numRow As Integer fullPath = Path.GetFullPath(ListBox1.SelectedItem) fileResult = Path.GetFileName(fullPath) Dim file_count As Integer = File.ReadAllLines(fullPath).Length MsgBox(file_count) 但是再次计数是不正确的，我真的不知道为什么！
我想用一个例程导入一个Excel工作表使用Microsoft.Office.Interop.Excel和vb.net 2010 sql 2008中使用的行，只用于：
usedRowsCount = xlWorksheet.UsedRange.Rows.Count
你好，我终于得到了解决scheme：
Imports Microsoft.Office.Interop.Excel Imports System.Data.DataTable Imports Microsoft.Office.Interop private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Dim fullPath As String Dim fileResult As String Dim numRow As Integer fullPath = Path.GetFullPath(ListBox1.SelectedItem) fileResult = Path.GetFileName(fullPath) Dim obook As Excel.Workbook Dim oapp As Excel.Application oapp = New Excel.Application obook = oapp.Workbooks.Open(fullPath) numRow = 3 While (obook.ActiveSheet.Cells(numRow, 1).Value IsNot Nothing) numRow = numRow + 1 End While MsgBox(numRow) End Sub
而且你必须添加下面的引用：
Microsoft Excel 12.0 Library Microsoft Office 12.0 Library Microsoft Office Tools v9.0 Microsoft visual Basic for application extensibility
希望能帮助到你 ：）
获取excel文件的数据到数据表中并对行进行计数。
Public Class Form1 Private Sub getexcelfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim excelfile As New OpenFileDialog() excelfile.ShowDialog() If (excelfile.ShowDialog() = DialogResult.Cancel) Then Return Else Dim file As String = excelfile.FileName Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + file + ";Extended Properties=Excel 8.0;" Dim con As New OleDb.OleDbConnection(str) con.Open() Dim ds As New OleDb.OleDbDataAdapter("Select * from [Sheet1$]", con) Dim dt As New DataTable() ds.Fill(dt) Dim rowcount As Integer rowcount = dt.Rows.Count() End If End Sub End Class
Public Class Form1 Private Sub getexcelfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim excelfile As New OpenFileDialog() excelfile.ShowDialog() If (excelfile.ShowDialog() = DialogResult.Cancel) Then Return Else Dim file As String = excelfile.FileName Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + file + ";Extended Properties=Excel 8.0;" Dim con As New OleDb.OleDbConnection(str) con.Open() Dim ds As New OleDb.OleDbDataAdapter("Select * from [Sheet1$]", con) Dim dt As New DataTable() ds.Fill(dt) Dim rowcount As Integer rowcount = dt.Rows.Count() End If End Sub End Class