UC知道我怎么用VB连接EXCEL啊?请教各位大侠
来源：百度知道 编辑：UC知道 时间：2024/09/23 09:30:28
我怎么用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:\桌面\双色球数据.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"
rs.Open "select * from [sheet1$]", conn, adOpenForwardOnly, adLockOptimistic
这样怎么在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:\桌面\双色球数据.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"
rs.Open "select * from [sheet1$]", conn, adOpenForwardOnly, adLockOptimistic
在你保存的目录下建readonly.xls
Option Base 1
Dim oleExcel As Object
Dim s() As String
Private Sub Command1_Click() '存xls
Dim i, j, num As Integer, z As String
Set oleExcel = CreateObject("Excel.Application")
oleExcel.Visible = False
oleExcel.WindowState = 1
' 打开文件
oleExcel.Workbooks.Open FileName:=App.Path & "\readonly.xls"
'i 是行，j是列
j = 3 '第3列
i = 0
Do While (1 = 1)
z = oleExcel.Worksheets("sheet1").Cells(i + 1, j)
If z = "" Then Exit Do
i = i + 1
ReDim Preserve s(i)
s(i) = z
Loop
z = InputBox("你想查找的字符", "提示")
For i = 1 To UBound(s)
If s(i) = z Then num = num + 1
Next i
Print num
oleExcel.ActiveWorkbook.Close
oleExcel.Quit
End Su