导EXCEL问题

[cjlxm1]

各位好:
我初学VB.NET,请教如何导出datagrid中的内容放EXCEL文件中?
导出Excel文件,还可以设置它的格式吗?

[Knight94]

ref:
http://www.codeproject.com/csharp/export.asp
http://www.codeproject.com/csharp/export2excel.asp

[Knight94]

vb.net:
http://www.codeproject.com/vb/net/Data_Extract.asp

[gezichong]

Public conn As New OleDbConnection()
Public Filename As String
Public chkexcel As Boolean
Public oexcel As Excel.Application
Public obook As Excel.Workbook
Public osheet As Excel.Worksheet
Public R As Integer
Console.WriteLine("Generating Auto Report")
osheet = oexcel.Worksheets(1)
'rename the sheet
osheet.Name = "Excel Charts"
osheet.Range("A1:AZ400").Interior.ColorIndex = 2
osheet.Range("A1").Font.Size = 12
osheet.Range("A1").Font.Bold = True
osheet.Range("A1:I1").Merge()
osheet.Range("A1").Value = "Excel Automation With Charts"
osheet.Range("A1").EntireColumn.AutoFit()
'format headings
osheet.Range("A3:C3").Font.Color = RGB(255, 255, 255)
osheet.Range("A3:C3").Interior.ColorIndex = 5
osheet.Range("A3:C3").Font.Bold = True
osheet.Range("A3:C3").Font.Size = 10
'columns heading
osheet.Range("A3").Value = "Item"
osheet.Range("A3").BorderAround(8)
osheet.Range("B3").Value = "Sale"
osheet.Range("B3").BorderAround(8)
osheet.Range("C3").Value = "Income"
osheet.Range("C3").BorderAround(8)
'populate data from DB
Dim SQlQuery As String = "select * from Sales"
Dim SQLCommand As New OleDbCommand(SQlQuery, conn)
Dim SQlReader As OleDbDataReader = SQLCommand.ExecuteReader
Dim R As Integer = 3
While SQlReader.Read
R = R + 1
osheet.Range("A" & R).Value = SQlReader.GetValue(0).ToString
osheet.Range("A" & R).BorderAround(8)
osheet.Range("B" & R).Value = SQlReader.GetValue(1).ToString
osheet.Range("B" & R).BorderAround(8)
osheet.Range("C" & R).Value = SQlReader.GetValue(2).ToString
osheet.Range("C" & R).BorderAround(8)
End While
SQlReader.Close()
end sub

这可以参考...

[ye0804]

方法很多

[过客猫2022]

最新VS2005下载！
http://bbs.bt5156.com/thread-68784-1-1.html