excel报表得问题！

写错了，应该是：
  我将数据导入excel报表，请问怎样将acess中一列的值赋给excel中的一列？

解决方案 »

  1.   

    1、建立Excel.Application对象：
    Dim MyxlsApp As New Excel.Application
    2、利用SQL语句查询Access库表中的某一列数据，将值赋于变量V1
    3、选定EXcel单元格
    MyxlsApp.Range(Chr(C + Col_Loop) & Row_Loop + 1).Select
    变量C初始值为64，上式可得如下值：
    MyxlsApp.Range(B2).Select
    4、填充EXcel单元格
    MyxlsApp.ActiveCell.Value=V1
    大体思路如此
      

  2.   

    我用VB控制过Excel , ,可以公开部分源代码。
      

  3.   

    一个SpreadSheet控件（也就是那个MSOWC.dll文件）能够搞定一切啊，你可以将这个控件画到你的窗体上，然后用代码控制表格控件，然后再导出为Excel文件，很简单的