| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 77470 人关注过本帖, 9 人收藏
标题:[原创]Access数据写入Excel源码
只看楼主 加入收藏
longgen
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2004-10-9
收藏(9)
 问题点数:0 回复次数:361 
[原创]Access数据写入Excel源码

介绍 Access数据写入Xls文件(附源码) :
1)建立Excel文件
2)用ADO读取Access文件中的数据写入Excel文件

环境 : Windows_XP_sp2 , Office2003_sp1, VB6_sp5

'--------------------------------------------------------------------------------
'系统           : VB练习
'子系统         : Access内容写入Xls
'程序           : Access数据写入Xls文件
'创建时间       : 2005/09/11  Ver 0.0.1 CLG
'模块           : Form1
'描述           : 1)建立Excel文件
'                 2)使用ADO读取Access文件中的数据写入Excel文件
'补充说明(环境) : Windows_XP_sp2
'                 Office2003_sp1,
'                 VB6_sp5
'引用           : Microsoft ActiveX Data Objects 2.5 Library
'                 Microsoft Scripting Runtime
'                 Microsoft Excel 11.0 Object Library(Office2003自带)
'                 更具体的环境部分还可直接用记事本查看程序目录中的<工程1.vbp>文件
'--------------------------------------------------------------------------------
Option Explicit
'--------------------------------------------------------------------------------
' 过程          : Form_Load
' 描述          : 界面初始化
' 参数          : --
'--------------------------------------------------------------------------------
..........................................
..........................................
'--------------------------------------------------------------------------------
' 过程          : Form_Unload
' 描述          : 释放对象
' 参数          : --
'--------------------------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
    Set Form1 = Nothing '释放空间
End Sub

回复后可以下载源码

[hide]
1kCCsDa0.rar (21.61 KB) [原创]Access数据写入Excel源码


[/hide]

[此贴子已经被作者于2005-9-21 19:24:26编辑过]


搜索更多相关主题的帖子: Excel 源码 Access 数据 
2005-09-12 10:44
08980898xmb
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-9-9
收藏
得分:0 
看看!
2005-09-12 10:57
longgen
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2004-10-9
收藏
得分:0 
对前面的程序稍微加了一些代码的花样.
vwOtsZVI.rar (150.69 KB)

[/hide]

[此贴子已经被作者于2005-10-19 11:00:56编辑过]




klg64hJ9.jpg (27.85 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册


34VLW8AR.jpg (29.79 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
2005-09-22 20:38
doublexchen
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2005-9-22
收藏
得分:0 
顶了看下

2005-09-22 21:25
pennino
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2005-9-23
收藏
得分:0 

一、在Access中使用代码打开Excel:

Public MyXL As Object '打开Excel Sub GetExcel()

Const ERR_APP_NOTRUNNING As Long = 429 On Error Resume Next Set MyXL = GetObject(, "Excel.Application") If Err = ERR_APP_NOTRUNNING Then Set MyXL = New Excel.Application End If MyXL.Application.Visible = True End Sub 使用这段代码,可以打开一个Excel实例或者引用已经打开的Excel实例

二、新建一个工作簿

Sub CreateNewBook

MyXL.Application.Workbooks.Add End Sub

三、使用代码将窗体上的数据复制到Windows粘贴板

Sub CopyToClip

Forms(FormName).Controls(SubFormName).SetFocus DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy End Sub

四、使用代码将Windows粘贴板的内容粘贴到Excel

Sub CopyToExcel()

GetExcel MyXL.Application.Workbooks.Add MyXL.Application.ActiveSheet.Paste End Sub

五、对导出到Excel中的数据进行格式化,比如,加上报表标题、设置表格线等。

Sub FormatTAB()

SetLine '设置表格线的子程序,在Access中实现对Excel文档格式化

'插入两行作为标题行

MyXL.Application.ActiveSheet.Rows("1:1").Select For j = 1 To 2 MyXL.Application.Selection.Insert Shift:=xlDown Next j MyXL.Application.ActiveSheet.Range("A1") = “标题文字” '设置表标题字体 MyXL.Worksheets(1).Range("A1").Select With MyXL.Application.Selection.Font .Name = "宋体" .Size = 16 End With End Sub

'设置表格线 Sub SetLine() On Error Resume Next MyXL.Application.Selection.Borders(xlDiagonalDown).LineStyle = xlNone MyXL.Application.Selection.Borders(xlDiagonalUp).LineStyle = xlNone MyXL.Application.Selection.WrapText = False With MyXL.Application.Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With MyXL.Application.Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With MyXL.Application.Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With MyXL.Application.Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With MyXL.Application.Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With MyXL.Application.Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With End Sub

六、关闭打开的工作簿

'关闭Excel Sub CloseExcel() On Error Resume Next MyXL.Application.DisplayAlerts = False MyXL.Application.Save MyXL.Application.Quit Set MyXL = Nothing '释放对该应用程序 End Sub 经过上面的讲述,一个完整的导出操作就完成了。

2005-09-23 12:57
longgen
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2004-10-9
收藏
得分:0 
                                                        
                                                        
                                        |.NET,         
                              8错!||.NET,8错!||.NE        
                      T,8错!||.NET,8错                    
              !||.NET,8错      !||.NE                    
      T,8错!||.NET,8错!||.      NET,8错                    
!||.NET,8错!||.NE            T,8错!|    |.NE              
          T,8错!||.      NET,8错!||.NET,8错!||.NE         
            T,8错!|      |.NET,8错      !||.NET,         
            8错!||.      NET,8错          !||.NE         
            T,8错!|      |.NET,8错!||.NE  T,8错!|         
            |.NET,      8错!||.  NET,8错  !||.NE         
            T,8错!|      |.NET,  8错!||.  NET,8错         
            !||.NE      T,8错    !||.    NET,8错         
            !||.NE      T,8错  !||.NE    T,8错            
            !||.NE      T,8错  !||.NE    T,8错            
            !||.NE      T,8错  !||.NE    T,8错            
      !||.NET,8错!|          |.NET,8错!|                  
        |.NET,8错            !||.NET,8错!||.              
          NET,8错          !||.NE    T,8错!||.NE         
                        T,8错!|        |.NET,8错         
                    !||.NET,            8错!||.NE        
                T,8错!||.                  NET,8错        
                                                        
                                                        
                                                  
2005-09-23 19:12
wuhanshayo
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-9-21
收藏
得分:0 
看看
2005-09-26 11:19
xuanxuan1981
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2005-9-16
收藏
得分:0 
终于找到解决的办法了
2005-09-26 15:21
summer
Rank: 1
等 级:新手上路
帖 子:41
专家分:0
注 册:2004-5-26
收藏
得分:0 
帮忙啊!
这位大哥,你能帮我看看.我想把保存在文本文件的内容转移到Excel里面,小弟在这里先谢过啦.
2005-09-27 10:25
zch
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-9-27
收藏
得分:0 
我要学习学习.
2005-09-27 13:15
快速回复:[原创]Access数据写入Excel源码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016867 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved