vb6.0如何把access数据库的指定信息导入excel模板中
通过Vb获取数据，然后循环输出就可以了
对excel操作如下
Dim xlapp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.Workbooks.Open(App.Path & "\文件.xls")‘打开一个文件
Set xlSheet = xlBook.Worksheets(1)
With xlSheet
.Range(.Cells(2, 1), .Cells(2, 40)).Copy
xlapp.Visible = False
xlapp.DisplayAlerts = False
for i=1 to ...
.Cells(i, 1) = ....
.Cells(i, 2) = ....
.Cells(i, 3) = ....
.Cells(i, 4) = ....
next
end with
Me.CDlTool.Filter=....你要保存的位置
Me.CDlTool.ShowSave
vb,连接EXCEl数据库
首先要在项目里添加Excel object library
声明变量
Dim xlSheet As Object
Dim MobjExcel As Excel.Application
Dim mobjworkbook As Object
在代码部分：
Set MobjExcel = CreateObject("Excel.Application")
'MobjExcel.Visible = False
Set mobjworkbook = MobjExcel.Workbooks.Open(“数据表”)
Set xlSheet = mobjworkbook.Worksheets(1)
vb adodc连接excel做数据库
Execl97/2000/xp是MS Office办公软件的成员之一。在企业级应用当中，我们往往需要对Execl进行操作，如读取Execl里面的数据、往Execl里插入数据等。
一、操作Execl要注意的事项：
1、 服务器端Office的配置
以MS Windows2000+IIS为例，要在服务器端安装有MS Office的成员之一Execl，Office的版本没有特殊要求。
2、 服务器端分布式COM的配置
执行“ DCOMCNFG”命令，选择“应用程序”页的“Microsoft Execl 应用程序”—>“属性”—>“安全性”—>三个选项都选“使用自定义访问权限”，添加“Everyone”权限。
二、首先，先将利用ASP读取Execl的数据(不建立DSN)：
我们可以整个.xsl文件看作是一个数据库，sheet1、sheet2等分别看成一个独立的表，把A1、B1、C1、…N1看作表的字段。
--建立连接对象实例ExeclConn
Set ExeclConn=Server.CreateObject(“ADODB.Connection”)
--利用Open 方法打开数据库
StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_
"DriverId=790; DBQ="& Server.MapPath("xls文件名")
conn.Open StrConn
--建立数据集对象Rs并查询数据
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [Sheet1$]"
rs.Open Sql,conn,2,2
具体例子：
1、建立一个表Sheet1（数据库名为Students）
StudentID
姓 名
语 文
数 学
物 理
化 学
地 理
1
李雪青
83
84
76
95
66
2
冯江
87
96
82
100
81
3
吴小霞
76
43
37
60
82
4
邹亚汇
80
77
63
71
63
5
蔡海飞
89
63
92
86
67
2、查询并显示表Sheet1内容的代码
<%
Dim conn
Dim StrConn
Dim rs
Dim Sql
Set conn=Server.CreateObject("ADODB.Connection")
StrConn="Driver={Microsoft Excel Driver (*.xls)};"&_
"DriverId=790; DBQ="& Server.MapPath("Students.xls")
conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [Sheet1$]"
rs.Open Sql,conn,2,2
%>
| <%=rs(i).Name%> |
| <%=rs(i)%> |
3、运行结果
本文来自CSDN博客，转载请标明出处：blog.csdn/tigerwen01/archive/2003/07/03/20203.aspx
VB查询SQL数据库然后在写到Excel表中
select * from 表名 where 时间字段名 between '2010-7-29 13:00:00' and '2010-7-29 14:00:00'
然后再写一个方法把取出来的数据写到Excel里面就行。
ft1712081@gmail