学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

急求各位大虾:谁能教我vb.net怎么生成excell表格

急求各位大虾:谁能教我vb.net怎么生成excell表格

我想学习vb.net生成excell表格,可是这方面的资料很少,那位大虾能帮帮小弟呀,不生感激。尽量说说详细步骤

TOP

隨便baidu下,包你看不完,
資料還很少!汗!
你搜索下  vb.net操作excel   看下
但要想在excel裡面做很多細節性的東西就要用到vba<操作宏>,自己慢慢找吧
昨天,我卖身给学业,所以今天我无所事事;而明天,我将嫁身于生计……

TOP

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
程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。

TOP

发新话题