作者：乔山办公网日期：
返回目录：excel表格制作
你好
EXCEL，是有行数限制的e79fa5e98193e59b9ee7ad94330，以前的好象是65536行，EXCEL2007可以达到行1048576
打开EXCEL，二维数组赋值到EXCEL
修改DATASET再写回
Private Function XlsToDataTable(strpath As [String]) As DataTable
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Convert.ToString(strpath) & ";" & "Extended Properties=Excel 8.0;"
Dim conn As New OleDbConnection(strConn)
Dim myCommand As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
Dim dt As New DataTable()
myCommand.Fill(dt)
Return dt
End Function
----------------------------------------------------
Microsoft Team
Mack Juesson