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
相关问答:
IsSqlDataBase = 0 '主数据库类型(1=SQL,0=AC)
'===========================================================================
SqlDatabaseName = "ads365" '主数据库名
S ......
本来我是用ACCESS+VB建立一个软件(局域网),现在由于办公地点有变动,相换成INTERNAT的,有没有办法解决,
象这样的情况,如果是广域网,最好改成:B\S的
如果是局域网的,最好改成:C\S的
http://downlo ......
我的数据库是简体sqlserver2000 ,我想在繁体access下连接,通过odbc是可以了,但在access下出现打开的表全中"#已删除"
不知道要怎么操作才可以用ACCESS繁体连接简体sqlserver2000.谢谢!!!
大家都 ......
请教
在access中 我有表1
id1 id2 id3 id4
1 2 3 0
2&nb ......
我写了个采集程序,在采集的时候打开不了网站,采集完了数据库释放了才可以打开
请问如何做到采集和浏览不冲突,也就是说采集时往数据库写数据时,同样可以正常读取数据 ?
谢谢你的建议,不过不适合我用 ......