vb excel 一行值添加到数组中
大家好想请教大家怎么才能把excel中比如C15到AJ15这一行中的不同值添加到自己创建的名为hang的数组中
谢谢大家了 --------------------编程问答-------------------- “C15到AJ15这一行中的不同值添加到……”什么意思啊？
是说这个区域中的值有重复，出现重复的值只保留一个吗？
--------------------编程问答-------------------- 回ls
比如说c15的值是18.9放在数组的0位，d15的值是20.17放在数组的1位，之后一直到aj15.
可以用for语句做，但不知道有没有快捷的方法直接完成对数组的赋值。 --------------------编程问答-------------------- 援助性回复顶贴 --------------------编程问答--------------------
'工程--引用--Microsoft ActiveX Data Objects 2.5 Library
Private Sub Command1_Click()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, hang(33), i As Integer
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.xls;Extended Properties='Excel 8.0;HDR=No;IMEX=1'"
Set rs = cn.Execute("select top 15 * From [Sheet1$]")
If rs.RecordCount = 15 Then
rs.MoveLast
For i = 2 To 35
hang(i - 2) = rs(i)
Next
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
补充：VB , 数据库(包含打印，安装，报表)
