如题,
我要如何把空栏去除呢?
感谢
Public Function ExcelToDataTable_Copy(ByVal FilaName As String, ByVal SheetName As String) As DataTable '数据查询
Try
'将数值字串统一的
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlBook = xlApp.Workbooks.Open(FilaName)
xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False
xlApp.Application.Visible = False
Dim data_count As Integer
data_count = xlSheet.UsedRange.Columns.Count
For i = 1 To data_count
xlSheet.Cells(2, i).value = "'" & xlSheet.Cells(2, i).value
xlSheet.Cells(3, i).value = "'" & xlSheet.Cells(3, i).value
xlSheet.Cells(4, i).value = "'" & xlSheet.Cells(4, i).value
xlSheet.Cells(5, i).value = "'" & xlSheet.Cells(5, i).value
xlSheet.Cells(6, i).value = "'" & xlSheet.Cells(6, i).value
xlSheet.Cells(7, i).value = "'" & xlSheet.Cells(7, i).value
xlSheet.Cells(8, i).value = "'" & xlSheet.Cells(8, i).value
xlSheet.Cells(9, i).value = "'" & xlSheet.Cells(9, i).value
Next
xlBook.Save()
xlBook.Close()
xlApp.Quit()
xlApp = Nothing
xlBook = Nothing
xlSheet = Nothing
Dim dt As DataTable
dt = New DataTable
Dim sExcelFile As String
sExcelFile = FilaName
Dim sConnectionString As String = ""
If FilaName.IndexOf(".xlsx") <> -1 Then
Select Case Get_excel_VN()
Case "16.0", "14.0", "12.0"
sConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & sExcelFile & "; Extended Properties='Excel 12.0;HDR=true;IMEX=1;'"
End Select
ElseIf FilaName.IndexOf(".xls") <> -1 Then
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sExcelFile & "; Extended Properties='Excel 8.0;HDR=YES;IMEX=1;'"
Else
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sExcelFile & "; Extended Properties='Excel 8.0;HDR=YES;IMEX=1;'"
End If
Dim connection As OleDb.OleDbConnection
connection = New OleDb.OleDbConnection(sConnectionString)
connection.Open()
dt = connection.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
Dim sql_select_commands As String
sql_select_commands = "Select * from [" & SheetName & "$]"
Dim adp As OleDb.OleDbDataAdapter
adp = New OleDb.OleDbDataAdapter(sql_select_commands, connection)
Dim ds As Data.DataSet
ds = New Data.DataSet()
adp.Fill(ds, SheetName)
dt = ds.Tables(0)
If (connection.State = ConnectionState.Open) Then
connection.Close()
End If
'除去空行
'https://ask.csdn.net/questions/759795
Return dt
Catch ex As Exception
MsgBox(ex.Message.ToString())
End Try
Return Nothing
End Function