<<< 返回 access911.net 编程静态资料库索引页

access操作excel数据并保存预览打印并退出

 

作者:  摘自:  录入:cg1  时间:2002-12-21  浏览人次:948


专题地址:http://access911.net/fixhtm/71FAB21E10DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


Dim xlApp As Excel.Application
    Dim xlBook As Workbook, xlSheet As Worksheet
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlApp = New Excel.Application
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open("e:\data\database\temp.xls")
    Set xlSheet = xlBook.Worksheets(1)
    
    '打开数据表
    Dim TableA As Recordset, DB As Database, Wks As Workspace
    Dim tmpDate As String, tmpBuMen As String, tmpLeiBie As String, tmpJinE As Currency
    Dim X As Long, Y As Long
    Set Wks = Workspaces(0)
    Set DB = CurrentDb()
    Set TableA = DB.OpenRecordset.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB21E10DC.htm

 


上一篇:如何隐藏或最小化access数据库窗口

下一篇:如何查询其他数据库内的表(IN子句实例)?

2017年2月22日生成静态资料