| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 717 人关注过本帖
标题:关于实现vb中的内容添加到excel中
只看楼主 加入收藏
panhai627
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2014-2-7
结帖率:0
收藏
已结贴  问题点数:20 回复次数:6 
关于实现vb中的内容添加到excel中
如图,进入该窗口后,text1中已经显示班级名称,问题如下:
form_load()中
1、打开一个excel表
2、添加表头 姓名  旷课时间   旷课次数   旷课时间   学期  学号
3、选择好信息之后,单击提交信息,将combo1.text添加到EXCEL中的A2,依次添加combo2.text、text2.text、combo3.text、combo4.text、combo5.text添加到B2——F2中
4、重新选择信息,单击提交信息,将combo1.text添加到EXCEL中的A3,依次添加combo2.text、text2.text、combo3.text、combo4.text、combo5.text添加到B3——F3中(不能将之前的信息覆盖)
5、重复上述操作,完成后单击“保存信息”,将excel文件另存为(弹出“另存为”窗口)
本人以前只学过一点皮毛,前面的都做好了,做了好几天了,就差最后的这点东西了,请各位前辈帮帮忙,感激涕零!
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 姓名 信息 EXCEL excel 
2014-02-07 16:59
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:5 
直接用excel

无知
2014-02-07 17:11
panhai627
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2014-2-7
收藏
得分:0 
回复 2楼 Artless
还请明示!!
2014-02-07 17:26
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:5 
这样做的目地是什么啊?、
2014-02-07 18:06
chen3523
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:33
帖 子:223
专家分:1165
注 册:2013-2-12
收藏
得分:5 
如果没有数据库,参照版主的建议直接用EXCEL。如果有数据库可以试用下列代码;如果想把很多的查询的汇总到一个表格,修改通用模块可以达到目的,但比较烦
Private Sub Command2_Click()
   If DataGrid1.Visible = True Then
      OutToExcel DataGrid1    '将DataGrid1数据传给Excel,
   Else
     MsgBox "本窗口数据不能传给Excel,抱歉!"
   End If
End Sub

Public Sub OutToExcel(TheGrid As DataGrid)    '可以将此过程放在通用模块中
Set xlapp = CreateObject("excel.application")
Dim xlBook As Object
Dim xlSheet As Object     '建立excel对象的工作薄对象
Set xlBook = xlapp.Workbooks.Add     '建立excel对象的工作表对象
Set xlSheet = xlBook.Worksheets(1)    '下面将DATAGRID中数据导出到EXCEL中
With TheGrid
  .Bookmark = 1
  For i = 1 To .ApproxCount
     .Bookmark = i
        For j = 0 To .Columns.Count - 1
           xlSheet.Cells(1, j + 1).Value = .Columns(j).Caption      '第一行显示表堤
           xlSheet.Cells(i + 1, j + 1).Value = .Columns(j).Text
        Next
  Next
End With
xlapp.Visible = True
End Sub

调试失败3次后,关机睡觉,当醒来时多有收获。
2014-02-09 14:14
水到渠成VB
Rank: 1
来 自:黑龙江
等 级:新手上路
帖 子:21
专家分:5
注 册:2013-9-24
收藏
得分:5 
强烈建议使用数据库,从实际出发,这才是工作中最需要的地方。
2014-02-10 11:42
w360989426
Rank: 5Rank: 5
等 级:职业侠客
威 望:4
帖 子:228
专家分:301
注 册:2013-11-12
收藏
得分:0 
建议使用数据库
datagrid导出代码如下
Private Sub Command7_Click()
 Dim excel1 As Excel.Application
    Set excel1 = New Excel.Application
    excel1.Visible = True
    excel1.Workbooks.Open (App.Path & "\程序模版.xls")
    excel1.Workbooks("程序模版.xls").Sheets("确认对账结果").Select
    If excel1.Workbooks("程序模版.xls").ReadOnly = True Then
        excel1.DisplayAlerts = False
        excel1.Application.Quit
        excel1.DisplayAlerts = True
        MsgBox "你已经打开“程序模版.xls”" & Chr(13) & "请关闭原有的“程序模版.xls”,在运行导出到excel。", vbOKOnly, "错误提示"
        Exit Sub
    Else
        excel1.Workbooks("程序模版.xls").Sheets("确认对账结果").Cells.Clear
        excel1.Workbooks("程序模版.xls").Sheets("确认对账结果").Range("A2").CopyFromRecordset Adodc1.Recordset
         With excel1.Workbooks("程序模版.xls").Sheets("确认对账结果")
            .Cells(1, 1) = "地域"
            .Cells(1, 2) = "所属公司"
            .Cells(1, 3) = "酒店名称"
            .Cells(1, 4) = "期间总金额"
            .Cells(1, 5) = "入账日期"
            .Cells(1, 6) = "确认结果"
            .Cells.Font.Size = 9
            .Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
                           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            .Columns.AutoFit
            .Rows.AutoFit
            .Columns("d:d").NumberFormatLocal = "¥#,##0.00;¥-#,##0.00"
            .Columns("e:e").NumberFormatLocal = "yyyy-mm""月"""
        End With
    End If
End Sub
2014-02-12 15:20
快速回复:关于实现vb中的内容添加到excel中
数据加载中...
 
   



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

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