主题：如何判断EXCEL单元格中是否有内容？

 什么意思？直接判断 Sheet(0,0).Text 不行？

用第一行和第一列确定范围

 

Dim Book As New XLS.Book("d:\test.xls")

For k As Integer = 0 To Book.Sheets.Count-1 '//多个sheet的处理
    Dim Sheet = Book.Sheets(k)
    Dim rc As Integer = 0
    Dim cc As Integer = 0
    For i As Integer = 0 To Sheet.Rows.Count-1
        If sheet(i, 0).Text = "" Then
            rc = i
            Exit For
        End If
    Next
    For i As Integer = 0 To Sheet.Cols.Count-1
        If sheet(0, i).Text = "" Then
            cc = i
            Exit For
        End If
    Next
    msgbox(rc & " " & cc)
    For i As Integer = 0 To rc
        For j As Integer = 0 To cc
            If sheet(i,j).text > "" Then
                Dim dr As DataRow = DataTables("排重表").AddNew
                dr("第一列") = sheet(i,j).Text
            End If
        Next
    Next
Next

 那你就不要全选所有单元格设置字体啊，你操作了多少，最后就会获取多少的啊。

 那没办法，你试试用vba

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
MessageBox.Show(Rg.Rows.Count)
MessageBox.Show(Rg.Columns.Count)
MessageBox.Show(Rg.Count)
App.Quit

 不会快。

If rg.Cells(i,j).value > "" Then

 

改成

 

If rg.Cells(i,j).Text > "" Then

1、excel文件发上来

 

2、代码代码贴出来。

 可以，参考

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0

 

不要这样

 

If rg.Cells(i,j).Text > "" Then

 

要这样

 

If ary(i,j) > "" Then

 

反正，全部cells的代码都不要出现，才能提升效率

Dim dlg As New OpenFileDialog
Dim l1 As WinForm.Label = e.Form.Controls("Label1")
dlg.Filter= "所有文件|*.*|Excel2003文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim t1 As Date = Date.Now
   
   
    DataTables("表A").StopRedraw
   
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim ary = rg.value
        For i As Integer = 1 To rg.Rows.Count
            For j As Integer = 1 To rg.Columns.Count
                If ary(i,j) <> Nothing Then
                    Dim dr As DataRow = DataTables("表A").AddNew
'dr("第一列") = Rg.Cells(i,j).value
                    dr("第一列") = ary(i,j)
                End If
            Next
        Next
    catch ex As exception
        msgbox(ex.message)
    finally
        DataTables("表A").ResumeRedraw
        app.quit
    End try
   
    l1.text="计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒"
   
Else
    Return
End If