Question

VB已读取到数据库数据，如何将数据写入Excel表（OLE控件）的某一单元格中，谢谢！

”' 定义SQL查询命令字符串
strsql = "select price from shandong"
' 执行strSQL所含的SQL命令

rs.Open strsql, cn“

如上，如何连接数据库的代码省略，现已执行SQL命令读取到了数据，下一步如何将数据写入Excel表格的某一单元格中（已在form窗体中创建OLE控件，且插入Excel表格）。

Answer 1

可对Ole控件关联对象的Excel表格的单元格的Value 属性赋值来写入VB已读到的数据。

Value 属性，返回或设置一个Variant型数，它指定该属性之值，此属性可读/写。

以下是实现代码：

Option Explicit
    Dim oBok As Object '定义oBok为Object 数据类型

Private Sub Command1_Click()
    OLE1.CreateLink "C:\zhang2012.xls" '打开要写入的Excel表
    Set oBok = OLE1.object '将对象引用赋给变量或属性。
    oBok.Sheets(1).Range("A1").Value = "VB已读取到数据库数据" '将数据写入Excel表的A列第一行
    Set oBok = Nothing '使用 Nothing 关键字被将对象变量从实际对象中分离开来。
End Sub

Object 变量存储为 32 位（4 个字节）的地址形式，其为对象的引用。利用 Set 语句，声明为 Object 的变量可以赋值为任何对象的引用。

注意 虽然以 Object 类型声明的变量足以适应包含对各种对象的引用，但是绑定到变量引用的对象总是在晚期（运行时）绑定。要强迫在早期（编译时间）绑定的话，须将对象的引用赋值给用特定类名称声明的变量。

使用 Nothing 关键字被将对象变量从实际对象中分离开来。要使用
Set 语句将 Nothing 赋值给对象变量。例如：

Set MyObject = Nothing

Set 语句，将对象引用赋给变量或属性。

Answer 2

在SQL SERVER里往Excel插入数据:

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)

T-SQL代码：
INSERT INTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]
(bestand, produkt) VALUES (20, 'Test')

参考：http://zhidao.baidu.com/link?url=CM9jOXmrtwRPZDTQr7ddV7bwKGe6uSOhSVOr7yM_pcygPzBFFTMKG6X1LKtxgdaBogJC_BgJC4MeiUB9SP76q_