UC知道简单的问题，VB连接EXCEL问题 高分
来源：百度知道 编辑：UC知道 时间：2024/06/01 22:50:41
我怎么用VB连接EXCEL啊?请教各位大侠
我怎么用VB连接EXCEL啊?请教各位大侠,如果能够连接EXCEL怎么检索里边每一列的数据,.假如EXCEL表里的C列里每个单元格都有数字怎么统计分别有多少个,例如C列的数据,C2单元格是9,C3单元格是8,C4单元格又是9,
这样怎么在VB里边统计C列里边有多少个9啊.
请教各位大侠,我还想要代码.
问题补充：各位我是这样连接的，这样行吗？
下面怎么统计啊，请指教
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim num As Integer
num = 0
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\桌面\ss.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"
rs.Open "select * from [sheet1$]", conn, adOpenForwardOnly, adLockOptimistic
各位大哥，我想做一下EXCEL的统计．例如：我的表里有100行数据，第一行是：1，3，7，9．第二行是：1，5，7．11．第三行：3，9，45，67．等这样下去．假如统计的是第一行的1和7分别在多少行里出现了．第一行的3和9分别在多少行里出现了．第二行的5和11分别在多少行里出现了多少次，就这样统计下去．就是把所有可能出现重复的数组统计出来统计出有多少次
我怎么用VB连接EXCEL啊?请教各位大侠,如果能够连接EXCEL怎么检索里边每一列的数据,.假如EXCEL表里的C列里每个单元格都有数字怎么统计分别有多少个,例如C列的数据,C2单元格是9,C3单元格是8,C4单元格又是9,
这样怎么在VB里边统计C列里边有多少个9啊.
请教各位大侠,我还想要代码.
问题补充：各位我是这样连接的，这样行吗？
下面怎么统计啊，请指教
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim num As Integer
num = 0
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\桌面\ss.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"
rs.Open "select * from [sheet1$]", conn, adOpenForwardOnly, adLockOptimistic
各位大哥，我想做一下EXCEL的统计．例如：我的表里有100行数据，第一行是：1，3，7，9．第二行是：1，5，7．11．第三行：3，9，45，67．等这样下去．假如统计的是第一行的1和7分别在多少行里出现了．第一行的3和9分别在多少行里出现了．第二行的5和11分别在多少行里出现了多少次，就这样统计下去．就是把所有可能出现重复的数组统计出来统计出有多少次
有个性
桌面在D盘
你自己运行一下不就知道行不行了吗
excel和数据库不一样，你得这样连接：
Dim exlapp As New Excel.Application
Dim exlbook As Excel.Workbook
Dim exlsheet As Excel.Worksheet
dstr="D:\1.xls"
Set exlapp = New Excel.Application
exlapp.Workbooks.Open dstr