标题:急求各位大虾:谁能教我vb.net怎么生成excell表格
只看楼主
shizhibo
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2008-3-5
 问题点数:0 回复次数:2 
急求各位大虾:谁能教我vb.net怎么生成excell表格
我想学习生成excell表格,可是这方面的资料很少,那位大虾能帮帮小弟呀,不生感激。尽量说说详细步骤
搜索更多相关主题的帖子: excell表格 资料 感激 
2008-03-09 15:49
fairy4
Rank: 4
等 级:贵宾
威 望:10
帖 子:738
专家分:267
注 册:2007-11-1
得分:0 
隨便baidu下,包你看不完,
資料還很少!汗!
你搜索下  操作excel   看下
但要想在excel裡面做很多細節性的東西就要用到vba<操作宏>,自己慢慢找吧

一个人只有一个心脏,却有两个心房。一个住着快乐;一个住着悲伤。不要笑得太大声,不然会吵醒旁边的悲伤
2008-03-10 12:01
qlong0728
Rank: 3Rank: 3
等 级:新手上路
威 望:8
帖 子:272
专家分:0
注 册:2007-6-15
得分:0 
Dim i, j, o As Integer
            o = DataGridView1.Columns.Count - 1
            If o < 0 Then
                MessageBox.Show("没数据可导到Excel哦!", Message_Title, MessageBoxButtons.OK, MessageBoxIcon.Warning)
                Exit Sub
            End If
            Dim xlApp As Excel.Application
            Dim xlBook As Excel.Workbook
            Dim xlSheet As Excel.Worksheet
            xlApp = CreateObject("Excel.Application")
            xlBook = xlApp.Workbooks.Add
            xlSheet = xlBook.Worksheets(1)
            xlApp.Visible = True
            xlApp.Columns("c:c").NumberFormatLocal = "@"
            xlApp.Columns("e:e").NumberFormatLocal = "@"
            xlApp.Columns("j:j").NumberFormatLocal = "@"
            For i = 0 To o
                xlSheet.Cells(1, i + 1).Value = DataGridView1.Columns(i).HeaderText
                xlApp.Cells(1, i + 1).HorizontalAlignment = 3
            Next
            With DataGridView1
                For i = 0 To .Rows.Count - 1
                    For j = 0 To .ColumnCount - 1
                        xlSheet.Cells(i + 2, j + 1).Value = .Rows(i).Cells(j).Value
                    Next j
                    xlSheet.Range("a" & i + 2).Select()
                Next i
            End With

            xlApp.Columns("a:at").EntireColumn.AutoFit()
            xlSheet.Range("a1").Select()

            xlSheet = Nothing
            xlBook = Nothing
            xlApp = Nothing

程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。
2008-03-12 11:40



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-202641-1-1.html




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

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