Access導出Execl
VB+Access做的系統，
為方便查閱與打印，
需導出為execl表格，
help。
環境：Access表是Access 2000；
网上很多,百度一下
关注！
窗体代码
VB code:
Private Sub outcstinf_Click() '导出资料为XLS
Dim i As Integer '行
Dim j As Integer '列
Call openXLT("Custom.xlt")'Custom.xlt是一个与要导出的数据表格式相同的excel模板文件
Call OpenConn
sql = "select * from 要导出的表 ORDER BY 用于排序的字段(一般是编号) ASC"
rs.Open sql, cn, 1, 1
If rs.RecordCount < 1 Then
MsgBox "数据库中没有记录！": Exit Sub
Else
i = 2'从xls的第二行开始写入(模板中第一行已作为字段名保留)
Do While Not rs.EOF
For j = 0 To rs.Fields.Count - 1 '循环数据表的0至最后一列
xlsheet.Cells(i, j + 1) = rs.Fields(j) '写入(数据表字段索引是从0开始,而xls的列示从1开始, 因此要j+1)
Next
rs.MoveNext
i = i + 1 '跳到i+1行继续写入
Loop
End If
Call CloseConn
Call closeXLT
sql = ""
End Sub
模块代码
VB code:
Public xlApp As Excel.Ap
相关问答：
本来我是用ACCESS+VB建立一个软件（局域网），现在由于办公地点有变动，相换成INTERNAT的，有没有办法解决，
象这样的情况，如果是广域网，最好改成：B\S的
如果是局域网的，最好改成：C\S的
http://downlo ......
从类型"DBNULL" 到类型“Double”的转换无效（数据库中对应的 a3 或a5 没有数据是为空）
,请问我怎么处理！
VB.NET code:
Dim a1 As String = Nothing
Dim a2 As S ......
问题如下：
用查询语句
select * from tab where fil like 'CK090902'能查找出一条记录并显示出来
改为
select * from tab where fil = 'CK090902'
就不能查找到，也显示不出来 ......
我现在access表中某一字段A 有下面的内容(只是后面的部分不相同)
1.http://www.google.cn/search?client=pub-475201884&forid=1&prog=aff&ie=GB2312&oe=GB2312&hl=zh-CN&q=他和她的� ......
我用Access的时候，ID是主键自动生成。
那插入一条记录的时候，在执行了插入语句之后还有一个代码string sqlGetId = "select max(Nid) from News" ;
是想获取刚才插入的记录所生成的ID，可是每次获� ......
