作者：乔山办公网日期：
返回目录：excel表格制作
先建立数据库连接，再传入查询语句，最后调用fill就能够了 查看原帖>>
希望采纳
因为Excel表的左上百角的单元格都是以度第一行第一列问
MsgBox(LBound(arr, 1)) '一维最小下答标
MsgBox(LBound(arr, 2)) '二维最小下标
测试：内用上面函数（LBound）得到的容结果都是1
你好
EXCEL，是有行数限制的，以前的好象是65536行，EXCEL2007可以达到行1048576
打开EXCEL，二维数组赋值到EXCEL
修改DATASET再写回7a686964616fe78988e69d83330
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
首先定zd义
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet然后创建专对象
xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlBook = xlApp.Workbooks.Open("文件路径") '打开已经存在的属EXCEL工件簿文件
xlSheet = xlBook.Worksheets("sheet1")