| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 530 人关注过本帖, 1 人收藏
标题:求助:vb如何将access当前查的数据导出为excel
只看楼主 加入收藏
事业男儿
Rank: 2
等 级:论坛游民
帖 子:293
专家分:14
注 册:2007-4-25
结帖率:81.16%
收藏(1)
已结贴  问题点数:20 回复次数:8 
求助:vb如何将access当前查的数据导出为excel
   求助:vb如何将access当前查的数据导出为excel在网上找了一段代码,搞了半天没有搞懂,请各位路过的老师看一下。
请看3楼附件

[此贴子已经被作者于2020-8-23 20:42编辑过]

附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 数据 当前 当前 导出 excel vb excel 导出 vb 数据 
2020-08-21 17:43
事业男儿
Rank: 2
等 级:论坛游民
帖 子:293
专家分:14
注 册:2007-4-25
收藏
得分:0 
求各位路过的老师帮帮忙看一下,谢谢!
2020-08-22 10:28
事业男儿
Rank: 2
等 级:论坛游民
帖 子:293
专家分:14
注 册:2007-4-25
收藏
得分:0 
在网上找到一个导出ListView1显示的数据到excel上,粘贴了导出为excel的相关代码到以及添加了他的modExcel模块,也引用了相关事项,但是没有成功,modExcel模块的xlApp                    As New Excel.Application这行代码 总是报错,哎依葫芦画瓢都没有搞定,求各位版主帮个忙,谢谢!   

[此贴子已经被作者于2020-8-23 20:41编辑过]

附件: 游客没有浏览附件的权限,请 登录注册
2020-08-23 20:36
foreach
Rank: 2
等 级:论坛游民
帖 子:12
专家分:37
注 册:2020-4-15
收藏
得分:0 
能将数据写入到数组中,再把数据输出到Excel中即可
2020-08-24 23:56
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:7
帖 子:84
专家分:433
注 册:2006-6-25
收藏
得分:0 
你先做个excel模板,在第一行输入ListView1的表头。
然后把ListView1力的数据输入到这个excel文件里。

程序代码:
Private Sub Command7_Click()
    Dim Conn1 As New ADODB.Connection
    Dim Rs1 As New ADODB.Recordset
    'On Error GoTo ErrDlog
    Dim sql1 As String, cnStr1 As String
    Dim exPath As String, Biao As String
    
    exPath = App.Path & "\Exc.xls"  'excel文件名称
    cnStr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & exPath & ";Persist Security Info=False;Extended Properties='Excel 8.0;HDR=Yes'"
    Biao = "123"   '表名称
    Conn1.Open cnStr1
    sql1 = "select * from [" & Biao & "$]"
    Rs1.Open sql1, Conn1, adOpenStatic, adLockOptimistic
    
    For i = 1 To ListView1.ListItems.Count
        Rs1.AddNew
        Rs1.Fields(0) = ListView1.ListItems(i).Text
        Rs1.Fields(1) = ListView1.ListItems(i).SubItems(1)
        Rs1.Fields(2) = ListView1.ListItems(i).SubItems(2)
        Rs1.Fields(3) = ListView1.ListItems(i).SubItems(3)
        Rs1.Fields(4) = ListView1.ListItems(i).SubItems(4)
        Rs1.Fields(5) = ListView1.ListItems(i).SubItems(5)
        Rs1.Update
        
    Next

    MsgBox "数据导出完成!", , "提示"
    Rs1.Close
    Conn1.Close
    
End Sub
2020-08-25 11:17
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:7
帖 子:84
专家分:433
注 册:2006-6-25
收藏
得分:20 
如果你对excel对象熟悉,也可以用excel对象,直接把数据写到excel文件里,不过也要先建立一个excel文件。
或者直接写到csv文件里,实际上就是文本文件,用逗号,作为分隔符。这个可以直接用excel打开的。
程序代码:
Private Sub Command8_Click()
    Dim Exlpath As String
    
    Exlpath = App.Path & "\exl.csv"
    Open Exlpath For Output As #1
    Print #1, "流水单号,姓名,金额,村组,金额类型,填表日期"
    
    For i = 1 To ListView1.ListItems.Count
        
        Print #1, ListView1.ListItems(i).Text & "," & ListView1.ListItems(i).SubItems(1) & "," & ListView1.ListItems(i).SubItems(2) & "," & ListView1.ListItems(i).SubItems(3) & "," & ListView1.ListItems(i).SubItems(4) & "," & ListView1.ListItems(i).SubItems(5)
        
    Next
    Close #1
    MsgBox "数据导出完成!", , "提示"
End Sub


[此贴子已经被作者于2020-8-25 12:06编辑过]

2020-08-25 11:26
事业男儿
Rank: 2
等 级:论坛游民
帖 子:293
专家分:14
注 册:2007-4-25
收藏
得分:0 
回复 5楼 cwa9958
首先谢谢cwa9958版主,以及楼上的其他热心的朋友:
           1、我做了这个收人情的软件,在收礼的时候用笔记本现场收,办完酒后就把数据导出来发给我哥哥,弟弟他们看,以便知道那些人来送了礼的送多少钱。彻底改变传统的纸质记录,纸质的不好保存。
           2、目前智能手机已经普及,这个数据可以发给哥哥、弟弟他们看了,也可以在微信上收藏,或者发朋友圈保存(个人能见),农村也实现无纸化办公,如果需要纸质的账单,也可以到街上去打印出来

cwa9958版主:  关于excel这个代码没有搞懂,运行时出现下面提示


1、exPath = App.Path & "\Exc.xlsl"  'excel文件名称
    这句说的是在程序文件夹里面建立Exc.xlsl 文件
2、 Biao = "123"   '表名称
    这句说的123表 是模板表  还是什么表

开始以为是excel的属性为只读,点击查看只读和隐藏的√都是去掉的,没有搞懂提示。
3、麻烦版主在解释详细点,谢谢!

'------------------------------------------------------------------------------------------------------------------------------------------
4、另外的方法测试成功!再次谢谢!


[此贴子已经被作者于2020-8-25 17:36编辑过]

附件: 游客没有浏览附件的权限,请 登录注册
2020-08-25 17:30
jklqwe111
Rank: 8Rank: 8
等 级:贵宾
威 望:26
帖 子:279
专家分:983
注 册:2014-4-13
收藏
得分:0 
以下是一个函数,是将一个结果集写入指定的工作簿。

程序代码:
Private Sub reOutExcel(scr As Recordset, fileName As String)
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim r As Long
Dim c As Long
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
If Dir(App.Path & "\" & fileName) = "" Then
  Set xlBook = xlApp.Workbooks.Add()
  xlBook.SaveAs App.Path & "\" & fileName
Else
  Set xlBook = xlApp.Workbooks.Open(App.Path & "\" & fileName)
End If
Set xlSheet = xlBook.Worksheets("sheet1")
For c = 0 To scr.Fields.Count - 1
  xlSheet.Cells(1, c + 1) = scr.Fields.Item(c).Name
Next
scr.MoveFirst
r = 1
Do While (scr.EOF <> True)
For c = 0 To scr.Fields.Count - 1
  xlSheet.Cells(r, c + 1) = scr.Fields(c)
Next
scr.MoveNext
r = r + 1
Loop
xlBook.Save
xlBook.Close
Set xlSheet = Nothing
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub
2020-08-25 22:53
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:7
帖 子:84
专家分:433
注 册:2006-6-25
收藏
得分:0 
回复 7楼 事业男儿
我的这个代码只是对于excel2003的版本,你的是高版本的excel,数据库引擎不一样的,2003的是 'Excel 8.0;HDR=Yes'",是8.0版本,你对照你的电脑,看看是多少,一般是11.0以上的吧。
2020-08-28 08:12
快速回复:求助:vb如何将access当前查的数据导出为excel
数据加载中...
 
   



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

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