Excel VBA中如何引用多个单元格数据
在excel中将单元格数据导入数据库，现在有一个字段取自多个单元格数据，我试了几次都不行，请问应该怎么写啊？？

我的部分代码：

Set rs = New Recordset
sql1 = "select * from raise WHERE indate= ' " & UCase$(Cells(7, 3)) & " ' and week= ' " & UCase$(Cells(5, 5)) & " ' and depart= ' " & UCase$(Cells(3, 7)) & " 'and Devision= ' " & UCase$(Cells(3, 5)) & " ' and type= ' " & UCase$(Cells(i, 2)) & " ' "
'判断用户输入数据完整性
If IsExists(sql1) Then
cellr1 = "数据导入失败！ "
MsgBox "今天你已经提报一次了，不能重复提报 "
cellr1.Interior.Color = 255
’改变单元格颜色以提示用户
GoTo handler
End If
Connector.BeginTrans
sql = "select * from raise "
rs.Open sql, Connector, adOpenDynamic, adLockOptimistic, adCmdText
rs.AddNew
rs.Fields( "stat ").Value = "1 "
rs.Fields( "week ").Value = Cells(5, 5)
... ...

现在一值grp要取3个单元数据（直接连接即可，无需处理）
rs.fields( "grp ").Value = ???

[解决办法]
对Excel的单元格数据没有必要用ADO的方法去取得，直接以单元格中的数据就可以了。比如sheet1.cells(i,j).value，用一个for循环取得数据，然后再用ADO插入到外部的数据库。