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

可对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 语句，将对象引用赋给变量或属性。

1、首先在SQL Window窗口中，查询需要导出的数据。

2、在查询的结果集上（注意不要选中任何一个行或者单元格）右键--【Copy to Excel】-->【Copy as xls/xlsx】导出到97-2003格式的.xls或者2007之后的xlsx文件.

3、如果不想导出查询的全部数据，可以在左侧选中需要导出的行，然后步奏同上。

4、点击导出后，系统自动打开导出的excel文件内容，这里面包括数据以及查询这些数据的sql脚本。

5、点击“SQL Statement”可以查看数据库脚本。

6、下面就是 *** 作excel文件了。点击【文件】--【另存为】保存excel文件

7、选择保存路径，输入文件名称。

注意事项：导出到excel的时候，行记录数也会被自动导出。如果不需要可以在excel中将此列删除即可。

这个要从头说起就复杂了。我简单说一下吧。

首先，要把数据从库中取出来，假设你已经会了。

其次，创建一个表格模型，

DefaultTableModel model=new DefaultTableModel()

//创建表头

model.setColumnIdentifiers(new Object[]{"日期/时间"," *** 作工","产品型号","数量"})

再次，添加数据

while(results.next())

{

String dt=results.getString("dt")

String name=results.getString("name")

String pname=results.getString("product")

int i=results.getInt("num")

//把以上数据添加到表格模型的一行中

model.addRow(new Object[]{dt,name,pname,i})

}

最后，用模型生成表格

JTable table=new JTable(model)

当然，还有一些其它的 *** 作，比如把表格显示出来，表格的字体、行高等设置等等，不再一一赘述。

---