VB已读取到数据库数据,怎么将数据写入Excel表(OLE控件)的某一单元格

要将数据库数据写入Excel表格的某一单元格，可以使用Microsoft Office Interop库中的Document范围。首先需要将数据库数据填充到一个二维数组中，然后使用Document的Range.Write()方法将数据写入Excel文件。具体实现代码如下：
```vb
Public Sub WriteDataToExcel()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Integer
Dim j As Integer
Dim arrData(1 To 3, 1 To 2) As Double
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM [表名]")
For i = 0 To rs.RecordCount - 1
arrData(1, i + 1) = rs(i, 1)
arrData(2, i + 1) = rs(i, 2)
Next
i = 1
For j = 0 To 1
For i = 0 To 3
If i + 1 <= rs.RecordCount Then
Range("B" & i).Value = arrData(i, j)
End If
Next
Next
End Sub
```
在以上代码中，我们首先使用了当前数据库连接，并且打开了一个用于读取数据的记录集。然后，我们将数据填充到一个二维数组中，并使用Write方法将数据写入Excel文件。
需要注意的是，在循环中，我们只写入了数组中的第一行为记录器行，因为第二行为标题行。如果需要写入更多的行，则需要相应地调整代码。
以上代码仅供参考，具体实现可能会因实际情况而有所不同。